Combine 2 scripts into 1 and make the script callable in the macro table

[gmayor]

Simple enough

Sub RunTest()
Dim olMsg As MailItem
    On Error Resume Next
    Set olMsg = ActiveExplorer.Selection.Item(1)
    Test olMsg
lbl_Exit:
    Exit Sub
End Sub

Public Sub Test(mItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Const sSaveFolder1 As String = "C:\Test\"
Const sSaveFolder2 As String = "C:\Test2\"
Const strText1 As String = "Teststring 1"
Const strText2 As String = "Teststring 2"

    For Each oAttachment In mItem.Attachments
        If InStr(1, oAttachment.fileName, strText1) > 0 Then
            oAttachment.SaveAsFile sSaveFolder2 & oAttachment.fileName
        End If
        If InStr(1, oAttachment.fileName, strText2) > 0 Then
            oAttachment.SaveAsFile sSaveFolder2 & oAttachment.fileName
        End If
    Next oAttachment
    Set oAttachment = Nothing
End Sub