Solved

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

Posted on 2008-10-24
2
224 Views
Last Modified: 2012-05-05
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?
0
Comment
Question by:dannyboy266
2 Comments
 
LVL 15

Accepted Solution

by:
WilyGuy earned 250 total points
ID: 22798259
Without scripting, you can do something like that with the Outlook Add On - "Add-Contacts"
http://www.office-addins.com/-outlook-addins/add-contacts.html
0
 
LVL 28

Assisted Solution

by:omgang
omgang earned 250 total points
ID: 22798651
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

        olContact.Save

    Next

    

Exit_AddToContacts:

    Set olContact = Nothing

    Set olMsg = Nothing

    Set olFolder = Nothing

    Set olNS = Nothing

    Exit Function
 

Err_AddToContacts:

    MsgBox Err.Number & ", " & Err.Description, , "Error"

    Resume Exit_AddToContacts

    

End Function

Open in new window

0

Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Get an idea of what you should include in an email disclaimer with these Top 5 email disclaimer tips.
Sometimes Outlook might have problems sending a message. There may be various causes- corrupted PST, AV scanner etc. The message, instead of going to the Sent Items folder, sits in the Outbox indefinitely. To remove it you can use a free tool cal…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

747 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now