通过

MailItem.SenderEmailAddress 属性 (Outlook)

  • 项目

返回一个 字符串 ，表示 Outlook 项目发件人的电子邮件地址。 此为只读属性。

语法

expression。 SenderEmailAddress

expression 表示 MailItem 对象的变量。

备注

此属性对应于 PidTagSenderEmailAddress 的 MAPI 属性。

示例

以下 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。