Как вы можете экспортировать список «Отправленные» в Outlook в определенном формате?

Question

Мне нужно создать список отправленных предметов в следующем формате.

<sent to:> <Subject> <Date>

Пример:

a@a.com "First Letter" 1/1/2011

b@b.com "Check out this second letter" 1/2/2011 

Любая помощь приветствуется.Похоже, что этот парень может сделать это через VBA здесь - http://www.experts -exchange.com / Программное обеспечение / Office_Productivity / Groupware / Outlook / Q_24483105.html

Спасибо

Answer 1

В данный момент я не могу проверить, но вы должны начать:

Dim oApp As Outlook.Application
Dim oNS As NameSpace
Dim oSent As Outlook.MAPIFolder
Dim strMessage As String
Dim strAddresses As String
Dim i, j

Set oApp = CreateObject("Outlook.Application")
Set oNS = oApp.GetNamespace("MAPI")
Set oSent = oNS.GetDefaultFolder(olFolderSentMail)

For i = 1 To oSent.Count
    For j = 1 To oSent(i).Recipients.Count
    ''http://msdn.microsoft.com/en-us/library/bb176763(v=office.12).aspx
        strAddresses = strAddresses & ";" _
        & oSent(i).Recipients(j).Address
    Next
    strMessage = strMessage _
    & Mid(strAddresses, 2) _
    & oSent(i).Subject _
    & oSent(i).SentOn & vbCrLf
Next