VBA to copy mail with attachments

[gmayor]

You have defined myAtt as an attachment not a collection of attachments. You need something like the following - see the comment about the folder location and the additional lines of code. The folder location will depend where the folder is located, but "MNS" is not a valid default folder.

Public Sub MoveMNS1(Item As Outlook.MailItem)
Dim myAtt As Outlook.Attachment
    On Error GoTo PROC_ERR
    For Each myAtt In Item.Attachments
        If Right(LCase(myAtt.fileName), 4) = ".msg" Then
'            Item.Copy Session.GetDefaultFolder("MNS") 'This doesn't appear to be a valid folder location
             ' maybe as follows
             Item.Copy Session.GetDefaultFolder(olFolderInbox).folders("MNS") 
            Exit For
        End If
    Next myAtt
    Exit Sub
PROC_ERR:
    MsgBox "Error: (" & Err.Number & ") " & Err.Description, vbCritical
Debug.Print "Error: (" & Err.Number & ") " & Err.Description
End Sub