Как прочитать адреса отправленных писем с помощью Visual Basic

Допустим, вам нужно получить список адресов, по которым вы отправили письма. Если они лежат в папке отправленных писем Outlook, то это можно сделать с помощью такого кода:

Листинг 1.

Dim myItems As Items  

Dim mailmsg As MailItem

' выборка писем из папки

Set myItems = _

   Application.Session.GetDefaultFolder(olFolderOutbox).Items  

   

If myItems.Count > 0 Then ' есть письма

  For Each mailmsg In myItems

    MsgBox "Куда отправлено - " & mailmsg.To

  Next

Else

  MsgBox "нет отправленных писем"

End If

Если же вам нужно обратиться к некоторой произвольной пользовательской папке, то выборка писем будет выглядеть примерно так:

Листинг 2.

Set myItems = Application.GetNamespace("MAPI"). _

Folders.Item("Personal Folders").Folders.Item("Outbox").Items