Create vcard and vcalendar from Access database

I've created an online contact database and calendar of events database using MS Access. I'd like them to be able to "Click here to add to Outlook Address Book," and "Click here to add to your Outlook Calendar." Now I have to create the vcard or vcalendar in outlook, save it, upload it, and link it.

Comments

hey where is the link for this...

February 24, 2005 by Mohan Ekambaram

i'm not able to find the download link to test it out....i

hmm

September 7, 2005 by M Ronnie

hmm

RE: hmm

November 7, 2005 by Mark Drelinger

ditto... where is the link for this one ?

Here's How I did it...

March 24, 2006 by Elizabeth Murphy

Here is some sample code for how I did this for my own Database (vCard only) Private Sub cmdVcard_Click() Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fs, f, ts, s ActiveControl.Hyperlink.CreateNewDocument "C:\Temp\test.vcf", True, True Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile("C:\Temp\test.vcf") Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) ts.writeLine "begin:vcard" ts.writeLine "fn:" & Me![First Name] & " " & Me![Last Name] ts.writeLine "n:" & Me![Last Name] & ";" & Me![First Name] ts.writeLine "tel;home;voice:" & Me![Home Phone] ts.writeLine "tel;cell;voice:" & Me![Mobile Phone] ts.writeLine "tel;work;voice:" & Me![Work Phone] ts.writeLine "adr;home:;" & Me![AddressEntry].Form![Address1] & ";" & _ Me![AddressEntry].Form![Address2] & ";" & _ Me![AddressEntry].Form![City] & ";" & Me![AddressEntry].Form![State] & _ ";" & Me![AddressEntry].Form![Zip Code] & ";" & Me![AddressEntry].Form![Country] ts.writeLine "email;internet:" & Me![Email Address] ts.writeLine "ts.write version:2.1" ts.writeLine "End: vcard" ts.Close End Sub

See all 5 Comments

You must me logged in to write a comment.