CreateVCardFile ( FirstName ; LastName ; CompanyName ; Phone ; Email ; WEB ; hAddress1 ; hAddress2 ; hZip ; hCity ; hCountry ; wAddress1 ; wAddress2 ; wZip ; wCity%2

Create a vCard file on users desktop, ready for launch URL to add contact to address book. Requires troi File plugin.

Average rating: 3.0 (2 votes) Log in to vote

Ole Kristian Ek Hornnes - Show more from this author
ProgramDesign
https://programdesign.no

Sample input:

CreateVCardFile ( "Jhon" ; "Doe" ; "Example Company" ; 12345678 ; "jhon@doe.com" ; "https://jhondoe.com" ; "Main Streent Home 1" ; "Left door" ; "0123" ; "Oslo" ; "Norway" ; "Main Workstreet 1" ; "Left Door" ; 0278 ; "Oslo" ; "Norway" )

Sample output:

/Macintosh HD/Users/ole/Desktop/Jhon_Doe.vcf

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

Let( [
/* This function creates a vCard File on the users Desktop. The file can be lauched with Open URL ( "file:/" & $path ) Returned from this function. 

* * * THSI FUNCTION REQUIRES THE TROI FILE PLUGIN * * *

Written by Ole Kristian Ek Hornnes, 18.02.2018 */

   v = "BEGIN:VCARD¶VERSION:3.0¶PRODID:-//Apple Inc.//Mac OS X 10.12.6//EN¶";
   v = v & "N:" & LastName & ";" & FirstName & ";;;¶";
   v = v & "FN:" & FirstName & " " & LastName & "¶";
   v = v & "ORG:" & CompanyName & ";¶";
   v = v & "EMAIL;type=INTERNET:" & Email & "¶";
   v = v & "TEL;type=IPHONE;type=CELL;type=VOICE;type=pref:" & Substitute(Phone; " "; "") & "¶";
   v = v & "item1.ADR;type=HOME;type=pref:" & Substitute("[a1];[c];[s];[z];[co]"; ["[a1]";hAddress1 & ", " & hAddress2]; ["[c]";hCity]; ["[s]"; ""]; ["[z]"; hZip]; ["[co]"; hCountry]) & "¶";
   v = v & "item1.X-ABADR:no" & "¶";
   v = v & "item2.ADR;type=WORK;type=pref:" & Substitute("[a1];[c];[s];[z];[co]"; ["[a1]";wAddress1 & ", " & wAddress2]; ["[c]";wCity]; ["[s]"; ""]; ["[z]"; wZip]; ["[co]"; wCountry]) & "¶";
   v = v & "item2.X-ABADR:no" & "¶";
   v = v & "X-SOCIALPROFILE;type=WebSite:" & WEB & "¶";
   v = v & "END:VCARD" & "¶";
   v = Substitute (v; "¶"; Char(10));

   fn = Get(DesktopPath) & Substitute ( FirstName & "_" & LastName; [" "; "_"]; ["."; ""];[",";""]) & ".vcf";

   p=Abs(Get(SystemPlatform)) = 1;
   x = If(Left(fn; 1) = "/"; Right(fn; Length(fn)-1); fn); 
   mr= Substitute(x; "/"; ":");
   wr= Substitute(x; "/"; "\\");
   tfn = If(  p ; mr; wr);
   x = TrFile_CreateFile ("-Unused" ; tfn );
   x = TrFile_SetDefaultFileSpec( "-Unused" ; tfn);
   x = TrFile_SetContents( "-Encoding=UTF8" ; v)

];
fn
)

For implementation in a contact register. Use this function in a little two-liners script:

Set Variable $path = CreateVCardFile ( .... )
Open URL ( "file:/" & $path ) ;

Connect it to a button and thats all.

If you dont want to mess up the users desktop, you can change "Get(DesktopPath)" Get(TemporaryPath), or any other desired location of the file.

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

CreateVCardFile ( FirstName ; LastName ; CompanyName ; Phone ; Email ; WEB ; hAddress1 ; hAddress2 ; hZip ; hCity ; hCountry ; wAddress1 ; wAddress2 ; wZip ; wCity%2

Comments

Support this website.

Support this website.