Méthode NameSpace.CreateContactCard (Outlook)

Crée un instance d’un objet ContactCard pour le contact spécifié par le paramètre AddressEntry.

Syntaxe

expression. CreateContactCard( _Address_ )

expression Variable qui représente un objet « NameSpace ».

Paramètres

Valeur renvoyée

Objet Office.ContactCard créé pour l’utilisateur spécifié.

Remarques

L’objet ContactCard est disponible dans la bibliothèque de types de Microsoft Office. Avant d’appeler CreateContactCard pour créer un contact carte dans Microsoft Outlook, Outlook doit être connecté à une session Outlook.

Le paramètre AddressEntry est un objet AddressEntry qui représente l’un des types AddressEntry suivants définis dans l’énumération OlAddressEntryUserType :

• olExchangeDistributionListAddressEntry

• olExchangeRemoteUserAddressEntry

• olExchangeUserAddressEntry

• olOutlookContactAddressEntry

• olSmtpAddressEntry

Outlook génère l’erreur E_INVALIDARG lorsque vous passez l’une des valeurs OlAddressEntryUserType suivantes en tant qu’argument à la méthode CreateContactCard :

• olExchangeAgentAddressEntry

• olExchangeOrganizationAddressEntry

• olExchangePublicFolderAddressEntry

• olLdapAddressEntry

• olOtherAddressEntry

• olOutlookDistributionListAddressEntry

Exemple

L’exemple de code suivant dans Microsoft Visual Basic pour Applications (VBA) affiche une carte de visite pour l’utilisateur actuel définie par la propriété CurrentUser de l’objet NameSpace .

Vous ne pouvez pas exécuter directement ce code depuis la fenêtre VBA. Pour exécuter le code, cliquez sur l’onglet Développeur, cliquez sur le menu Macros, puis sélectionnez Project1.DisplayContactCardForCurrentUser. Pour plus d’informations sur l’onglet Développeur, voir Exécution en mode Développeur dans 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

Voir aussi

Objet NameSpace

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.