"michelxld" wrote:


Hello Paul

I hope this help you



Add a contact

Sub AddContactOutlook()
'activate Microsoft Outlook xx.x Object Library
Dim objOutlook As New Outlook.Application
Dim objContact As contactItem

Set objContact = objOutlook.createItem(olContactItem)

With objContact
.email1Address = "
.FirstName = "firstName"
.lastName = "lastName"
.homeTelephoneNumber = "00 00 00 00 00"
.homeAddressCity = "theCity"
.Save
End With
End Sub



control if a firstName exist in the contacts list

Sub controleFirstName_contactsOutlook()
'activate Microsoft Outlook xx.x Object Library
Dim olApp As New Outlook.Application
Dim Cible As Outlook.contactItem
Dim dossierContacts As Outlook.MAPIFolder

Set olApp = New Outlook.Application
Set dossierContacts =
olApp.GetNamespace("MAPI").GetDefaultFolder(olFold erContacts)

Set Cible = dossierContacts.Items.Find("[FirstName] = ""firstName""")
If Not Cible Is Nothing Then
MsgBox "Exist"
Else
MsgBox "Does not exist"
End If
End Sub



Regards,
michel


--
michelxld
------------------------------------------------------------------------
michelxld's Profile: http://www.excelforum.com/member.php...o&userid=17367
View this thread: http://www.excelforum.com/showthread...hreadid=478209


Thank you michelxd but this is not what I was after.

I have about 250 contacts in Outlook. I also have an Excel address book that
I have created with about 50 fields, 6 of which do not appear in the
'standard' Outlook list of contact fields.

For instance my Excel address book has fields for the details of a partner's
name ie Title2, FirstName2, LastName2, Birthday2 etc.

What I want to do is to create extra fields for each contact in the Outlook
contacts so that I can upload the Excel field values into Outlook.
For example, if my first contact is 'FileAs' = "Bloggs, Fred" then I wish to
add a field entitled "Title2" for that contact and enter the value "Mrs", add
the filed "FirstName2" and enter the value "Freda", add the field "LastName2"
and enter the value "Bloggs".

I can add a UserProperty field to the ContactsFolder but cannot get to add
the field into each contact.

Any ideas please?