Partilhar via


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

Objeto MailItem

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.