Outlook规则 - 通过规则中的脚本更改电子邮件主题不起作用。

时间:2018-02-21 11:43:16

标签: outlook-vba

我在Outlook中创建了一条规则,可以自动将传入的邮件移动到文件夹并运行脚本来修改主题。

这是规则:

enter image description here

这是我的剧本:

Public Sub RemoveIrDateTime(Item As Outlook.MailItem)
'Item As Outlook.MailItem

    'stringToMatch = "issued at 11/14/17 6:28 PM"

    Set issuedMsg = New RegExp
    Set priSev = New RegExp
    Set iR = New RegExp

    With issuedMsg
        .Pattern = "issued at \d{1,2}/\d{1,2}/\d\d .+"
        .Global = True
        End With

    With priSev
        '.Pattern = "^P\d/S\d - IR"
        .Pattern = "^.+IR"
        .Global = True
        End With

    Item.Subject = issuedMsg.Replace(Item.Subject, "")
    Item.Subject = priSev.Replace(Item.Subject, "IR")
    'Item.Subject = Left(EmItemail.Subject, 60)

    Item.Save

End Sub

当匹配的消息到达时,它会被移动到指定的文件夹,但主题不会更新。

但是,如果我使用'管理规则&警报选项,并针对目标文件夹“事件”运行我的规则,然后文件夹中的电子邮件主题按照我的预期更新。

Outlook中是否存在错误,移动邮件会阻止脚本运行?关于如何解决的任何想法?

0 个答案:

没有答案