小编nox*_*xee的帖子

我正在尝试为Outlook 2010创建一个自定义规则来检查电子邮件的主题,如果它生成正则表达式,则会将其移动到特定文件夹中.

但是,当我运行脚本时,当我尝试获取我要将消息移动到的文件夹的Outlook.Folder对象时,我收到以下错误:

运行时错误'91':
对象变量或未设置块变量

下面是我用来检查电子邮件主题的VBA脚本,如果匹配则将邮件移动到指定的文件夹.

Sub MoveToETS(Item As Outlook.MailItem)
    Dim Subject As String
    Subject = Item.Subject

    Dim FolderToMoveTo As Outlook.Folder
    Set FolderToMoveTo = GetFolder("ETS")

    If (CheckSubject(Subject, "^[Project|Bug] (\d+?) - \[[UPDATE|NEW|RESOLVED]\]")) Then
        Item.Move (FolderToMoveTo)
    End If
End Sub

Function CheckSubject(Subject As String, PatternToCheck As String)
    Dim ObjRegExp As RegExp
    Dim ObjMatch As Match

    Set ObjRegExp = New RegExp
    ObjRegExp.Pattern = PatternToCheck

    If (ObjRegExp.Text(Subject) = True) Then
        CheckSubject = True
    End If

End Function

Function GetFolder(ByVal FolderName As String) As Outlook.Folder …