Propriedade ContactItem.EntryID (Outlook)

Retorna uma cadeia de caracteres que representa a identificação de entrada exclusiva do objeto. Somente leitura.

Sintaxe

expression. EntryID

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

Comentários

Essa propriedade corresponde à propriedade de MAPI PidTagEntryId.

Um provedor de repositório MAPI atribui uma cadeia de caracteres de identificação exclusiva quando um item é criado em seu repositório. Assim, a propriedade EntryID não é definida para um item do Outlook até ele ser salvo ou enviado. A identificação de entrada é alterada quando um item é movido para outro repositório, por exemplo, de sua Caixa de Entrada para uma pasta pública do Microsoft Exchange Server ou de um arquivo de Pastas Particulares (.pst) para outro arquivo .pst. As soluções não devem depender da propriedade EntryID para serem exclusivas, a menos que os itens não venham a ser movidos. A propriedade EntryID retorna uma identificação de entrada MAPI de longo prazo. Para obter mais informações sobre entryidsde longo e curto prazo, pesquise Microsoft Learn para PidTagEntryId.

Exemplo

Este exemplo Visual Basic for Applications (VBA) usa a propriedade EntryID para comparar a identificação da entrada de um contato com a identificação da entrada de um contato retornado por uma operação de pesquisa para determinar se os objetos representam o mesmo contato. Substitua o nome de um nome válido de contato na sua pasta Contatos antes de executar este exemplo.

Sub UseEntryID() 
 Dim myNamespace As Outlook.NameSpace 
 Dim myContacts As Outlook.Folder 
 Dim myItem1 As Outlook.ContactItem 
 Dim myItem2 As Outlook.ContactItem 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts) 
 Set myItem1 = myContacts.Items.Find("[FirstName] = ""Dan""") 
 Set myitem2 = myContacts.Items.Find("[FileAs] = ""Wil"" and [FirstName] = ""Dan""") 
 If Not TypeName(myitem2) = "Nothing" Then 
 If myItem1.EntryID = myitem2.EntryID Then 
 MsgBox "These two contact items refer to the same contact." 
 End If 
 Else 
 MsgBox "The contact items were not found." 
 End If 
End Sub

Confira também

Objeto ContactItem

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.