Отправка электронной почты с помощью Outlook через Excel VBA - PullRequest
Новая
       50

Отправка электронной почты с помощью Outlook через Excel VBA

0 голосов
/ 27 сентября 2019

У меня есть кнопка, которая при нажатии запускает мой макрос, который сохраняет и затем копирует файл в новое место.Я могу заставить все это работать с моей кнопкой.

Теперь я хочу добавить новую строку кода, которая генерирует электронную почту через Outlook.Это должно автоматически напечатать то, что я хочу сказать.(Однако, просто пытаясь заставить его работать, я просто помещаю «test» в тему и тело.) Затем я хочу автоматически отправить это электронное письмо БЕЗ предварительного просмотра сообщения / электронного письма. 

 Dim outlookApp As Outlook.Application
 Dim outlookMail As Outlook.MailItem

Set outlookApp = New Outlook.Application
Set outlookMail = outlookApp.CreateItem(olMailItem)

With outlookMail
    .to = "email_here"
    .Subject = "Test"
    .Body = "test"
    .Send
End With

Set outlookMail = Nothing
Set outlookApp = Nothing

Обратите внимание, что я включил ссылки через визуальную базовую панель инструментов в Outlook.

Всякий раз, когда запускаю этот код с помощью кнопки, я дохожу до точки, где в моем коде есть «.send».затем появляется сообщение msg

ошибка времени выполнения '287' Ошибка приложения или объекта *

.Почему?

...