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”
Set SafeContact = Nothing