Dial 方法

显示“新呼叫”对话框，使用户可以拨打指定联系人的主要电话号码。

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