Compartilhar informações de contato, incluindo o cartão de visita

Use o ForwardAsVcard](.. /.. /.. /api/Outlook.ContactItem.ForwardAsVcard.md) e o método ForwardAsBusinessCard do objeto ContactItem para criar um novo objeto MailItem que contém as informações de contato do ContactItem especificado anexado como um arquivo vCard (.vcf) ou você pode usar o método AddBusinessCard do objeto MailItem para anexar as informações de contato de um ContactItem especificado como um arquivo vCard. Se você usar os métodos ForwardAsBusinessCard ou AddBusinessCard , uma imagem do cartão de visita também será acrescentada ao corpo do item de email se a propriedade BodyFormat do objeto MailItem estiver definida como olFormatHTML.

O exemplo de código a seguir no Microsoft Visual Basic for Applications (VBA) é uma função, ForwardContactItem, que aceita um objeto ContactItem como parâmetro e encaminha o objeto ContactItem como um anexo a um novo item de email. ForwardContactItem primeiro verifica se o objeto é um objeto válido. Se o objeto for válido, ForwardContactItem chamará o método ForwardAsBusinessCard do objeto ContactItem para criar um novo objeto MailItem que tenha as informações de contato anexadas como um vCard. ForwardContactItem em seguida, exibe e retorna o objeto 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.