getting outlook attachments using vba code

[umenash]

i have a problom. i want my end-user to be able by pressing a button, to get access to the recent files he got to his outlook account.
i kind of have a start but i got stuck in the end not knowing even if the beginning is good:

Private Sub GetAttachments()




Dim ns As Namespace
Dim Inbox As Outlook.MAPIFolder
Dim folder As Outlook.MAPIFolder


Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer


Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)








i = 0


If Inbox.Items.Count = 0 Then
   MsgBox "There are no messages in the Inbox.", vbInformation, _
        "Nothing Found"
   Exit Sub
End If


  For Each Item In Inbox.Items
 For Each Atmt In Item.Attachments


         
             FileName = "C:\" & Atmt.FileName
           
              Attachments.SaveAsFile FileName
              i = i + 1
      
        
            Next Atmt
           Next Item
        
End Sub

thanks for your help

[June7]

What do you mean by 'stuck' - error messages, wrong results, nothing happen? Have you run this procedure? Have you step debugged? Refer to link at bottom of my post for guidelines.

The incremented i variable isn't even used for any purpose.

[umenash]

i admit i didn't understand the whole code but my aim is to show all the files in my outlook inbox- inside a folder or something and afterwards the user will be able to choose one, and i thought this code at least promotes me to there.
in this line-
For Each Atmt In Item.Attachments


the error is type mismatch.
if you can help me, i'll appreciate, it's just that all the other codes i've seen seem way to complicated then necesasary and this is the only plausible solution i have found

[June7]

Change two lines:

Dim Atmt As Outlook.Attachment

...


Atmt.SaveAsFile FileName