Partager via

Partager les informations de contact, y compris la carte de visite

  • Article

Utilisez forwardAsVcard](.. /.. /.. /api/Outlook.ContactItem.ForwardAsVcard.md) et la méthode ForwardAsBusinessCard de l’objet ContactItem pour créer un objet MailItem qui contient les informations de contact de l’objet ContactItem spécifié joint sous forme de fichier vCard (.vcf), ou vous pouvez utiliser la méthode AddBusinessCard de l’objet MailItem pour joindre les informations de contact d’un objet ContactItem spécifié en tant que fichier vCard. Si vous utilisez les méthodes ForwardAsBusinessCard ou AddBusinessCard , une image de la carte de visite est également ajoutée au corps de l’élément de courrier si la propriété BodyFormat de l’objet MailItem a la valeur olFormatHTML.

L’exemple de code suivant dans Microsoft Visual Basic pour Applications (VBA) est une fonction, ForwardContactItem, qui accepte un objet ContactItem en tant que paramètre et transfère l’objet ContactItem en tant que pièce jointe à un nouvel élément de courrier. ForwardContactItem Vérifie d’abord si l’objet est un objet valide. Si l’objet est valide, ForwardContactItem appelle la méthode ForwardAsBusinessCard de l’objet ContactItem pour créer un objet MailItem dont les informations de contact sont jointes en tant que vCard. ForwardContactItem affiche et renvoie ensuite l’objet MailItem .

Private Function ForwardContactItem(objContactItem As Outlook.ContactItem) As Outlook.MailItem 
 
 Dim objMailItem As MailItem 
 
 On Error GoTo ErrRoutine 
 
 If objContactItem Is Nothing Then 
 ForwardContactItem = Nothing 
 Else 
 ' Forward the contact item, including a business card 
 ' image, and display the new MailItem object. 
 Set objMailItem = objContactItem.ForwardAsBusinessCard 
 objMailItem.Display 
 ForwardContactItem = objMailItem 
 End If 
 
EndRoutine: 
 Exit Function 
 
ErrRoutine: 
 MsgBox Err.Number & " - " & Err.Description, _ 
 vbOKOnly Or vbCritical, _ 
 "ForwardContactItem" 
 GoTo EndRoutine 
End Function

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.