Outlook 365 Rule runs manually but returns the error code "an unexpected error has occurred" when incoming mail arrives

[Aussie]

I have read a lot of posts on this problem ... but I can't see the error in my code ...

Microsoft 365 V2205, build 15225.20204

The following VBA macro used to work, and it still works when run manually. A couple of years ago, I am guessing that a change from Microsoft occurred, and it now returns the error code "an unexpected error has occurred" when Outlook automatically runs it. Can someone show me a fix for the rule/VBA that will allow the rule/VBA to:

1. On an incoming email
2. Mark it as high importance
3. Update the subject
4. Set a category “Bill”
5. Set a reminder

Here is the:

Rules description
Apply this rule after the message arrives
With ‘Your credit card statement is ready’ or ‘Your statement is ready for credit card ending’
And on this computer only
Mark it as high importance
And run Damian.PendingPaid1

Here is the VBA:

Sub PendingPaid1(Item As Outlook.MailItem)
Item.Categories = "Bill"
Item.Subject = Item.Subject & " " & Chr(150) & " Pending " & Chr(150) & " PAID " & Chr(150) & " 220"
Item.ReminderSet = True
Item.FlagDueBy = Date + 1 & Space(1) & "8:45 AM" ' Remind 1 day from now.
Item.ReminderTime = Date + 1 & Space(1) & "8:45 AM" ' Remind 1 day from now.
Item.Save

End Sub

 

[Diane Poremsky]

And on this computer only
Mark it as high importance
And run Damian.PendingPaid1

Not sure this is the cause, but when you use a run a script rule, conditions go in the rule and actions should all be in the script.

Item.Importance = olImportanceHigh