Как отображать электронные письма от определенного контакта в текстовом формате

Question

Я получаю письма в формате html от конкретного контакта, но хочу получать только от него письма в виде обычного текста.

Я установил флажок в меню «Инструменты»> «Надежный центр»> «Защита электронной почты»> []. Чтение всех стандартных писем в виде обычного текста, но я не хочу удалять формат из всех писем.

Как мне этого добиться?

• Я использую Microsoft Outlook 2007 с почтовым сервером Exchange.
• Windows XP Profesional (я знаю, что это устарело)

Answer 1

Некоторые ответы можно найти в этой теме на этом форуме:
Правило Outlook для преобразования входящей электронной почты в обычный текст.

Решение 1. Измените формат сообщения на обычный текст с помощью правила.

Используйте мастер правил, чтобы создать правило с помощью действия "запустить скрипт" для вызова этой процедуры VBA:

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

Для решений ItemAdd и NewMailEx вы можете ограничить конверсию, протестировав SenderName или SenderEmailAddress следующим образом.

If objMail.SenderName = "Mailer, HTML" Then
    objMail.BodyFormat = olFormatPlain
    objMail.Save
End if

Вы можете найти SenderName с этим:

Sub Addresses_CurrentItem()

Dim olMail As Object

On Error Resume Next
Set olMail = ActiveInspector.currentItem

If olMail Is Nothing Then
' might be in the explorer window
    If (ActiveExplorer.selection.Count = 1) And _
     (ActiveExplorer.selection.Item(1).Class = olMail) Then
        Set olMail = ActiveExplorer.selection.Item(1)
    End If
End If
On Error GoTo 0

If olMail Is Nothing Then

MsgBox "Problem." & vbCr & vbCr & "Try again " & _
"under one of the following conditions:" & vbCr & _
    "-- You are viewing a single email message." & vbCr & _
    "-- You have only one message selected.", _
vbInformation
Exit Sub
End If

If TypeOf olMail Is MailItem Then

Debug.Print "  Sender    : " & olMail.SenderName   
Debug.Print "  SenderEmailAddress: " & olMail.SenderEmailAddress & vbCr

End If

End Sub

Более подробную информацию можно найти в статье Как обрабатывать входящие сообщения в Microsoft Outlook.

Решение 2. Используйте правило для перемещения почты в "Хлам"

В барахле все электронные письма конвертируются в обычный текст.