Propriedade MailItem.SenderEmailAddress (Outlook)
Retorna uma Cadeia de Caracteres que representa o endereço de email do remetente do item do Outlook. Somente leitura.
Sintaxe
expressão. SenderEmailAddress
expressão Uma variável que representa um objeto MailItem.
Comentários
Essa propriedade corresponde à propriedade de MAPI PidTagSenderEmailAddress.
Exemplo
O exemplo de VBA (Microsoft Visual Basic for Applications) a seguir loops todos os itens em uma pasta chamada Teste na caixa de entrada e define o sinalizador amarelo em itens enviados por 'someone@example.com'. Para executar este exemplo sem erros, verifique se a pasta Teste existe na pasta caixa de entrada padrão e substitua 'someone@example.com' por um endereço de email de remetente válido na pasta Teste.
Sub SetFlagIcon()
Dim mpfInbox As Outlook.Folder
Dim obj As Outlook.MailItem
Dim i As Integer
Set mpfInbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("Test")
' Loop all items in the Inbox\Test Folder
For i = 1 To mpfInbox.Items.Count
If mpfInbox.Items(i).Class = olMail Then
Set obj = mpfInbox.Items.Item(i)
If obj.SenderEmailAddress = "someone@example.com" Then
'Set the yellow flag icon
obj.FlagIcon = olYellowFlagIcon
obj.Save
End If
End If
Next
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.