Freigeben über

Freigeben von Kontaktinformationen einschließlich der Visitenkarte

  • Artikel

Verwenden Sie die ForwardAsVcard](.. /.. /.. /api/Outlook.ContactItem.ForwardAsVcard.md) und die ForwardAsBusinessCard-Methode des ContactItem-Objekts , um ein neues MailItem-Objekt zu erstellen, das die Kontaktinformationen aus dem angegebenen ContactItem-Objekt enthält, das als vCard-Datei (VCF) angefügt ist, oder Sie können die AddBusinessCard-Methode des MailItem-Objekts verwenden, um die Kontaktinformationen für ein angegebenes ContactItem-Objekt als vCard-Datei anzufügen. Wenn Sie die ForwardAsBusinessCard - oder AddBusinessCard-Methode verwenden, wird auch ein Bild der Visitenkarte an den Textkörper des E-Mail-Elements angefügt, wenn die BodyFormat-Eigenschaft des MailItem-Objekts auf olFormatHTML festgelegt ist.

Das folgende Codebeispiel in Microsoft Visual Basic for Applications (VBA) ist eine Funktion, ForwardContactItem, die ein ContactItem-Objekt als Parameter akzeptiert und das ContactItem-Objekt als Anlage an ein neues E-Mail-Element weiterleitet. ForwardContactItem überprüft zuerst, ob das Objekt ein gültiges Objekt ist. Wenn das Objekt gültig ist, ruft ForwardContactItem die ForwardAsBusinessCard -Methode des ContactItem -Objekts auf, um ein neues MailItem -Objekt zu erstlellen, an das die Kontaktinformationen als vCard angehängt sind. ForwardContactItem gibt anschließend das MailItem -Objekt zurück und zeigt es an.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.