How can I export every email address I’ve ever used from Outlook?


I’m in software sales and I want to send out my own little marketing emails and I don’t have all these email addresses in my contacts, they are all just in there from people I’ve cold-called and followed up with. Or maybe people that were interested and never bought. I just want to export every single email address in there. Is there a way to do it?
Ok but remember they aren’t in my contact list though…. these are just random addresses I type in as a one time use…. it will pull all of them?
Yeah that doesn’t work it’s just the one in the contact folder.
Share and Enjoy: These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Webnews
  • Digg
  • del.icio.us

2 Comments

  • AQuestionMark wrote:

    Please backup your contacts before trying this, to backup go to file, export, expor to a file, next, click pst, next, click contacts folder, put path and name of pst to the 1st then click finish button.
    Open outlook, Alt+F11, to go to vb editor, on the right blank area add the code below,

    Sub AddSenderToContacts()
       Set conobj = Application.GetNamespace( “MAPI”).GetDefaultFolder( olFolderContacts ).Items
       On Error Resume Next
       For a = 1 To Application.GetNamespace( “MAPI”).GetDefaultFolder( olFolderInbox ).Items.Count
       Set objMail = Application.GetNamespace( “MAPI”).GetDefaultFolder( olFolderInbox ).Items(a)
       For Each sndr In objMail.Reply.Recipients
          strAddress = sndr.Address
          If strAddress = “” Then strAddress = sndr.Name
          For i = 1 To 3
                strFind = “[Email" & i & "Address] = ” & strAddress
                Set econobj = conobj.Find( strFind)
                If Not econobj Is Nothing Then
                   Exit For
                End If
          Next
             If econobj Is Nothing Then
                Set econobj = Application.CreateItem( olContactItem)
                With econobj
                   .FullName = sndr.Name
                   .Email1Address = strAddress
                   .Save
                End With
          End If
          Set econobj = Nothing
       Next
       Set objContact = Nothing
       Set objMail = Nothing
       Next
       Set conobj = Nothing
    End Sub

    Click once in the code, then hit F5, all senders address form emails in the inbox will be compared with the contact’s, if no match a new contact will be created.

  • jmorge wrote:

    go to File > Import and Export

    select Export to a File

    you can then select a format to export to (excel, access, comma delimited, etc). Then select which folder to export (like inbox or sent items, etc).

    then just open the file in whatever format/program you selected. You could then clean up the files (remove duplicates, etc) and use some program to do a mass mailing using that data.

Post a Comment

Your email is never shared. Required fields are marked *

Spam Protection by WP-SpamFree