Changeing Redemption for outlook to Exchange Server

I wrote some VBA code to add an MS Outlook contact to the current user's PST file using redemption.
They have now upgraded to MS Exchange. (On a cloud server)
What would I have to do differently to add contacts to the user's exchange account?

Attached is a code snipet of what I do now.

Function BeginContactLoadingProcess() As Boolean
Dim myOutlookApp As Outlook.Application
Dim SafeContact As Object
Dim Contact As Object
Set myOutlookApp = CreateObject("Outlook.Application")

Set Contact = myOutlookApp.CreateItem(olContactItem)

Set SafeContact = CreateObject("Redemption.SafeContactItem")

SafeContact.Item = Contact
SafeContact.CompanyName “Joe Pizza”
SafeContact.FileAs =”Joe’s Pizza Parlor”
SafeContact.FirstName = "Joe"
SafeContact.LastName = "Felini”


SafeContact.Close 1
Set SafeContact = Nothing

End function

Open in new window

Who is Participating?
Shawn CøadySVP Information SystemsCommented:
You should be OK... you are interacting with the local instance of Outlook... and Outlook will handle the update to the user's contact list back to the Exchange server.  I do something similar with my app where I use VBA to create appointment's for the user's Outlook calendar.  Our users run Outlook connected to a local Exchange server.  FYI... we are on Exchange 2003 and Office 2003...
Jim Dettman (Microsoft MVP/ EE MVE)President / OwnerCommented:

  I don't know for sure, but I wouldn't think you would need to change anything.  Your still working through Outlook.

  It's handling the accounts and where things are stored.

Jim Dettman (Microsoft MVP/ EE MVE)President / OwnerCommented:

 Scratch that.  I understand the question now.  Your creating something in Redemption, not an Outlook contact.

Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

askolitsAuthor Commented:
I'm running this in a VB app and essentially pushing info into the Exchange contacts for a particular user's contact list
I expect it's handled differently. Probably have to provide the Exchange IP address, user name , password etc..?

Must be some cdo object I have to use in which I have to pass some arguments.
askolitsAuthor Commented:
Been away from this for a while. I need to visit my customer again to see exactly what it's doing. I'll get back to you.
askolitsAuthor Commented:
You were right. User error. (Easy points for you eh?)
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.