Converte o e-mail do Outlook em texto simples

Question

Eu tenho cerca de 5 caixas de e-mail configuradas no Outlook 2013. Quero que todos os e-mails recebidos em html sejam convertidos em texto de queixar, apenas para uma caixa de correio específica. Como isso pode ser alcançado? Eu já sei que existe uma opção global para ativar isso, mas eu só quero isso para uma caixa em particular.

    

Answer 1

Você pode fazer isso com o VBA.

link

Private WithEvents olInboxItems As Items

Private Sub Application_Startup()
  Dim objNS As NameSpace
  Set objNS = Application.Session
  ' instantiate objects declared WithEvents
  Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
  Set objNS = Nothing
End Sub

Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
  On Error Resume Next
  Item.BodyFormat = olFormatPlain
  Item.Save
  Set Item = Nothing
End Sub

Esta linha provavelmente tem que mudar.

Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items

Você faz referência à caixa de entrada não padrão dessa maneira.

link