1
我在Outlook框中的VBA中有一个侦听器,用于在从特定电子邮件接收邮件时执行操作。检查发件人电子邮件地址
问题是,如果我收到错误邮件(未发送邮件),那么我的条件运行在没有该属性的邮件上,所以我的方法崩溃。
我不知道这个问题可能是什么。
有没有人有想法,如果我可以测试该属性是否存在或者是否有另一个属性,我可以检查以确定我的发件人是否匹配?
提前感谢
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 = "[email protected]" Then
'Set the yellow flag icon
obj.FlagIcon = olYellowFlagIcon
obj.Save
End If
End If
Next
End Sub