Contacts, Outlook 2000 and Exchange 2003

Manfred · Joined: 05 Aug 2007 Posts: 1

Hi,

don't know if this is the right place for this question,
but hope someone can help me.

Some years ago I've written a VB6 program that
synchronizes calendar and contacts data between our
proprietary database and Outlook 2000 with EXS 5.5 behind.
That worked very well.

Now we are about to move to EXS 2003, but there I have a
problem writing contact data to Outlook. Everything works
well with appointments and tasks, but during synchronizing
contacts, it stops - at different contact items, at
different times with different error messages - but at the
same line in code.

That's the code:
Dim newItem As Outlook.ContactItem

Set newItem = Connector.outlookFolder.Items.Add
(olContactItem)
'Set newItem = OlItem

newItem.FirstName = Me.FirstName
newItem.LastName = Me.LastName
newItem.JobTitle = Me.JobTitle
newItem.CompanyName = Me.CompanyName
newItem.BusinessAddressStreet = Me.BusAddrStreet
newItem.BusinessAddressCity = Me.BusAddrCity
newItem.BusinessAddressPostalCode = Me.BusAddrZIP
newItem.BusinessAddressCountry = Me.BusAddrCountry
newItem.BusinessHomePage = Me.BusHomepage
newItem.BusinessTelephoneNumber = convertPhoneNumber
(Me.BusTel1, CONVERT_CMC_OL)
newItem.BusinessFaxNumber = convertPhoneNumber
(Me.BusFax, CONVERT_CMC_OL)
newItem.HomeAddressStreet = Me.HomeAddrStreet
newItem.HomeAddressCity = Me.HomeAddrCity
newItem.HomeAddressPostalCode = Me.HomeAddrZIP
newItem.HomeAddressCountry = Me.HomeAddrCountry
newItem.HomeTelephoneNumber = convertPhoneNumber
(Me.HomeTel1, CONVERT_CMC_OL)
newItem.HomeFaxNumber = convertPhoneNumber(Me.HomeFax,
CONVERT_CMC_OL)
newItem.Email1Address = Me.EMail1
newItem.Body = Me.Notes
If Me.Birthday "00:00:00" Then
newItem.Birthday = Me.Birthday
End If
newItem.MobileTelephoneNumber = convertPhoneNumber
(Me.Mobile, CONVERT_CMC_OL)
newItem.Business2TelephoneNumber = convertPhoneNumber
(Me.BusTel2, CONVERT_CMC_OL)
newItem.BusinessAddressPostOfficeBox = Me.BusAddrPOBox
newItem.Email2Address = Me.EMail2
newItem.Home2TelephoneNumber = convertPhoneNumber
(Me.HomeTel2, CONVERT_CMC_OL)
newItem.HomeAddressPostOfficeBox = Me.HomeAddrPOBox
newItem.MiddleName = Me.MiddleName
newItem.Profession = Me.Profession
newItem.Title = Me.Title
If Me.fullName "" Then
newItem.fullName = Me.fullName
End If

newItem.Save

Set newItem = Nothing

It stops at newItem.Save.

I tested it on different computers with different
configurations, but it always goes down to the same
problem. If I connect to the EXS 5.5 it works, if I
connect to EXS 2003 it doesn't.

Any ideas?

Thank you
Manfred

Archived from group: microsoft>public>exchange>applications

exchange 2000 & Defualt user contacts folder - Please help I'm writing store event sink ( OnSave event ) in user mailbox. Is it possible to know the name of the default contact folder (without mapi session)? Thanks, Gil

HELP!! - Outlook and Exchange 2000 Hi there, I have just setup a new Exchange 2000 server. I have created a user in AD Users and Computers and setup an Exchange mailbox for that user. When I log on as the user on to the domain from another PC and open Outlook, I go through the setup proces

Outlook Mobile Access on Exchange 2003 Hi, I get the following error message in the Application Event log when I try to start an OMA session. MSExchangeOMA Outlook Mobile Access Browse Application could not initialize its performance monitor counters because of the following error: Requested r

Win98 clients with Outlook 2000 can't send. Greetings I have a customer with a Win2K SBS running Exchange 2K. All has been running sweetly for a month or two. However, this morning, when the client machines running Win98SE and using Outlook 2000 attempt to send, the following message appears. "The

Loop through Contacts After many tries I seem to have failed in putting the code together to loop through all contacts. the following snippet is from Sue Moshers' excellent book but I am lost as to how; 1. To declare objFolder and objItem 2. To set objItem Dim objApp As Outloo