Create an Outlook Contact from Access Data

[Evan M]

Hello,

From my company form in access, I'm looking to create an outlook contact
each time that data is entered. Can someone point me in the right direction
so that i could do this?

Thanks!
Evan Mc
evan AT radiologyonesource DOT com

 

[Rob Oldfield]

You need a reference to the Microsoft Outlook object library....

Dim olApp As Object
Dim olCont As Outlook.ContactItem
Set olApp = CreateObject("Outlook.Application")
Set olCont = olApp.CreateItem(olContItem)

olCont.firstname = ....
olCont.lastname = ....
olCont.Email1Address = ...
olCont.Email1AddressType = "SMTP"
olCont.CompanyName = ....
olCont.BusinessTelephoneNumber = ....
olCont.HomeTelephoneNumber = .....
olCont.Business2TelephoneNumber = ....
olCont.BusinessHomePage = ....

olCont.Save

 

[Evan M]

thank you rob... that will give me something to work with on monday! have a
good new year!

Evan Mc
evan AT radiologyonesource DOT com