Método NameSpace.CreateContactCard (Outlook)

Cria uma instância de um objeto ContactCard para o contato especificado pelo parâmetro AddressEntry .

Sintaxe

expression. CreateContactCard( _Address_ )

Expressão Uma variável que representa um objeto 'NameSpace'.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
AddressEntry	Obrigatório	AddressEntry	O objeto AddressEntry que representa o usuário para o qual deve ser criado o cartão de visita.

Valor de retorno

O objeto ContactCard que é criado para o usuário especificado.

Comentários

O objeto ContactCard está disponível na biblioteca de tipos do Microsoft Office. Antes de chamar CreateContactCard para criar um cartão de visita no Microsoft Outlook, o Outlook deve estar conectado a uma sessão do Outlook.

O parâmetro AddressEntry é um objeto AddressEntry que representa um dos seguintes tipos AddressEntry definidos na enumeração OlAddressEntryUserType :

• olExchangeDistributionListAddressEntry

• olExchangeRemoteUserAddressEntry

• olExchangeUserAddressEntry

• olOutlookContactAddressEntry

• olSmtpAddressEntry

Outlook aponta o erro E_INVALIDARG quando você passá qualquer um dos seguintes valores OlAddressEntryUserType como um argumento para o método CreateContactCard:

• olExchangeAgentAddressEntry

• olExchangeOrganizationAddressEntry

• olExchangePublicFolderAddressEntry

• olLdapAddressEntry

• olOtherAddressEntry

• olOutlookDistributionListAddressEntry

Exemplo

O exemplo de código a seguir no VBA (Microsoft Visual Basic for Applications) exibe um cartão de visita para o usuário atual definido pela propriedade CurrentUser do objeto NameSpace.

Não é possível executar esse código diretamente pela janela do VBA. Para executar o código, clique na guia Desenvolvedor, clique no menu Macros e selecione Project1.DisplayContactCardForCurrentUser. Para obter mais informações sobre a guia Desenvolvedor, consulte Executar no modo Desenvolvedor do 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

Confira também

Objeto NameSpace

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.