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/Software/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 

を