Отображение каждого электронного письма для ручного редактирования перед отправкой - PullRequest
Новая
       13

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

0 голосов
/ 24 апреля 2020

У меня более 200 писем для отправки с отдельными вложениями.

Список в Excel.

С помощью кода из другого места мне удалось открыть электронное письмо с вложением и адресом электронной почты. , тема и основной текст.

Я хочу, чтобы l oop приостановил работу после открытия электронного письма, чтобы я мог проверить детали, добавить подпись и т. д. c. Затем я хочу, чтобы l oop перешел к следующей итерации, но не до тех пор, пока я не нажму «Отправить».

Кроме того, более незначительный момент, но vbNewLine, похоже, не создает новую строку? 

Sub SendEmail_Example1()

Dim EmailApp As Outlook.Application
Dim Source As String
Dim Attachment As String
Dim edress As String
Set EmailApp = New Outlook.Application

Dim EmailItem As Outlook.MailItem
Set EmailItem = EmailApp.CreateItem(olMailItem)

i = 2
Do Until IsEmpty(Cells(i, 1))

    Attachment = "C:\Users\username\Downloads\" + Cells(i, 4)
    edress = Cells(i, 1)

    EmailItem.To = edress
    EmailItem.Subject = "Test Email From Excel VBA"
    EmailItem.HTMLBody = "Hi," & vbNewLine & vbNewLine & _
      "This is my first email from Excel" & _
      vbNewLine & vbNewLine & _
      "Regards," & vbNewLine & _
      "VBA Coder"
    Source = ThisWorkbook.FullName
    EmailItem.Attachments.Add (Attachment)

    EmailItem.Display
    i = i + 1
    Loop

Set EmailApp = Nothing
Set EmailItem = Nothing

End Sub

1 Ответ

0 голосов
/ 24 апреля 2020

Прошло 15 лет с тех пор, как я попробовал это, но попробуйте модальное свойство для метода EmailItem.Display

https://docs.microsoft.com/en-us/office/vba/api/outlook.mailitem.display

...