共用方式為


NameSpace.CreateContactCard Method (Outlook)

Creates an instance of a ContactCard object for the contact that is specified by the AddressEntry parameter.

Version Information

Version Added: Outlook 2010

Syntax

expression .CreateContactCard(Address)

expression A variable that represents a NameSpace object.

Parameters

Name

Required/Optional

Data Type

Description

AddressEntry

Required

AddressEntry

The AddressEntry object that represents the user for whom the contact card is to be created.

Return Value

The Office.ContactCard object that is created for the specified user.

Remarks

The ContactCard object is available in the type library of Microsoft Office. Before calling CreateContactCard to create a contact card in Microsoft Outlook, Outlook must be logged into an Outlook session.

The AddressEntry parameter is an AddressEntry object that represents one of the following AddressEntry types defined in the OlAddressEntryUserType enumeration:

  • olExchangeDistributionListAddressEntry

  • olExchangeRemoteUserAddressEntry

  • olExchangeUserAddressEntry

  • olOutlookContactAddressEntry

  • olSmtpAddressEntry

Outlook raises the E_INVALIDARG error when you pass any of the following OlAddressEntryUserType values as an argument to the CreateContactCard method:

  • olExchangeAgentAddressEntry

  • olExchangeOrganizationAddressEntry

  • olExchangePublicFolderAddressEntry

  • olLdapAddressEntry

  • olOtherAddressEntry

  • olOutlookDistributionListAddressEntry

Example

The following code sample in Microsoft Visual Basic for Applications (VBA) displays a Contact Card for the current user defined by the CurrentUser property of the NameSpace object.

You cannot run this code directly from the VBA window. To run the code, click the Developer tab, click the Macros menu, and then select Project1.DisplayContactCardForCurrentUser. For more information about the Developer tab, see Run in Developer Mode in Outlook.

Sub DisplayContactCardForCurrentUser() 
 
 Dim oCC As Office.ContactCard 
 
 Dim oAddrEntry As Outlook.AddressEntry 
 
 Set oAddrEntry = Application.session.CurrentUser.AddressEntry 
 
 Set oCC = Application.session.CreateContactCard(oAddrEntry) 
 
 oCC.Show msoContactCardFull, 100, 100, 100, 100, 100, True 
 
 End Sub 
 

See Also

Concepts

NameSpace Object Members

NameSpace Object