S
Symuser
How do I define Outlook Contacts NOTES field in Outlook 2003? I thought it
is defined as Contacts.Info. Errors is as below
Error: Object doesn't support this property or method: 'Contact.Info'
Code: 800A01B6
Source: Microsoft VBScript runtime error
Here is the part of script:
Set Contact =
olApp.GetNamespace("MAPI").GetDefaultFolder(18).Folders.Item("Symyx").Items.Add
Contact.FirstName = first_name
Contact.LastName = last_name
Contact.Email1Address = email_address
'Contact.HomeTelephoneNumber = oUser.homePhone
'Contact.BusinessAddressStreet = oUser.streetAddress
'Contact.BusinessAddressCity = oUser.l
'Contact.BusinessAddressPostalCode = oUser.postalCode
Contact.BusinessAddressState = state_code
Contact.BusinessAddressCountry = country_name
Contact.BusinessTelephoneNumber = office_phone
'Contact.BusinessFaxNumber = oUser.facsimileTelephoneNumber
'Contact.PagerNumber = oUser.pager
'Contact.CompanyName = oUser.company
Contact.JobTitle = job_title
Contact.Department = dept_no
Contact.OfficeLocation = office_location
Contact.Email1DisplayName = display_name
'Contact.FileAs = oUser.DisplayName
Contact.MobileTelephoneNumber = mobile_phone
Contact.Info = notes
All other attributes mapping works fine except the Contact.Info. What am I
doing wrong?
TIA, Symuser
is defined as Contacts.Info. Errors is as below
Error: Object doesn't support this property or method: 'Contact.Info'
Code: 800A01B6
Source: Microsoft VBScript runtime error
Here is the part of script:
Set Contact =
olApp.GetNamespace("MAPI").GetDefaultFolder(18).Folders.Item("Symyx").Items.Add
Contact.FirstName = first_name
Contact.LastName = last_name
Contact.Email1Address = email_address
'Contact.HomeTelephoneNumber = oUser.homePhone
'Contact.BusinessAddressStreet = oUser.streetAddress
'Contact.BusinessAddressCity = oUser.l
'Contact.BusinessAddressPostalCode = oUser.postalCode
Contact.BusinessAddressState = state_code
Contact.BusinessAddressCountry = country_name
Contact.BusinessTelephoneNumber = office_phone
'Contact.BusinessFaxNumber = oUser.facsimileTelephoneNumber
'Contact.PagerNumber = oUser.pager
'Contact.CompanyName = oUser.company
Contact.JobTitle = job_title
Contact.Department = dept_no
Contact.OfficeLocation = office_location
Contact.Email1DisplayName = display_name
'Contact.FileAs = oUser.DisplayName
Contact.MobileTelephoneNumber = mobile_phone
Contact.Info = notes
All other attributes mapping works fine except the Contact.Info. What am I
doing wrong?
TIA, Symuser