Отправка автоматической электронной почты из Excel с помощью Outlook на сайте (без приложения) - PullRequest
0 голосов
/ 11 ноября 2019

Я хотел бы отправить электронное письмо из макроса Excel с помощью учетной записи outlook с веб-страницы без использования приложения Outlook.

У меня есть следующий код:

Sub Button1_Click()
Set oEmail = CreateObject("CDO.Message")

oEmail.From = "email"

oEmail.To = "email2"

oEmail.Subject = "E-Mail Subject"

oEmail.Textbody = "This is the body of the E-Mail message"

oEmail.AddAttachment "C:\SGS\Paths.TXT"

oEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

oEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "server"

oEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/authenticate") = 1

oEmail.Configuration.Fields.Update

oEmail.Send

Set oEmail = Nothing

End Sub 

Он отправляет электронную почту автоматическина данный момент я хочу открыть новую вкладку электронной почты в веб-браузере (Internet Explorer или Google Chrome или FireFox) в Outlook, когда нажимается кнопка, а затем я отправляю сообщение оттуда без использования приложения.

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