連絡先appから書き出した.vcfカードを同じ連絡先appに読み込んだ時、カード内容が反映せず”名前なし”となる

うまく動作するロジックを見つけました。

How Do I Export vCards from Apple Contacts using AppleScript? - Questions & Suggestions - Keyboard Maestro Discourse

これです。

	set HomePath to (path to home folder) as text
	set FolderPath to "temp:"
	set FolderPath1 to HomePath & FolderPath as text
	do shell script "mkdir -p " & POSIX path of FolderPath1
	
	alias FolderPath1
	tell application "Contacts"
		set {contactNames, vCards} to {name, vcard} of people
		quit
	end tell
	set treatedNames to {}
	repeat with i from 1 to (count contactNames)
		set bareName to (item i of contactNames)
		if bareName is in treatedNames then
			set nameOfvCard to bareName & "_" & i & ".vcf"
		else
			set end of treatedNames to bareName
			set nameOfvCard to bareName & ".vcf"
		end if
		set outFile to (open for access file (FolderPath1 & nameOfvCard) with write permission)
		try
			set eof outFile to 0
			write (item i of vCards) to outFile as «class utf8»
		end try
		close access outFile
	end repeat
	

ポイントは、

1. vCardを配列として連絡先appから取り出す。
2. tell application "Contacts"の外でその配列をファイルに書き出す。

これでうまくutf8で書き出してくれるようになりました。

もっといい方法があればお教えください。

よろしくお願いします。