Having some trouble with a run-a-script rule (moving mail based on file type)

[EricSigh]

Hi, sorry if I'm in the wrong place for this, but I've been trying to implement the advice in this article:

Use VBA to move messages with attachments

Use a run a script rule or an ItemAdd macro to look for messages with attachments. When the attachment is a specific file type, do something with the message.

www.slipstick.com

Here is the slightly altered code I'm using:

Sub MoveMail(Item As Outlook.MailItem)


If Item.Attachments.Count > 0 Then


Dim attCount As Long
Dim strFile As String
Dim sFileType As String


attCount = Item.Attachments.Count


For i = attCount To 1 Step -1
      strFile = Item.Attachments.Item(i).FileName
      
      sFileType = LCase$(Right$(strFile, 4))
    
    Select Case sFileType
        Case ".xml"
    ' do something if the file types are found 
    ' this code moves the message
      Item.Move (Session.GetDefaultFolder(olFolderInbox).Folders("Test"))
    
   ' stop checking if a match is found and exit sub
       GoTo endsub
      End Select
  Next i


End If
 
endsub:


  Set Item = Nothing
 
End Sub

I know the author recommends using a stub-macro in order to get the rule to run, I'm just not quite sure where to implement that. Any help is appreciated!

 

[EricSigh]

Sorry I didn't specify, but when I run the rule it just seems like nothing happens.

 

[Diane Poremsky]

Add this macro to the same module as the script then select a message the rule should apply to and run this macro to see if it works.

Sub RunScript()
Dim objApp As Outlook.Application
Dim objItem As Object ' MailItem
Set objApp = Application
Set objItem = objApp.ActiveExplorer.Selection.Item(1)

'macro name you want to run goes here
MoveMail objItem

End Sub

make sure the folder you are moving the message to exists - Is there a subfolder called test in the inbox?

 

[EricSigh]

Add this macro to the same module as the script then select a message the rule should apply to and run this macro to see if it works.

Sub RunScript()
Dim objApp As Outlook.Application
Dim objItem As Object ' MailItem
Set objApp = Application
Set objItem = objApp.ActiveExplorer.Selection.Item(1)

'macro name you want to run goes here
MoveMail objItem

End Sub

make sure the folder you are moving the message to exists - Is there a subfolder called test in the inbox?

Thank you! This immediately fixed it haha, sorry I'm not super familiar with VB. Yes, I created a test folder on my computer to try a few things, it will be changed when I implement this on a user's computer. Follow up question, will this also work for a subfolder within a subfolder? And if so what would the syntax be?

Say I have a test 2 folder within my test folder, I've tried

Item.Move (Session.GetDefaultFolder(olFolderInbox).Folders("Test 2"))

and

Item.Move (Session.GetDefaultFolder(olFolderInbox).Folders("Test").Folders("Test 2"))


I'll be looking for more info on that on slipstick, but thank you for your help so far!

 

[EricSigh]

Thank you! This immediately fixed it haha, sorry I'm not super familiar with VB. Yes, I created a test folder on my computer to try a few things, it will be changed when I implement this on a user's computer. Follow up question, will this also work for a subfolder within a subfolder? And if so what would the syntax be?

Say I have a test 2 folder within my test folder, I've tried

Item.Move (Session.GetDefaultFolder(olFolderInbox).Folders("Test 2"))

and

Item.Move (Session.GetDefaultFolder(olFolderInbox).Folders("Test").Folders("Test 2"))


I'll be looking for more info on that on slipstick, but thank you for your help so far!

Nevermind, I was able to figure it out. Thank you so much for your help!

 

[Diane Poremsky]

Item.Move (Session.GetDefaultFolder(olFolderInbox).Folders("Test").Folders("Test 2"))

This is the one (but it has an extra ')' ) if the folders are
Inbox'
-- Test
---- Test 2

the first would be used if there were two folders at the same level under the inbox.
Inbox
-- Test
-- Test 2