title: Getting attachment from outlook using Access VBA
body: <p>I have a created folder in my outlook named "Reports". This folder contains emails with one attachment in each email. I would like to use ACCESS VBA to save the attachments from the "Reports" folder in Outlook to a local drive in my computer. here is the code I have so far, but gives me errors. Please help:</p>
  
  <pre><code>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.Folders.Item("Reports") // I get an error in this line says an object could not be found 
  
  
  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:\Automation\" &amp; Atmt.FileName
  
       Atmt.SaveAsFile FileName   // here is another error says method is not found
       i = i + 1
     Next Atmt
  Next Item
  </code></pre>