Outlook - получить текст письма в VBA

[Хыиуду]

Есть папка, в папке энное количество писем. В тексте писем встречаются email-адреса. Требуется - выцепить все эти адреса. Интересует, собственно, как в объектной модели получить текст очередного письма, остальное сам сделаю.

[Busine2009]

Хыиуду
Outlook 2003 или 2007?

[Busine2009]

Хыиуду
этот код для MS Outlook 2007. Если установлен 2003, то в коде надо вместо Folder использовать MAPIFolder.
Код собирает в переменную текст всех писем, находящихся в папке Входящие и содержащих символ "@":

Код: Выделить всё

Sub m_2()
Dim oNameSpace As Outlook.NameSpace
Dim oFolder As Outlook.Folder
Dim oItem As Object
Dim vАдреса As String
Set oNameSpace = Application.GetNamespace("MAPI")
Set oFolder = oNameSpace.GetDefaultFolder(olFolderInbox)
For Each oItem In oFolder.Items
    If InStr(oItem.Body, "@") > 0 Then
        vАдреса = vАдреса & vbCr & oItem.Body
    End If
Next
Debug.Print vАдреса
Set oNameSpace = Nothing
Set oFolder = Nothing
Set oItem = Nothing
End Sub