Outlook 2010 custom VBA script to move incoming mail message to a specific folder

vba outlook-2010
noxee picture noxee · Apr 8, 2011 · Viewed 15.8k times · Source

I'm trying to create a custom rule for Outlook 2010 that inspect the subject of the email and if it makes a regular expression it's moved into a specific folder.

However when I run the script I get the following error when I try and get an Outlook.Folder object for the folder I want to move the message to:

Run-time error '91':
Object variable or With block variable not set

Below is the VBA script that I am using to check the email subject and move the message to the specified folder if it matches.

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

Answer

paulmorriss picture paulmorriss · Apr 8, 2011

Your last but one line needs to be 

Set GetFolder = ObjFolder

Related questions

Runtime error 287. Sending Emails through Outlook using VBA in Access

I have a case where one user would like to receive notifications of when deliveries are added to an Access Database. The simplest method I could think of was to set up an automated email via Outlook 2010. The following code …

Read More
Using the .Restrict method in Outlook VBA to filter on single recipient email address

I have code in Access that gets all emails in the user's Inbox that are sent by an individual email address. This code (simplified, below) works fine: Dim outItems as Outlook.Items Dim strEMAddress as string Dim outFolder as Outlook.…

Read More
Delete a mailitem permanently in outlook

I'm trying to delete a mailitem using the outlook API. Like the following, Dim objMail For each objMail in objFolder.Items objMail.Delete Next Obviously, deleting an item straight away is to simple. Outlook just move it into the "Deleted …

Read More