导出联系人电子邮件邮寄 [英] Exporting contact emails to mail

问题描述

我一直想了一小会儿，现在创建一个code，将得到所有的电子邮件在我接触所有的人，然后把所有的到电子邮件抄送框中，这样它会发送给所有的人在我的联系人。

i've been trying for a little while now to create a code that will get all the emails for all the people in my contacts, and then put all that into an email in the CC box so that it will send to all the people in my contacts.

感谢任何帮助：）

推荐答案

事情是这样的：

tell application "Contacts"
    set emailLists to value of email of every person
end tell
set bigList to ""
repeat with thisEmailList in emailLists
    repeat with thisAddy in thisEmailList
        set bigList to "" & bigList & (thisAddy as string) & ", "
    end repeat
end repeat
if bigList ends with ", " then set bigList to text 1 thru -3 of bigList

tell application "Mail"
    activate
    set theNewMessage to make new outgoing message with properties {subject:"", content:"", visible:true}
    tell theNewMessage
        make new to recipient at end of cc recipients with properties {address:bigList}
    end tell
end tell

这篇关于导出联系人电子邮件邮寄的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！