Я хотел бы отправить электронное письмо из макроса 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, когда нажимается кнопка, а затем я отправляю сообщение оттуда без использования приложения.