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

Метод NameSpace.CreateContactCard (Outlook)

  • Статья

Создает экземпляр объекта ContactCard для контакта, указанного параметром AddressEntry .

Синтаксис

выражение. CreateContactCard( _Address_ )

Выражение Переменная, представляющая объект NameSpace.

Параметры

Имя Обязательный или необязательный Тип данных Описание
AddressEntry Обязательный AddressEntry Объект AddressEntry , представляющий пользователя, для которого создается карточка контакта.

Возвращаемое значение

Объект Office.ContactCard , созданный для указанного пользователя.

Замечания

Объект ContactCard доступен в библиотеке типов Microsoft Office. Перед вызовом CreateContactCard для создания карточки контакта в Microsoft Outlook необходимо войти в сеанс Outlook.

Параметр AddressEntry — это объект AddressEntry , представляющий один из следующих типов AddressEntry , определенных в перечислении OlAddressEntryUserType :

  • olExchangeDistributionListAddressEntry

  • olExchangeRemoteUserAddressEntry

  • olExchangeUserAddressEntry

  • olOutlookContactAddressEntry

  • olSmtpAddressEntry

Outlook вызывает ошибку E_INVALIDARG при передаче любого из следующих значений OlAddressEntryUserType в качестве аргумента методу CreateContactCard :

  • olExchangeAgentAddressEntry

  • olExchangeOrganizationAddressEntry

  • olExchangePublicFolderAddressEntry

  • olLdapAddressEntry

  • olOtherAddressEntry

  • olOutlookDistributionListAddressEntry

Пример

В следующем примере кода в Microsoft Visual Basic для приложений (VBA) отображается карточка контакта для текущего пользователя, определенного свойством CurrentUser объекта NameSpace.

Этот код нельзя запустить непосредственно из окна VBA. Чтобы выполнить код, перейдите на вкладку Разработчик , откройте меню Макросы , а затем выберите Project1.DisplayContactCardForCurrentUser. Дополнительные сведения о вкладке Разработчик см. в разделе Запуск в режиме разработчика в Outlook.

Sub DisplayContactCardForCurrentUser() 
 
 Dim oCC As Office.ContactCard 
 
 Dim oAddrEntry As Outlook.AddressEntry 
 
 Set oAddrEntry = Application.session.CurrentUser.AddressEntry 
 
 Set oCC = Application.session.CreateContactCard(oAddrEntry) 
 
 oCC.Show msoContactCardFull, 100, 100, 100, 100, 100, True 
 
End Sub

См. также

Объект NameSpace

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.