Want to add senders of multiple emails to contacts at once.

I have 40 or so emails, all with different senders, and I'd like to add all of them to my contact list without having to manually do each one.  Is there a way?
Who is Participating?
WilyGuyConnect With a Mentor Commented:
Without scripting, you can do something like that with the Outlook Add On - "Add-Contacts"
omgangConnect With a Mentor IT ManagerCommented:
Here's a vba function to do it
OM Gang
Public Function AddToContacts()
On Error GoTo Err_AddToContacts
    Dim olNS As NameSpace
    Dim olFolder As MAPIFolder
    Dim olMsg As MailItem
    Dim olContact As ContactItem
    Set olNS = Outlook.GetNamespace("MAPI")
    Set olFolder = olNS.PickFolder
    For Each olMsg In olFolder.Items
        Set olContact = Outlook.CreateItem(olContactItem)
        olContact.Email1Address = olMsg.SenderEmailAddress
        olContact.FullName = olMsg.SenderName
    Set olContact = Nothing
    Set olMsg = Nothing
    Set olFolder = Nothing
    Set olNS = Nothing
    Exit Function
    MsgBox Err.Number & ", " & Err.Description, , "Error"
    Resume Exit_AddToContacts
End Function

Open in new window

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.