Como exibir e-mails de um contato específico em texto simples

Question

Estou recebendo e-mails em html de um contato específico, mas quero receber apenas mensagens dele em texto sem formatação.

Marquei a caixa na Ferramenta > Centro confiável > Segurança de email > [] Leia todos os e-mails padrão em texto simples, mas não quero remover o formato de todos os e-mails.

Como faço para isso?

• Estou usando o Microsoft Outlook 2007 com o Exchange Mail Server.
• Windows XP Profesional (sei que é obsoleto)

Answer 1

Algumas respostas podem ser encontradas neste tópico deste fórum:
regra do Outlook para converter e-mails recebidos em texto simples .

Solução 1: altere o formato da mensagem para texto sem formatação por meio de uma regra

Use o Assistente de regras para criar uma regra usando a ação "executar um script" para chamar este procedimento de 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

Para as soluções ItemAdd e NewMailEx, você pode limitar a conversão testando o SenderName ou SenderEmailAddress como este.

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

Você pode encontrar o SenderName com isto:

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

Mais informações podem ser encontradas no artigo Como processar mensagens recebidas no Microsoft Outlook .

Solução 2: use uma regra para mover as mensagens para "Lixo"

No lixo, todos os e-mails são convertidos em texto simples.