Добавление вложений PDF или Word в почту Outlook с помощью Excel VBA - PullRequest
0 голосов
/ 03 июля 2019

У меня есть рабочий макрос для отправки сообщений сотням сотрудников.

Я персонализирую содержимое, используя HTML в Excel.Ячейки содержат сообщения.

Теперь мне нужно отправить электронное письмо с несколькими вложениями.

Вот код без вложений.

Sub SendMail()

Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem

For i = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

    Set olApp = New Outlook.Application
    Set olMail = olApp.CreateItem(olMailItem)

    With olMail
        .SentOnBehalfOfName = "HC-Communications@company.com"
        .To = Cells(i, 1).Value
        .CC = Cells(i, 2).Value
        .BCC = Cells(i, 3).Value
        .Subject = Cells(i, 4).Value
        .BodyFormat = olFormatHTML
        .HTMLBody = Cells(i, 5).Value
        .Display
        .ReadReceiptRequested = True
        .Send
    End With

    Set olMail = Nothing    
    Set olApp = Nothing

Next

End Sub

1 Ответ

0 голосов
/ 14 июля 2019

Кажется, вас интересует метод Add класса Attachments, который создает новое вложение в коллекции Attachments.Источником вложения может быть файл (представленный полным путем к файловой системе с именем файла) или элемент Outlook, который составляет вложение.Например:

Sub AddAttachment() 
 Dim myItem As Outlook.MailItem 
 Dim myAttachments As Outlook.Attachments  
 Set myItem = Application.CreateItem(olMailItem) 

 Set myAttachments = myItem.Attachments 
 myAttachments.Add "C:\Test.doc", olByValue, 1, "Test" 

 myItem.Display 
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...