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