Applescript使用Microsoft Outlook联系人填充对话框列表

时间:2011-05-01 13:53:49

标签: applescript

所有

我正在尝试创建一个允许我创建word文档(商业提案)的AppleScript。一部分是能够使用applescript从micorsoft outlook中选择客户端。

我知道如何在VBA中执行此操作但在Applescript中我似乎无法弄明白。基本上我需要一个对话框,其中包含我所有Outlook联系人的列表,我可以从中选择一个。

非常感谢, -J

1 个答案:

答案 0 :(得分:1)

快速又脏,但这有效(Office 2008)

tell application "Microsoft Entourage"

    set contactList to {}
    set lastContact to (count contacts)
    repeat with thisContact from 1 to lastContact
        set theContact to item thisContact of contacts
        set end of contactList to (first name of theContact & " " & last name of theContact)
    end repeat

    set contactSelected to (choose from list contactList with prompt "Please select a contact." without multiple selections allowed) as text

    if (contactSelected is not "False") then
        display dialog contactSelected
    end if

end tell

脚本基本上有两个部分:获取联系人姓名和提供信息。获取联系人很容易,因为contacts是应用程序本身的属性。在40多个联系人中运行它只需要一秒钟。

呈现数据并获得选择并不是那么明显。要呈现的数据具有为字符串。老实说,我忘记了为什么我as text悬挂在最后,但我似乎记得,如果所有内容都被处理为某种类型的字符串,那么这样做会更容易。一旦选择被验证 - 返回“False”意味着用户点击了cancel按钮 - 然后您可以继续使用我放置display dialog的字符串。不幸的是,你没有获得行号或任何方便的东西。它只是不起作用,所以你必须做一些捏造才能回到相应的contact对象本身。

添加盐味......