Я использую предложение от kmote из этого ответа (https://superuser.com/questions/635094/). Кажется, что все работает, и сообщение отправлено. Однако у меня есть проблема с моим сообщением. У меня есть изображения и форматирование текста в моем теле. В настоящее время отправлено сообщениеотформатирован только в текстовом режиме. Есть ли способ сделать его в формате HTML, чтобы он был таким же, как у меня?
Private Sub Application_Reminder(ByVal Item As Object)
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
If Item.MessageClass <> "IPM.Appointment" Then
Exit Sub
End If
If Item.Categories <> "Automated Email Sender" Then
Exit Sub
End If
objMsg.To = Item.Location
objMsg.Subject = Item.Subject
objMsg.Body = Item.Body
objMsg.Send
Set objMsg = Nothing
End Sub