MyTetra Share
Делитесь знаниями!
Отправить письмо
09.12.2017
15:19
Раздел: VBA - Outlook

Отправить письмо

После того, как отчет был сформирован, хорошо было бы отправить его получателям. Для этого нужно сделать следующее:

 

   Dim OutApp As Object

   Dim OutMail As Object

   Set OutApp = CreateObject("Outlook.Application")

   Set OutMail = OutApp.CreateItem(0)

   With OutMail

       .To="mail@mail.ru"

       .CC = ""

       .BCC = ""

       .Subject = "Тема письма"

       .Body = "Тело письма"

       .Attachments.Add FullName_of_WorkBook

       .Send

   End With

 

Если не хочешь отправлять письмо сразу, а хочешь сначала взглянуть на окно отправки, то меняем слово Send на Display

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования