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

如何以特定格式导出Outlook中的“已发送项目”列表？

1 个答案: