So I had to used both sets of code because running a script via a rule is disabled by the company I work for.

I was able to run the code on selected emails 1 at a time and everything works.

How would I go about tweaking the second part of the code so that it could loop through multiple messages that are selected. I realized this morning that we get the same email every day including Saturday and Sunday. So on Monday you could end up with 3 messages that need to be moved to the file share.

Sub ProcessMessage()
Dim olMsg As MailItem
    On Error Resume Next
   Select Case Outlook.Application.ActiveWindow.Class
      Case olInspector
         Set olMsg = ActiveInspector.currentItem
      Case olExplorer
         Set olMsg = Application.ActiveExplorer.Selection.Item(1)
   End Select
   SaveAttachments olMsg
lbl_Exit:
   Exit Sub
End Sub