Gemme attachment.

'**************************************
' Name: Save Outlook Mail Attachment
' Description:This code snippet is actua
'    lly a Macro for Outlook 97, 98 or 2000 b
'    ut can be easily instituted into VB by c
'    reating your Outlook.Application object
'    to completely automate the mod from VB.
'    It could also be used with MAPI mail as
'    well.
' By: Chris Kesler
'
' Inputs:None...
'
' Returns:None... Could be set as a True
'    or False Method for total automation
'
' Assumes:Basic understanding of VBA and
'    VB as well as Office Automation through
'    VB.
'
' Side Effects:None so far...
'
'This code is copyrighted and has' limited warranties.Please see http://w
'    ww.Planet-Source-Code.com/xq/ASP/txtCode
'    Id.27911/lngWId.1/qx/vb/scripts/ShowCode
'    .htm'for details.'**************************************



Sub SaveAttachment()
    Dim oApp As Application
    Dim oNS As NameSpace
    Dim oMsg As Object
    Dim oAttachments As Outlook.Attachments
    Dim strControl
    Set oApp = New Outlook.Application
    Set oNS = oApp.GetNamespace("MAPI")
    'Set folder to check the INBOX
    Set oFolder = oNS.GetDefaultFolder(olFolderInbox)
    strControl = 0
   


    For Each oMsg In oFolder.Items


        With oMsg
            'Check for new mail (unread=true)


            If .UnRead Then
                'This could use the .Subject as well to
                '    search for text in the subject line.


                If InStr(1, .Body, "Body Text To look for") > 0 Then
                    oMsg.Attachments.Item(1).SaveAsFile "Your Drive:\Your Path\" _
                    & oMsg.Attachments.Item(1).DisplayName
                    'Set mailItem to unread
                    .UnRead = False
                    Exit Sub
                End If
            End If
        End With
    Next
End Sub