Send VCARDs one by one from OS X to legacy Nokia s40

BTSend2Nokia.applescript

property device : "Nokia 515"
tell application "Finder" to set myPath to selection

on sendFile(f)
	-- tell application "Finder" to set fileAlias to selection as alias
	set fileAlias to f as alias
	set fileToSend to fileAlias
	tell application "Finder" to open fileToSend using application file id "com.apple.BluetoothFileExchange"
	activate application "Bluetooth File Exchange"
	tell application "System Events"
		tell process "Bluetooth File Exchange"
			repeat until exists window 1
			end repeat
			select ((row 1 of table 1 of scroll area 1 of window 1) whose value of UI element 2 of UI element 1 is device)
			click button "Send" of window 1
			delay 5 -- experiment here; the BT File Xchange window needs to fully load
		end tell
	end tell
end sendFile

if (count of myPath) is greater than 1 then
	set fileList to every item of myPath
	repeat with f in fileList
		sendFile(f)
	end repeat
else
	sendFile(myPath)
end if

command

./vcard-spli.pl < Contacts.vcf

# select all vcardNNN.vcf files in Finder
# run the Aplescript
# you will have to confirm (or cancel) every single receivec file on the phone

vcard-split.pl

#!/usr/bin/perl

undef $/;
$_ = <>;
$n = 0;

for $match (split(/(?=BEGIN:VCARD)/)) {
    open(O, '>vcard' . ++$n . '.vcf');
    print O $match;
    close(O);
}