来自Outlook通讯簿的VBScript Msgbox电子邮件
我目前有以下脚本:来自Outlook通讯簿的VBScript Msgbox电子邮件,vbscript,outlook,Vbscript,Outlook,我目前有以下脚本: Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.Session.GetSelectNamesDialog objMail.Display 'To display address book 这将从Outlook中打开全局地址列表。 现在,当我在联系人上单击或双击无关紧要时,我需要一个包含联系人电子邮件地址的messagebox。您可以使用以下代码获取所选联系人: I
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.Session.GetSelectNamesDialog
objMail.Display 'To display address book
这将从Outlook中打开全局地址列表。
现在,当我在联系人上单击或双击无关紧要时,我需要一个包含联系人电子邮件地址的messagebox。您可以使用以下代码获取所选联系人:
If .Display Then
'Recipients Resolved
'Access Recipients using oDialog.Recipients
End If
例如:
Sub ShowContactsInDialog()
Dim oDialog As SelectNamesDialog
Dim oAL As AddressList
Dim oContacts As Folder
Set oDialog = Application.Session.GetSelectNamesDialog
Set oContacts = _
Application.Session.GetDefaultFolder(olFolderContacts)
'Look for the address list that corresponds with the Contacts folder
For Each oAL In Application.Session.AddressLists
If oAL.GetContactsFolder = oContacts Then
Exit For
End If
Next
With oDialog
'Initialize the dialog box with the address list representing the Contacts folder
.InitialAddressList = oAL
.ShowOnlyInitialAddressList = True
If .Display Then
'Recipients Resolved
'Access Recipients using oDialog.Recipients
End If
End With
End Sub