Problems with code


Gustavo Strabeli


I'm using below code in order to have Outlook adding email addresses to my
contacts folder.
So here's the problem: adresses are being added to my contacts however it's
inserting quotes before and after the address.
I don't know nothing about VBA, but analysing the code I deleted the Chr(34)
from the code and this problem was solved, however another problem
was raised: now all my contacts are being duplicated.
Do you know how to fix that? I mean, delete the quotes and don't have the
contacts duplicated?

Thanks a lot,


The code:

Sub AddRecipToContacts(objMail As Outlook.MailItem)
Dim strFind As String
Dim strAddress As String
Dim objNS As Outlook.NameSpace
Dim colContacts As Outlook.Items
Dim objContact As Outlook.ContactItem
Dim objRecip As Outlook.Recipient
Dim i As Integer
On Error Resume Next

' get Contacts folder and its Items collection
Set objNS = Application.GetNamespace("MAPI")
Set colContacts = _

' process message recipients
For Each objRecip In objMail.Recipients

' check to see if the recip is already in Contacts
strAddress = AddQuote(objRecip.Address)
For i = 1 To 3
strFind = "[Email" & i & "Address] = " & _
Set objContact = colContacts.Find(strFind)
If Not objContact Is Nothing Then
Exit For
End If

' if not, add it
If objContact Is Nothing Then
Set objContact = _
With objContact
.FullName = objRecip.Name
.Email1Address = strAddress
End With
End If
Set objContact = Nothing

Set objNS = Nothing
Set objContact = Nothing
Set colContacts = Nothing
End Sub

Function AddQuote(MyText) As String
AddQuote = Chr(34) & MyText & Chr(34)
End Function



Michael Bauer [MVP - Outlook]

I assume you have a lot of contacts already stored with quotes. Delete all
those contacts and run your code again. Then you should end up only with
addresses without quotes.

Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <>

Am Wed, 27 May 2009 11:03:45 -0300 schrieb Gustavo Strabeli:

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question