Поделиться через

Общий доступ к контактным данным, включая визитную карточку

  • Статья

Используйте ForwardAsVcard](.. /.. /.. /api/Outlook.ContactItem.ForwardAsVcard.md) и метод ForwardAsBusinessCard объекта ContactItem для создания нового объекта MailItem , который содержит контактные данные из указанного Объекта ContactItem , присоединенного в виде VCard (VCF-файла), или можно использовать метод AddBusinessCard объекта MailItem , чтобы вложить контактные данные для указанного ContactItem в виде файла vCard. При использовании методов ForwardAsBusinessCard или AddBusinessCard изображение визитной карточки также добавляется в текст почтового элемента, если свойство BodyFormat объекта MailItem имеет значение olFormatHTML.

Следующий пример кода в Microsoft Visual Basic для приложений (VBA) — это функция , ForwardContactItemкоторая принимает объект ContactItem в качестве параметра и пересылает объект ContactItem в виде вложения в новый почтовый элемент. ForwardContactItem сначала проверяет, является ли объект допустимым объектом. Если объект действителен, ForwardContactItem вызывает метод ForwardAsBusinessCard объекта ContactItem , чтобы создать новый объект 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 и обратная связь.