title: I cannot see my VBA macro in 'run a script' selection box
body: <p>I copied the following code in my oulook VBE, from one of the VBA communities and amended it as per my need.
  I can run it using F5 and F8. Now I would like to run this macro whenever I receive an email in folder1. 
  I tried setting up a rule but I cannot see the macro listed in the 'run a script' selection box. 
  I have already checked that </p>
  
  <ol>
  <li>macro security setting are correct</li>
  <li>macro is in a module not in a class</li>
  </ol>
  
  <p>can you please tell me what is going wrong in the setting.</p>
  
  <pre><code>Public Sub SaveAttachments()
  
      Dim myOlapp As Outlook.Application
      Dim myNameSpace As Outlook.NameSpace
      Dim myFolder As Outlook.MAPIFolder
      Dim yourFolder As Outlook.MAPIFolder
  
      Dim myItem As Outlook.MailItem
      Dim myAttachment As Outlook.Attachment
      Dim I As Long
  
      Set myOlapp = CreateObject("Outlook.Application")
      Set myNameSpace = myOlapp.GetNamespace("MAPI")
      Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
      Set yourFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
  
      Set myFolder = myFolder.Folders("folder1")
      Set yourFolder = yourFolder.Folders("folder2")
  
      For Each myItem In myFolder.Items
          If myItem.Attachments.Count &lt;&gt; 0 Then
              For Each myAttachment In myItem.Attachments
                  I = I + 1
                  myAttachment.SaveAsFile "C:\arthur\test.csv"
  
              Next
          End If
  
          myItem.Move yourFolder
  
      Next
  End Sub
  </code></pre>