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
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.