[CypressTech]

is there a way that I can capture and list every email address that's in my sent folder without individually clicking on each one?

Jesse

[Advertisements]

I haven't tried this yet, however the following link may help

http://www.outlookco...utoaddrecip.htm

[dsm]

I haven't tried this yet, however the following link may help

http://www.outlookco...utoaddrecip.htm

[dsm]

This outlook macro will get the email address of the sender and the display names of the receivers from a folder that you select.

I hope this helps. I have just started learning about macros in outlook. This worked for me in Outlook 2003.


Sub GetDisplayNames()

Set oApp = CreateObject("Outlook.Application")
Set oNS = oApp.GetNamespace("MAPI")
'Set oFolder = oNS.GetDefaultFolder(olFolderSentMail)
Set oFolder = oNS.PickFolder
Set oItems = oFolder.Items

Debug.Print "I am checking folder - ", oFolder.Name
Debug.Print "Count of messages in this folder - ", oItems.Count

'Get unread e-mail messages.
'oItems = oItems.Restrict("[Unread] = true")
'Console.WriteLine ("Total Unread : " & oItems.Count)

'Loop through each message.
Dim oMsg As Outlook.MailItem
Dim i As Integer

For i = 1 To oItems.Count
Set oMsg = oItems.Item(i)
Debug.Print (i),
'Debug.Print (oMsg.SenderName)
Debug.Print "Sender >> ", (oMsg.SenderEmailAddress)
Debug.Print , "Receiver >> ", (oMsg.To)
'Debug.Print (oMsg.Subject)
'Debug.Print (oMsg.ReceivedTime)
'Debug.Print (oMsg.Body)
Debug.Print ("---------------------------")
Next

'Clean up.
Set oApp = Nothing
Set oNS = Nothing
Set oFolder = Nothing
Set oItems = Nothing
Set oMsg = Nothing

End Sub