Propriedade MailItem.SenderEmailAddress (Outlook)

Devolve uma Cadeia que representa o endereço de e-mail 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 seguinte exemplo do Microsoft Visual Basic for Applications (VBA) dá um ciclo a todos os itens numa pasta com o nome Testar na Caixa de Entrada e define o sinalizador amarelo nos itens enviados por "someone@example.com". Para executar este exemplo sem erros, certifique-se de que a pasta Teste existe na pasta Caixa de Entrada predefinida e substitua "someone@example.com" por um endereço de e-mail 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.