我正在尝试为 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
Dim ObjFolder As Outlook.Folder
Set ObjFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("ETS")
GetFolder = ObjFolder
End Function