VBA Входящая почта в обычный текст

Question

У меня есть входящая HTML-почта в Outlook. Я хочу преобразовать входящую почту в «обычный текст» и переслать письмо.

Код ниже у меня есть, но я не могу заставить его работать. Любые мысли о преобразовании его в «простой текст» и последующей пересылке. Спасибо за помощь:)

Пробовал несколько примеров кода, но пока не повезло.

Sub ConvertToPlain(MyMail As MailItem)
    Dim strID As String
    Dim objMail As Outlook.MailItem

    strID = MyMail.EntryID
    Set objMail = Application.Session.GetItemFromID(strID)
    objMail.BodyFormat = olFormatPlain
    objMail.Save

    Set objMail = Nothing
End Sub

Answer 1

Вы можете просто создать новый почтовый элемент и установить свойство .body.Чтение .body почтового элемента дает только текст без какого-либо форматирования (в отличие от чтения .HTMLBody, который получает полный HTML).

Вот пример подпрограммы, которая будетотправьте неформатированный текст электронного письма на любые указанные вами адреса

Sub sendPlainText(MyMail As MailItem, sendTo As String)
    Dim newMail As Outlook.MailItem

    Set newMail = Application.CreateItem(olMailItem) 'Create a new email

    With newMail
        .To = sendTo 'Whoever you want to send the new mail item to
        .subject = MyMail.subject 'Copy subject of original email
        .Body = MyMail.Body 'Copy plain text of body to new mail item
        .send 'Send the new email
    End With
End Sub