Propiedad ContactItem.Email3EntryID (Outlook)

Devuelve una cadena que representa el identificador de entrada de la tercera entrada de correo electrónico del contacto. Solo lectura.

Sintaxis

expresión. Email3EntryID

Expresión Variable que representa un objeto ContactItem .

Comentarios

Esta propiedad corresponde a la propiedad con nombre dispidEmail3OriginalEntryID de MAPI.

Si recibe esta propiedad en una de Microsoft Visual Basic o Microsoft Visual Basic para solución de aplicaciones (VBA), debido a algunos problemas de tipo, en lugar de referencia directamente a Email3EntryID, debería obtener la propiedad mediante el objeto PropertyAccessor devuelto por la propiedad ContactItem.PropertyAccessor, especificar la propiedad de PidLidEmail3OriginalEntryId de propiedad MAPI y su espacio de nombres de identificador MAPI. El siguiente ejemplo de código de VBA muestra la solución alternativa.

Public Sub GetEmail3EntryID() 
 
 Dim objContactFolder As Outlook.Folder 
 
 Dim objContactItem As Outlook.ContactItem 
 
 Dim objRec As Outlook.Recipient 
 
 Dim strEntryID As String 
 
 Dim oPA As Outlook.PropertyAccessor 
 
 Const EMAIL3_ENTRYID As String = "http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/80A50102" 
 
 
 
 Set objContactFolder = Application.Session.GetDefaultFolder(olFolderContacts) 
 
 Set objContactItem = objContactFolder.Items(1) 
 
 Set oPA = objContactItem.PropertyAccessor 
 
 strEntryID = oPA.BinaryToString(oPA.GetProperty(EMAIL3_ENTRYID)) 
 
 Debug.Print strEntryID 
 
 Set objRec = Application.Session.GetRecipientFromID(strEntryID) 
 
 If objRec Is Nothing Then 
 
 Debug.Print "GetRecipientFromID failed" 
 
 Else 
 
 Debug.Print objRec.Name 
 
 Debug.Print objRec.EntryID 
 
 End If 
 
 
 
 'Cleanup 
 
 Set objContactItem = Nothing 
 
 Set objContactFolder = Nothing 
 
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.