Applescriptは送信先の名前を尋ねて、送信先に記入できますか

私はアドレス帳から人々に送信できるようにしたいと思います。ダイアログでは、誰にメールを送信したいかを伝え、ピーター、ジョン、ジョージなどのように書き込みます。それから私は電子メールを書き、それらの人々にそれを送ります。

ケリー

これはあなたが要求したことをするはずです。入力したユーザー名が複数の連絡先と一致する場合、および選択した連絡先に複数の電子メールアドレスがある場合は、リストから選択するよう求められます。

set recipientList to {}

tell application "Mail"
    activate
    repeat
        set userResponse to display dialog "who would you like to send the email to?" default answer "type address here" buttons {"Cancel", "Add another", "Done"}
        if button returned of userResponse is "Done" then exit repeat
        set the end of recipientList to my findContact(text returned of userResponse)
    end repeat
    set newMessage to make new outgoing message with properties {subject:"", content:"" & return & return}
    tell newMessage
        set visible to true
        repeat with i from 1 to length of recipientList
            make new to recipient at end of to recipients with properties {name:name of item i of recipientList, address:contactAddress of item i of recipientList}
        end repeat
    end tell
end tell

on findContact(userResponse)
    set contactChoiceNames to {}
    set pIDs to {}

    tell application "Contacts"
        set possibleContacts to every person whose name contains userResponse
        repeat with l from 1 to length of possibleContacts
            set the end of contactChoiceNames to name of item l of possibleContacts
            set the end of pIDs to id of item l of possibleContacts
        end repeat
    end tell

    activate --clarify which user you mean
    set contactChoice to item 1 of (choose from list (contactChoiceNames))

    tell application "Contacts"
        repeat with nameIndex from 1 to length of contactChoiceNames
            if contactChoice is item nameIndex of contactChoiceNames then
                set contactData to item nameIndex of possibleContacts
                exit repeat
            end if
        end repeat
        set thisContactData to {name:name of contactData, contactAddress:(value of email of contactData)}
    end tell

    if length of contactAddress of thisContactData > 1 then --clarify which address you want to use
        set addressChoice to item 1 of (choose from list (contactAddress of thisContactData))
    else
        set addressChoice to item 1 of contactAddress of thisContactData
    end if
    set contactAddress of thisContactData to addressChoice
    return thisContactData
end findContact