Jump to content

Welcome to Geeks to Go - Register now for FREE

Geeks To Go is a helpful hub, where thousands of volunteer geeks quickly serve friendly answers and support. Check out the forums and get free advice from the experts. Register now to gain access to all of our features, it's FREE and only takes one minute. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more.

Create Account How it Works

Microsoft Outlook - capturing email address

  • Please log in to reply



    New Member

  • Member
  • Pip
  • 1 posts
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?

  • 0





  • Member
  • PipPip
  • 98 posts
I haven't tried this yet, however the following link may help

  • 0




  • Member
  • PipPip
  • 98 posts
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 ("---------------------------")

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

End Sub
  • 0

Similar Topics

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

As Featured On:

Microsoft Yahoo BBC MSN PC Magazine Washington Post HP