Outlook) (MailItem.SenderEmailAddress 屬性

會傳回 String ，代表 Outlook 專案寄件者的電子郵件地址。 唯讀。

語法

expression。 SenderEmailAddress

表達 代表 MailItem 物件的 變數。

註解

這個屬性會對應到 MAPI 屬性 PidTagSenderEmailAddress。

範例

下列 Microsoft Visual Basic for Applications (VBA) 範例會在收件匣中名為 Test 的資料夾中迴圈所有專案，並在 'someone@example.com ' 所傳送的專案上設定黃色旗標。 若要在不發生錯誤的情況下執行此範例，請確定 [測試] 資料夾存在於預設的 [收件匣 ] 資料夾中，並將 ' 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 支援與意見反應。