Отправить письмо с VBA через Excel с уже сохраненным шаблоном электронной почты в папке?

Question

У меня есть список электронных писем в Excel, в которые я хочу отправить уже готовое электронное письмо в Outlook, которое я сохранил как шаблон в папке. Вместо того, чтобы пытаться воссоздать это письмо через VBA. Мне интересно знать, могу ли я просто отправить сохраненный шаблон Outlook на каждое письмо.

Answer 1

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

Sub CreateEmailfromTemplate()
    Dim obApp As Application
    Dim NewMail As Outlook.MailItem

    Set obApp = Outlook.Application
    Set NewMail = obApp.CreateItemFromTemplate("C:\directory\Template.oft")
    NewMail.Display
    With NewMail
        .To = "example@mail.com"
        .Display
    End With

    Set obApp = Nothing
    Set NewMail = Nothing
End Sub