How to Create Macro in Visual Basic to add Contacts from Personal Folder

Status
Not open for further replies.

mickash

Member
Outlook version
Email Account
POP3
:confused:Help! My contact list on a prior system was deleted. I have imported all of my emails into my new Microsoft Outlook 2003 but going through all the emails individually to add contacts is horrible when you have thousands of emails. Does anyone have the micro basic code to set up a macro to add contacts from the personal favorite folder?

i.e. click on a message, right address, click on add to contact list, then click on save and close (when outlook creates contact)?

I would really appreciate all the help I can get. Visual Basic looks like greek!
 
there are addins you could use - at least i think they might work as you need to use something you can run on mail in your folders.

Here is a code sample that adds them when replying - http://www.outlookcode.com/d/code/autoaddrecip.htm - you'd need to change it to do it on all messages. (I'll check around and see if anyone has sample code that better meets your needs.)

We have a long list of tools here: http://www.slipstick.com/contacts/addauto.asp - but I'm not sure if any can go through folders and create contacts. (the custom action sample would be prefer using run rules now but it need compiled.)
 
Here you go - compliments of at http://www.slovaktech.com



The macro will work in any selected folder on all selected items in that folder.



Any selected mail items will be harvested. Because I wanted to only use the OOM and you didn’t say if this was 2007 or later only, I didn’t use the MAPI properties for SentOnBehalfOf* other than for name. So the email addresses may not be accurate (for example mails sent to mailing lists will show the list address, not the actual sender's address.)



If this were 2007 or later code only I’d use PropertyAccessor to pick up the PR_SENT_REPRESENTING_ADDRTYPE and PR_SENT_REPRESENTING_EMAIL_ADDRESS properties instead of using SenderEmailAddress and SenderEmailAddressType.



A text file of this code is here: http://www.slipstick.com/contacts/_oft/save-addresses-to-contacts.txt


Code:

 
 
' The AddAddressesToContacts procedure can go in any Module
 
 
' Select the mail folder and any items to add to contacts, then run the macro
 
 
Public Sub AddAddressesToContacts()
 
 
Dim folContacts As Outlook.MAPIFolder
 
 
Dim colItems As Outlook.Items
 
 
Dim oContact As Outlook.ContactItem
 
 
Dim oMail As Outlook.MailItem
 
 
Dim obj As Object
 
 
Dim oNS As Outlook.NameSpace

 
 
Dim response As VbMsgBoxResult

 
 
Dim bContinue As Boolean

 
 
Dim sSenderName As String

 
 
On Error Resume Next

 
 
Set oNS = Application.GetNamespace("MAPI")
 
 
Set folContacts = oNS.GetDefaultFolder(olFolderContacts)
 
 
Set colItems = folContacts.Items

 
 
For Each obj In Application.ActiveExplorer.Selection
 
 
If obj.Class = olMail Then
 
 
Set oContact = Nothing

 
 
bContinue = True
 
 
sSenderName = ""

 
 
Set oMail = obj

 
 
sSenderName = oMail.SentOnBehalfOfName
 
 
If sSenderName = "" Then
 
 
sSenderName = oMail.SenderName
 
 
End If

 
 
Set oContact = colItems.Find("[FullName] = '" & sSenderName & "'")

 
 
If Not (oContact Is Nothing) Then
 
 
response = MsgBox("This appears to be an existing contact: " & sSenderName & ". Do you still want to add it as a new conact?", vbQuestion + vbYesNo, "Contact Adder")
 
 
If response = vbNo Then
 
 
bContinue = False
 
 
End If
 
 
End If

 
 
If bContinue Then
 
 
Set oContact = colItems.Add(olContactItem)
 
 
With oContact
 
 
> Body = oMail.Subject

 
 
> Email1Address = oMail.SenderEmailAddress
 
 
> Email1DisplayName = sSenderName
 
 
> Email1AddressType = oMail.SenderEmailType

 
 
> FullName = oMail.SenderName

 
 
> Save
 
 
End With
 
 
End If
 
 
End If
 
 
Next

 
 
Set folContacts = Nothing
 
 
Set colItems = Nothing
 
 
Set oContact = Nothing
 
 
Set oMail = Nothing
 
 
Set obj = Nothing
 
 
Set oNS = Nothing
 
 
End Sub
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
S Outlook 365 Help me create a Macro to make some received emails into tasks? Outlook VBA and Custom Forms 1
A Outlook macro to create search folder with mail categories as criteria Outlook VBA and Custom Forms 3
Tanja Östrand Outlook 2016 - Create Macro button to add text in Subject Outlook VBA and Custom Forms 1
B Macro To Create Rule To Export From Certain Folder Email Information in one workbook multiple sheets Outlook VBA and Custom Forms 0
A Create Macro for hyperlink(email) in message body Outlook VBA and Custom Forms 9
L Macro Create Contact and Save Using Outlook 2
L Macro Create Contact and Save Using Outlook 8
S Macro to create notification emails Using Outlook 1
N Macro to create task Using Outlook 1
S Macro to create a new folder with subject line as the folder name Using Outlook 2
P Please Help me Create a Macro ! Using Outlook 2
S Macro to create a new contact, 2 appointments, and a task Using Outlook 1
R How do I create a macro to put text in certain emails? Outlook VBA and Custom Forms 1
D Create a macro in Outlook to run a rule Outlook VBA and Custom Forms 32
N How Can I create an Outlook Macro to import calendar? Outlook VBA and Custom Forms 1
P How do I create a macro to add contacts from email messages? Outlook VBA and Custom Forms 1
J Macro to create folder in PST file Outlook VBA and Custom Forms 4
G Macro: Create New Message and Auto populate To Field Outlook VBA and Custom Forms 5
S How to create a macro to insert a signature in Outlook 2007 Outlook VBA and Custom Forms 1
S Create Outlook Task from Template and append Body with Email Body Outlook VBA and Custom Forms 4
B Modify VBA to create a RULE to block multiple messages Outlook VBA and Custom Forms 0
J Want to create a button on the nav bar (module add-in) to run code Outlook VBA and Custom Forms 2
B How to create a button that sorts and selects the most recent message with ONE click Using Outlook 2
J PSA: How to create custom keyboard shortcut for "Paste Unformatted Text" in Outlook on Windows Outlook VBA and Custom Forms 1
W Create a Quick Step or VBA to SAVE AS PDF in G:|Data|Client File Outlook VBA and Custom Forms 1
Wotme create email only data file Using Outlook 1
J How to create a drop down user defined field that will appear on an inbox view Outlook VBA and Custom Forms 8
Commodore Any way to create "from-only" account on Outlook 2021? Using Outlook 1
L Capture email addresses and create a comma separated list Outlook VBA and Custom Forms 5
N Can't create NEW GROUP and add/remove a member from existing Group in Outlook Using Outlook 1
NVDon Create new Move To Folder list Outlook VBA and Custom Forms 0
C Create Meeting With Custom Form Outlook VBA and Custom Forms 2
D Create advanced search (email) via VBA with LONG QUERY (>1024 char) Outlook VBA and Custom Forms 2
G Create ordinal numbers for birthday Outlook VBA and Custom Forms 2
O Outlook 365 - How to create / copy a new contact from an existing one? Using Outlook 5
D Create new email from the received Email Body with attachment Outlook VBA and Custom Forms 10
A How to create fixed signatures for aliases that process through GMAIL? Outlook VBA and Custom Forms 0
P Can I create a Rule that sends me an email when I get a Task? Using Outlook 2
M How create a Rule to filter sender's email with more that one @ sign Using Outlook 1
B Can I create a local PST file for SPAM on a drive that is usually disconnected? Using Outlook 3
Chiba Create an appointment for all the members Outlook VBA and Custom Forms 1
S Create a clickable custom column field Outlook VBA and Custom Forms 0
O Create a custom contact form - questions before messing things up... Outlook VBA and Custom Forms 4
L automaticaly create a teams meeting with a sync Using Outlook 0
D Can Exchange Admin Center create a pst for users email/contacts/calendar? Exchange Server Administration 0
S Create A Search Folder That Looks For Message Class? Outlook VBA and Custom Forms 0
F How to create phone number as links in notes of Contacts Using Outlook 2
Nessa Can't create new appointment Using Outlook 1
A Create date folder and move messages daily Outlook VBA and Custom Forms 1
C Create new Message with shared contacts & BCC'ing recipients Outlook VBA and Custom Forms 0

Similar threads

Back
Top