显示“新呼叫”对话框,使用户可以拨打指定联系人的主要电话号码。
expression.Dial(ContactItem)
expression 必选。该表达式返回 NameSpace 对象。
ContactItem 可选,Variant 类型。要拨打的联系人的 Contactitem 对象。
以下示例打开“新呼叫”对话框。
Sub DialContact()
'Opens the New Call dialog
Dim olApp As Outlook.Application
Set olApp = Outlook.Application
olApp.GetNamespace("Mapi").Dial
End Sub
以下示例打开带有联系人信息的“新呼叫”对话框。
Sub DialContact()
'Opens the New Call dialog with the contact info
Dim olApp As Outlook.Application
Dim objContact As ContactItem
Set olApp = Outlook.Application
Set objContact = olApp.GetNamespace("Mapi"). _
GetDefaultFolder(olFolderContacts).Items("Jeff Smith")
olApp.GetNamespace("Mapi").Dial objContact
End Sub