Hi, below I have two scripts that comb through an emailinbox and download attachments with specific key words in the attachment name.I would like to combine these into one so that the code runs through the inboxlooking for "Test String 1" and then goes and looks for "TestString 2." I would also like this script to be callable as macro. As itstands this script can only be attached to a rule (and not callable as a macro)because it has arguments.
Thank you for the help!

---------------------------------------------------------------------------------------------------------------------
Public Sub Test 1 (mItem As Outlook.MailItem)

Dim oAttachment As Outlook.Attachment

Dim sSaveFolder As String
Dim strText As String
strText = "Teststring 1"
sSaveFolder =" C:\Test"
For EachoAttachment In mItem.Attachments
If InStr(1,oAttachment.FileName, strText) > 0 Then
oAttachment.SaveAsFile sSaveFolder & oAttachment.FileName
End If
Next oAttachment
Set oAttachment =Nothing

End Sub
-------------------------------------------------------------------------------------------------------------------------------------


Public Sub Test 2 (mItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
Dim strText As String
strText = "Teststring 2"
sSaveFolder =" C:\Test2"
For EachoAttachment In mItem.Attachments
If InStr(1,oAttachment.FileName, strText) > 0 Then
oAttachment.SaveAsFile sSaveFolder & oAttachment.FileName
End If
Next oAttachment
Set oAttachment =Nothing
End Sub