来自Outlook通讯簿

Question

我目前有以下脚本：

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.Session.GetSelectNamesDialog
objMail.Display   'To display address book

这将从Outlook打开全局地址列表。 现在当我单击或双击联系人（无所谓）时，我想要一个包含联系人电子邮件地址的消息框。