expression.Dial(ContactItem)
expression Required. An expression that returns a NameSpace object.
ContactItem Optional Variant. The ContactItem object of the contact you want to dial.
Example
The following Microsoft Visual Basic/Visual Basic for Applications (VBA) example opens the New Call dialog box.
Sub DialContact()
'Opens the New Call dialog
Dim olApp As Outlook.Application
Set olApp = Outlook.Application
olApp.GetNamespace("MAPI").Dial
End Sub
The following Visual Basic for Applications (VBA) example opens the New Call dialog box with the contact's information. To run this example, replace 'Jeff Smith' with a valid contact name.
Sub DialContact()
'Opens the New Call dialog with the contact info
Dim olApp As Outlook.Application
Dim objContact As Outlook.ContactItem
Set olApp = New Outlook.Application
Set objContact = olApp.GetNamespace("MAPI"). _
GetDefaultFolder(olFolderContacts).Items("Jeff Smith")
olApp.GetNamespace("MAPI").Dial objContact
End Sub