Outlook 2010 custom script VBA pour déplacer le courrier entrant message vers un dossier spécifique

Je suis en train de créer une règle personnalisée pour Outlook 2010 qui inspecter l'objet de l'e-mail et si il fait une expression régulière, il est déplacé dans un dossier spécifique.

Cependant lorsque je lance le script j'obtiens l'erreur suivante quand je l'ai essayer et obtenir un Outlook.Objet d'un dossier pour le dossier que je veux déplacer le message:

Erreur d'exécution '91':

Variable objet ou variable bloc with non définie

Ci-dessous le script VBA que j'utilise pour vérifier l'objet de l'email et de déplacer le message vers le dossier spécifié si elle correspond.

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
InformationsquelleAutor noxee | 2011-04-08