Replies Back to Article

Create vcard and vcalendar from Access database

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

Formatting

March 24, 2006 by Elizabeth Murphy

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