little2do
asked on
Adding a contact item to a public folder using CDO
I am Trying to add a contact item to a public folder using CDO in a VB application. Problem i am having is populating the correct field. eg Business Address City in this case:
‘Ref CDO 1.21 Lib
Set objMessages = objFolder.Messages
Set objContact = objMessages.Add
objContact.Type = "IPM.Contact"
Set objFields = objContact.Fields
objFields.Add CdoPR_DISPLAY_NAME, "CH DISPLAY NAME!"
objFields.Add cdoPR_COMPANY_NAME, "My Company"
objFields.Add &H3A27001E, “London” ‘ Business Address City
objContact.Update True, True
I want the Business Address City field to be populated, so that you can see the address on the General tab of the contact item - however the field that is populated is the City field on the All Fields tab - and doesn’t feature in the business address city field.
Any Thoughts
‘Ref CDO 1.21 Lib
Set objMessages = objFolder.Messages
Set objContact = objMessages.Add
objContact.Type = "IPM.Contact"
Set objFields = objContact.Fields
objFields.Add CdoPR_DISPLAY_NAME, "CH DISPLAY NAME!"
objFields.Add cdoPR_COMPANY_NAME, "My Company"
objFields.Add &H3A27001E, “London” ‘ Business Address City
objContact.Update True, True
I want the Business Address City field to be populated, so that you can see the address on the General tab of the contact item - however the field that is populated is the City field on the All Fields tab - and doesn’t feature in the business address city field.
Any Thoughts
little2do, an EE Moderator will handle this for you.
Moderator, my recommended disposition is:
Refund points and save as a 0-pt PAQ.
DanRollins -- EE database cleanup volunteer
Moderator, my recommended disposition is:
Refund points and save as a 0-pt PAQ.
DanRollins -- EE database cleanup volunteer
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Soultion is :
Set objContact = objFolder.Messages.Add
objContact.Type = "IPM.Contact"
objContact.Subject = "Subject2"
Set objContactFields = objContact.Fields
objContactFields.Add CdoPR_COMPANY_NAME, "Company Name"
objContactFields.Add CdoPR_SURNAME, "Surname"
objContactFields.Add CdoPR_MIDDLE_NAME, "Middle Name"
objContactFields.Add CdoPR_GIVEN_NAME, "Given Name"
' Write Outlook "FileAs" field
objContactFields.Add CdoContact_FileUnder, 8, objContact.Subject, CdoPropSetID3
objContactFields.Add CdoContact_FileUnderID, 3, &HFFFFFFFF, CdoPropSetID3
' Write Outlook "Business Address" fields
strAddress = "Line 1" & Chr(13) & "Line 2" & Chr(13) & "Line 3" & Chr(13) & "Line 4" & Chr(13) & "Line 5"
objContactFields.Add CdoContact_BusinessAddress
objContactFields.Add CdoContact_BusinessAddress
objContactFields.Add CdoContact_BusinessAddress
objContactFields.Add CdoContact_BusinessAddress
objContactFields.Add CdoContact_BusinessAddress
objContactFields.Add CdoContact_BusinessAddress
' Write Outlook "Mailing Address" fields with the same values as the selected address
objContactFields.Add CdoPR_STREET_ADDRESS, "Street"
objContactFields.Add CdoPR_LOCALITY, "Locality"
objContactFields.Add CdoPR_STATE_OR_PROVINCE, "State"
objContactFields.Add CdoPR_POSTAL_CODE, "Postcode"
objContactFields.Add CdoPR_BUSINESS_ADDRESS_COU
objContactFields.Add CdoPR_POSTAL_ADDRESS, strAddress, CdoPropSetID3
' Write Outlook "Selected Address" field
objContactFields.Add CdoContact_SelectedAddress
' Add phone and fax fields
objContactFields.Add CdoPR_BUSINESS_TELEPHONE_N
objContactFields.Add CdoPR_BUSINESS_FAX_NUMBER,
objContactFields.Add CdoPR_COMPANY_MAIN_PHONE_N
objContactFields.Add CdoPR_MOBILE_TELEPHONE_NUM
' Add contact categories
'objContactFields.Add CdoContact_Categories, 8200, "Category", CdoPropSetID5
' Update contact item
objContact.Update True, True