共享联系人信息，包括名片

使用 ForwardAsVcard] (./../../api/Outlook.ContactItem.ForwardAsVcard.md) 和 ContactItem 对象的 ForwardAsBusinessCard 方法创建一个新的 MailItem 对象，其中包含作为 vCard (.vcf) 文件附加的指定 ContactItem 中的联系人信息，或者可以使用 MailItem 对象的 AddBusinessCard 方法将指定 ContactItem 的联系信息附加为 vCard 文件。 如果使用 ForwardAsBusinessCard 或 AddBusinessCard 方法，如果 MailItem 对象的 BodyFormat 属性设置为 olFormatHTML，则名片的图像也会追加到邮件项目的正文中。

Microsoft Visual Basic for Applications (VBA) 中的以下代码示例是一个函数，ForwardContactItem它接受 ContactItem 对象作为参数，并将 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。