Как обрабатывать входящие письма в Outlook с помощью Visual Basic

Вам бы хотелось автоматически обрабатывать входящие письма?
Это довольно просто сделать с помощью такого кода:

Private Sub Application_NewMail() 

  ' При поступлении нового письма

  ' производится его обработка

  Dim mailItems As Items

  Dim mailmsg As MailItem



  ' Набор писем из папки "Входящие"

  Set mailItems = Application.Session._

      GetDefaultFolder(olFolderInbox).Items

  Set mailmsg = mailItems.GetLast ' выбираем последнее

  ' далее выполняется анализ письма

  ' (его реквизитов, содержимого и пр.

  ' ...

  ' по результатам анализа можно:

  mailmsg.UnRead = False  ' установить признак "Прочтенное"

  mailmsg.Delete   ' удалить

  mailmsg.Move(myFolder)   ' переместить в другую папку

End Sub