michelxld said:
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 = "(e-mail address removed)"
.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(olFolderContacts)
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
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?