property myOutputDirectory : "/Users/jomcmani/Desktop/Addresses" tell application "Address Book" set indexFile to my blankFile("index.html") my out("
", indexFile) my out("| ", thisPage)
if the image of thePerson exists then
set thePicture to the image of thePerson as TIFF picture
my out(" | |
| " & label of phone [y] of thePerson as string) & " | ", thisPage) my out(("" & value of phone [y] of thePerson as string) & " |
| " & label of email [y] of thePerson as string) & " | ", thisPage) my out(("" & value of email [y] of thePerson as string) & " |
| AIM | ", thisPage) my out(("" & value of AIM Handle [y] of thePerson as string) & " |
| Yahoo | ", thisPage) my out(("" & value of Yahoo handle [y] of thePerson as string) & " |
| MSN | ", thisPage) my out(("" & value of MSN handle [y] of thePerson as string) & " |
| ICQ | ", thisPage) my out(("" & value of ICQ handle [y] of thePerson as string) & " |
| Jabber | ", thisPage) my out(("" & value of Jabber handle [y] of thePerson as string) & " |
| " & label of address [y] of thePerson as string) & " | ", thisPage) if (street of address [y] of thePerson is not missing value) then my multiLineOut(("" & street of address [y] of thePerson as string), thisPage) end if if (city of address [y] of thePerson is not missing value) then my out((city of address [y] of thePerson as string) & ",", thisPage) end if if (state of address [y] of thePerson is not missing value) then my out((state of address [y] of thePerson as string) & " ", thisPage) end if if (zip of address [y] of thePerson is not missing value) then my out((zip of address [y] of thePerson as string) & " |
| birthday | ", thisPage) my out(("" & month of (birth date of thePerson as date) as string), thisPage) my out((day of (birth date of thePerson as date) as string) & ", ", thisPage) my out((year of (birth date of thePerson as date) as string) & " |
| " & label of custom date [y] in thePerson as string) & " | ", thisPage) my out(("" & month of (value of custom date [y] of thePerson as date) as string), thisPage) my out((day of (value of custom date [y] of thePerson as date) as string) & ", ", thisPage) my out((year of (value of custom date [y] of thePerson as date) as string) & " |
| note | ", thisPage) my multiLineOut(("" & note of thePerson as string) & " |