I want to check Outlook Contacts to see if a field exists and if not then to
create it. Please can anyone help me with the code for this?

I have tried the following to create a field but without success:

dim objContacts as outlook.application
Set myProp = objContacts.UserProperties.Add("MyNewField", olText)

Please help. Thanks

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

"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?

Hello Paul

sorry , i don't undersand your question

this example controls if a UserProperty named "MyCustomField" exist
(for all contatcs) , and add it if does not exist


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

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

For Each Cible In dossierContacts.Items
Set myProp = Cible.UserProperties("MyCustomField")

If myProp Is Nothing Then
Set myProp = Cible.UserProperties.Add("MyCustomField", olText)
myProp.Value = "My data"
Cible.Save
End If

Next
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

Hello Michel

Thanks for the post - I can now see the light.

Many thanks

Paul

I tried your code - I get an error "'91' object variable or with block
variable not set" when it hits the 'set'. Most frustrating. Ideas

"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