collection, возвращая новую коллекцию, содержащую все элементы из оригинала, которые соответствуют фильтру.
я есть слушатель в 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