如何通过AppleScript获取通讯录中带指定邮件标签的联系人列表

问题根源 #

Contacts（通讯录）的AppleScript字典中，每个联系人（person）的email属性是多值集合，用来存储该联系人下所有的邮箱条目，不是单个值。

• 直接写label of its email时，AppleScript的where筛选逻辑无法自动遍历这个多值集合做包含匹配，因此会返回空集合。
• 写label of its first email时，你明确指定了取第一个邮箱这个单值对象，判断逻辑可以正常运行，但这种写法只会检查联系人的第一个邮箱，会漏掉其余位置存在目标标签邮箱的联系人，结果不完整。

可直接运行的实现代码 #

全版本兼容写法（适配所有macOS版本，稳定性最高） #

-- 替换为你要匹配的目标邮箱标签，注意和系统通讯录的标签文本一致：英文系统默认家庭邮箱标签为"home"，中文系统为"住宅"
set targetEmailLabel to strContactEmailLabelHome -- 直接用你原本定义的变量即可

tell application "Contacts"
    set matchedContacts to {}
    -- 遍历所有联系人
    repeat with per in every person
        set hasMatchedEmail to false
        -- 遍历当前联系人的所有邮箱
        repeat with mailItem in emails of per
            if label of mailItem contains targetEmailLabel then
                set hasMatchedEmail to true
                exit repeat -- 找到1个匹配邮箱就终止当前联系人的检查，避免重复添加
            end if
        end repeat
        if hasMatchedEmail then set end of matchedContacts to contents of per
    end repeat
end tell

return matchedContacts

简化写法（仅支持macOS 10.10及以上较新系统） #

如果不需要兼容非常老的系统，可以直接用some关键字指定集合内任意元素满足条件即可，写法更简洁：

set targetEmailLabel to strContactEmailLabelHome
tell application "Contacts"
    set matchedContacts to every person where (some email of it whose label contains targetEmailLabel) exists
end tell
return matchedContacts

注意事项 #

• 邮箱标签是和系统语言绑定的本地化文本，如果匹配不到优先检查你传入的标签字符串和通讯录里实际显示的标签是否一致。
• 操作通讯录前建议先备份联系人数据，避免误操作导致数据丢失。

内容的提问来源于stack exchange，提问作者Nello Lucchesi