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
Vous devez vous connecter pour publier un commentaire.
Votre dernière ligne doit être
Dans votre
GetFolder
fonction, vous aussi codé en dur le nom du dossier.Ligne se lit comme suit:
Devrait lire: