Propiedad ContactItem.EntryID (Outlook)

Devuelve una cadena que representa el identificador único de entrada del objeto. Solo lectura.

Sintaxis

expresión. EntryID

Expresión Variable que representa un objeto ContactItem .

Comentarios

Esta propiedad corresponde a la propiedad MAPI PidTagEntryId.

Un proveedor de almacén MAPI asigna una cadena de identificador único cuando se crea un elemento en su almacén. Por lo tanto, la propiedad EntryID no se establece para un elemento de Outlook hasta que éste se guarda o se envía. EntryID cambia cuando un elemento se mueve a otro almacén, por ejemplo, desde la Bandeja de entrada a una carpeta pública de Microsoft Exchange Server, o desde un archivo de carpetas personales (.pst) a otro archivo .pst. Soluciones no deben depender de la propiedad EntryID sea única, a menos que no se mueven los elementos. La propiedad EntryID devuelve un identificador EntryID MAPI de a largo plazo. Para obtener más información sobre entryIDa largo y corto plazo, busque PidTagEntryId en Microsoft Learn.

Ejemplo:

En este ejemplo de Visual Basic para aplicaciones (VBA) se utiliza la propiedad EntryID para comparar el identificador de entrada de un contacto con el identificador de entrada de un contacto devuelto por una operación de búsqueda para determinar si los objetos representan el mismo contacto. Antes de ejecutar este ejemplo, reemplace el nombre con un nombre de contacto válido en la carpeta Contactos.

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

Consulte también

Objeto ContactItem

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.