Вы можете сделать это с 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