Свойство MailItem.SenderEmailAddress (Outlook)

Статья
04/07/2023

Возвращает значение String , представляющее адрес электронной почты отправителя элемента Outlook. Только для чтения.

Синтаксис

выражение. SenderEmailAddress

Выражение Переменная, представляющая объект MailItem .

Замечания

Это свойство соответствует свойству MAPI PidTagSenderEmailAddress.

Пример

В следующем примере Microsoft Visual Basic для приложений (VBA) все элементы в папке с именем Test в папке "Входящие" задается желтый флаг для элементов, отправленных "someone@example.com". Чтобы запустить этот пример без ошибок, убедитесь, что папка Test существует в папке "Входящие " по умолчанию и замените "someone@example.com" допустимым адресом электронной почты отправителя в папке Test.

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

См. также

Объект MailItem

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через