VCard Business Address Line

  • Thread starter Thread starter dz
  • Start date Start date
D

dz

I am programming the VCard with the following code. However, the
Business Address line does not wrap properly. If I edit Business Card
then double click the Business Address line then the address is
properly formatted. Does anyone know how to do this correctly?

Response.AddHeader "content-disposition", "attachment;
filename=Vcard" & Replace(Trim(Last), ".", "") & ".vcf"
Response.ContentType = "application/unknown"

Response.Write "BEGIN:VCARD" & vbcrlf & _
"VERSION:2.1" & vbcrlf & _
"N:" & First & " " & Middle & Last & vbcrlf & _
"FN:" & First & " " & Middle & Last & vbcrlf & _
"TITLE:" & Title & vbcrlf & _
"ORG:Company Name" & vbcrlf & _
"NOTE:" & vbcrlf

Response.Write "TEL;WORK;VOICE:" & Phone & vbcrlf & _
"TEL;WORK;FAX:" & Fax & vbcrlf


Response.Write "ADR;WORK;ENCODING=QUOTED-PRINTABLE:;;" & Address1 &
";" & Address2 & ";" & Address3 & ";" & City & ";" & State & ";" & Zip
& vbcrlf

Response.Write "LABEL;WORK;ENCODING=QUOTED-PRINTABLE:" & Address1 &
"=0D" & Address2 & "=0D" & Address3 & "=0D" & City & ", " &State & " "
& Zip & "=0D=0A" & vbcrlf

Response.Write "URL;WORK:http://www.anslowslaw.com" & vbcrlf & _
"ROLE:Attorney" & vbcrlf & _
"EMAIL;PREF;INTERNET:" & Email & vbcrlf & _
"END:VCARD" & vbcrlf
Response.End
 
You may want to post this "down the hall" in microsoft.public.program_vba -
that is where the programmers tend to hang out and can provide a more expert
answer.

--
Milly Staples [MVP - Outlook]

Post all replies to the group to keep the discussion intact.
How to ask a question: http://support.microsoft.com/KB/555375


After furious head scratching, dz asked:

| I am programming the VCard with the following code. However, the
| Business Address line does not wrap properly. If I edit Business Card
| then double click the Business Address line then the address is
| properly formatted. Does anyone know how to do this correctly?
|
| Response.AddHeader "content-disposition", "attachment;
| filename=Vcard" & Replace(Trim(Last), ".", "") & ".vcf"
| Response.ContentType = "application/unknown"
|
| Response.Write "BEGIN:VCARD" & vbcrlf & _
| "VERSION:2.1" & vbcrlf & _
| "N:" & First & " " & Middle & Last & vbcrlf & _
| "FN:" & First & " " & Middle & Last & vbcrlf & _
| "TITLE:" & Title & vbcrlf & _
| "ORG:Company Name" & vbcrlf & _
| "NOTE:" & vbcrlf
|
| Response.Write "TEL;WORK;VOICE:" & Phone & vbcrlf & _
| "TEL;WORK;FAX:" & Fax & vbcrlf
|
|
| Response.Write "ADR;WORK;ENCODING=QUOTED-PRINTABLE:;;" & Address1 &
| ";" & Address2 & ";" & Address3 & ";" & City & ";" & State & ";" & Zip
| & vbcrlf
|
| Response.Write "LABEL;WORK;ENCODING=QUOTED-PRINTABLE:" & Address1 &
| "=0D" & Address2 & "=0D" & Address3 & "=0D" & City & ", " &State & " "
| & Zip & "=0D=0A" & vbcrlf
|
| Response.Write "URL;WORK:http://www.anslowslaw.com" & vbcrlf & _
| "ROLE:Attorney" & vbcrlf & _
| "EMAIL;PREF;INTERNET:" & Email & vbcrlf & _
| "END:VCARD" & vbcrlf
| Response.End
 
Back
Top