Move Email with Attachment to Folder

[drivetheory]

Idk why this isn't working...

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 ".doc"
    ' do something if the file types are found
    ' this code moves the message
      Item.Move (Session.GetDefaultFolder(olFolderInbox).Folders("BADSTUFF"))
    
   ' stop checking if a match is found and exit sub
       GoTo endsub
      End Select
  Next i

End If
 
endsub:

  Set Item = Nothing
 
End Sub

it's basically the code verbatim from here:

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

But for whatever reason i can't test it in the VBA editor window, and when I add it to a rule it still doesn't do anything.

what am I doing wrong?

 

[Diane Poremsky]

you need to use a 'stub macro' to test the rule manually.

Select a message and run this macro -

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

In VBE's tools > options > general - is it set to break on all unhandled errors?

 

[saurabhjha]

Hello,

• firstly, create a folder
• Open the mail
• Download the attachments
• then select the downloaded file to desire location

 

[jessewalter375]

To save the attachments, follow these general steps:

1.Select the message or open the message in its own window.

2.Double-click a message in the Inbox to open it in its own window.

3.Choose File→Save Attachments from the menu.

4.The command may be subtly different, depending on your e-mail program, but generally it’s found on the File menu.

5.Use the dialog box to find a location for the file.

6.Use the Browse button to change the folder location.

7.Click the Save button to save the attachment.

Hope this is helpful to you.