regra do Outlook para converter e-mails recebidos em texto simples

Question

Todos nós temos pessoas que decidem colocar uma tonelada de lixo em seus e-mails e torná-lo quase impossível de ler. O que eu gostaria de ter é uma regra no Outlook 2010 que, assim que um email vem de uma determinada pessoa (ou provavelmente de um grupo), ele converte automaticamente para texto simples em vez de html. Alguma idéia?

    

Answer 1

Se você está preocupado com a exibição e realmente não precisa converter veja aqui as instruções para "Ler como texto sem formatação" link

    

Answer 2

Eu "resolvi" esse mesmo problema, atribuindo uma regra de correio para pegar apenas o e-mail específico do problema e movê-lo para "Lixo". No lixo, todos os emails são convertidos em texto simples.

Assim, eu leio esses e-mails com problemas na minha pasta de lixo eletrônico, que é muito melhor do que o status quo do Outlook "não responde" por um minuto toda vez que eu acidentalmente visualizo o e-mail com problema.

EDIT: Eu também adicionei um alerta de notificação para a regra de e-mail para que eu não "perca" o e-mail

    

Answer 3

Você pode editar uma mensagem com o VBA. De acordo com o MSDN, se você definir o _MailItem.BodyFormat propriedade para olFormatPlain descartará toda a formatação.

Este artigo sobre como usar o VBA como uma alternativa mais poderosa ao As regras de filtragem do Outlook devem colocá-lo na direção certa.

    

Answer 4

Uma regra que incorpora o VBA necessário pode ser encontrada aqui, com aldeias de ItemAdd e NewMailEx.

link

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 isso. (Por razões desconhecidas, um dos meus remetentes não tem um SenderEmailAddress.)

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