set vcds to ""
tell application "Mailsmith 1.5"
    set ct to count people of default address book
    tell default address book
        repeat with i from 1 to ct
            set p to person i
            set vcd to vcard of preferred address of p
            set vcds to vcds & vcd
        end repeat
    end tell
end tell
set f to choose file name with prompt "Save as" default name "mailsmithvcds.vcf"
open for access f with write permission
write vcds to f
close access f