I got this code to work http://www.blueclaw-db.com/read_emai...ss_outlook.htm
Code:
' Set up Outlook objects.
Dim ol As New Outlook.Application
Dim of As Outlook.MAPIFolder
Dim objItems As Outlook.Items
Dim mo As Object
Set of = ol.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox)
Set objItems = of.Items
For Each mo In objItems
...
Next
What do you mean by 'particular folder'? If you want a custom folder, I think have to use PickFolder.
Set of = ol.GetNamespace("Mapi").PickFolder
Everything I read about Outlook attachments says have to use SaveAsFile to export to folder and then code to save the file into Access Attachment field. Attachment field is a type of multi-value field. This requires 2 recordsets - a parent and child recordset.