Propriedade ContactItem.Email1EntryID (Outlook)

Retorna uma Cadeia de Caracteres que representa a ID de entrada do primeiro endereço de email para o contato. Somente leitura.

Sintaxe

expression. Email1EntryID

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

Comentários

Essa propriedade corresponde à propriedade denominada MAPI dispidEmail1OriginalEntryID.

Se você estiver recebendo essa propriedade em um Microsoft Visual Basic ou o Microsoft Visual Basic para solução Applications (VBA), em virtude de alguns problemas de tipo, em vez de fazer referência diretamente Email1EntryID, você deve obter a propriedade através do objeto PropertyAccessor retornado pela propriedade ContactItem.PropertyAccessor, especificando a propriedade de PidLidEmail1OriginalEntryId de propriedade MAPI e seu namespace de id MAPI. O exemplo de código a seguir no VBA mostra a solução alternativa.

Public Sub GetEmail1EntryID() 
 
 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 EMAIL1_ENTRYID As String = "http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/80850102" 
 
 
 
 Set objContactFolder = Application.Session.GetDefaultFolder(olFolderContacts) 
 
 Set objContactItem = objContactFolder.Items(1) 
 
 Set oPA = objContactItem.PropertyAccessor 
 
 strEntryID = oPA.BinaryToString(oPA.GetProperty(EMAIL1_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

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.