Отправить документ в качестве вложения по электронной почте

 

Загрузить как .sbs Показать простым текстом

 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Const olByValue = 1
Const olMailItem = 0
Const olFolderSentMail =5
Const olFolderOutbox=4


Sub Main
	' Этот скрипт SaxBasic отсылает документ в качестве вложения по электронной почте
	' Автор: Raynald Levesque, 10.01.2003, rlevesque@videotron.ca
	' SPSS web site http://pages.infinit.net/rlevesqu/index.htm

	Dim appOutlook As Object	'Приложение Outlook 2000
	Dim mynamespace As Object
	Dim myfolder As Object
	Dim Newmail As Object		'Объект - новое сообщение
	Dim strFileName As String	'Имя и путь к прилагаемому файлу
	Dim strTo As String		'E-mail получателя
	Dim myitem As Long 		'Содержит число сообщений в папке Исходящие

	' Вся эта информация, в принципе, может быть передана в скрипт синтаксисом
	strFileName = "c:\\temp\\data with labels2.txt"
	strTo = "rlevesque@videotron.ca"
	strBody ="Файл приложен."
	strSubject = "Email отправлен SaxBasic"

	Set appOutlook=CreateObject("Outlook.Application")
	Set mynamespace=appOutlook.GetNamespace("MAPI")
	'Set myfolder = mynamespace.PickFolder
	'myfolder.Display

	Set Newmail = appOutlook.CreateItem(olMailItem)
    Newmail.Display
	Newmail.attachments.Add strFileName, olByValue , 1
	Newmail.Body = strBody
	Newmail.To = strTo
    Newmail.Subject = strSubject
    Newmail.Send

	Set myfolder = mynamespace.GetDefaultFolder(olFolderOutbox)
  	myitem = myfolder.Items.Count
	While myitem <> 0 'Сообщение ещё отсылается
		Wait 1
		myitem = myfolder.Items.Count
		Debug.Print "ждём... осталось " & myitem & " сообщений в папке Исходящие"
	Wend

	'Закрываем приложением Outlook
	mynamespace.application.Quit
	Debug.Print strFileName & " был выслан по e-mail..."
End Sub
Related pages

...

Navigate from here