如何导出“已发送邮件”列表在 Outlook 中以特定格式显示？

Question

我需要生成以下格式的已发送项目列表。

<sent to:> <Subject> <Date>

示例：

[email protected] "First Letter" 1/1/2011

[email protected] "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