共用連絡人資訊，包括名片

使用ForwardAsVcard] (.。/../../api/Outlook.ContactItem.ForwardAsVcard.md) 和ContactItem物件的ForwardAsBusinessCard方法，可建立新的MailItem物件，其中包含指定ContactItem連接為 vCard (.vcf) 檔案的連絡人資訊，或者您可以使用MailItem物件的AddBusinessCard方法，將指定ContactItem的連絡人資訊附加為 vCard 檔案。 如果您使用ForwardAsBusinessCard或AddBusinessCard方法，如果MailItem物件的BodyFormat屬性設定為olFormatHTML，也會將名片的影像附加至訊息項目的本文。

下列 Microsoft Visual Basic for Applications (VBA) 程式碼範例是接受ContactItem物件做為參數的函 ForwardContactItem 式，並將ContactItem物件轉送為新訊息項目的附件。 ForwardContactItem 先檢查 物件是否為有效的 物件。 如果物件有效， ForwardContactItem 請呼叫ContactItem物件的ForwardAsBusinessCard方法，以建立新的MailItem物件，該物件會將連絡人資訊附加為 vCard。 ForwardContactItem 然後顯示並傳回 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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。