Преобразовать электронную почту Outlook в обычный текст

Question

У меня есть около 5 почтовых ящиков, настроенных в Outlook 2013. Я хочу, чтобы все входящие электронные письма, отправленные в формате html, были преобразованы в обычный текст только для одного конкретного почтового ящика. Как этого достичь? Я уже знаю, что есть глобальная опция, чтобы включить это, но я хочу это только для одной коробки в частности.

Answer 1

Вы можете сделать это с VBA.

http://www.outlookcode.com/article.aspx?id=62

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

Эта линия, вероятно, должна измениться.

Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items

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

https://stackoverflow.com/questions/9076634/outlook-2007-vba-to-get-reference-to-additional-inbox