Использование подписи для писем Outlook в макросе VBA - PullRequest
Новая
       113

Использование подписи для писем Outlook в макросе VBA

0 голосов
/ 09 мая 2020

Исходя из нескольких ресурсов, у меня есть следующий код VBA в Excel для отправки электронного письма из моей учетной записи Outlook с помощью VBA: 

Sub SendEmail()
Dim OA As Object
Dim msg As Object

Set OA = CreateObject("Outlook.Application")
Set msg = OA.CreateItem(0)

sig = msg.HtmlBody

msg.To = "fake@fake.com"
msg.Subject = "Subject Line!"
msg.HtmlBody = "<p>Body</p>" & sig
msg.Send
End Sub

Однако моя подпись электронной почты не добавляется в конец тело сообщения электронной почты.

Есть какие-нибудь мысли относительно того, почему это может быть?

1 Ответ

0 голосов
/ 09 мая 2020

Попытайтесь сохранить почтовый элемент, чтобы добавить подпись: 

Sub SendEmail()
  Dim OA As Object
  Dim msg As Object

  Set OA = CreateObject("Outlook.Application")
  Set msg = OA.CreateItem(0)
  sig = msg.HtmlBody

  msg.To = "fake@fake.com"
  msg.Subject = "Subject Line!"
  msg.HtmlBody = "<p>Body</p>" & sig

  msg.Display()

  msg.Send
End Sub

Кроме того, вы должны установить правильную разметку HTML для свойства HTMLBody. Это означает, что вам нужно найти начальный тег <body> и вставить туда свой текст сразу после него.

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

Похожие темы

...