<div>
 This might get you started. &nbsp; For purposes of testing I simply grabbed the first maitItem in the inbox that had attachments. But you would change the code to reflect you own "collection of mailitems" <pre><code class="code-10 nolinks" id="code-20-43307506-1">Option Compare Database
Option Explicit

Sub test()
Dim oAp As Object, oMailitem As Object, olf As Object, vDir As String, fullname As String

vDir = "c:\aatmpi\"

On Error Resume Next
Set oAp = GetObject(, "Outlook.application")
If Err &lt;&gt; 0 Then
&nbsp; &nbsp; MsgBox "Outlook must already be open"
&nbsp; &nbsp; Exit Sub
End If
On Error GoTo 0

Debug.Print oAp.Name

Set olf = oAp.GetNamespace("MAPI").GetDefaultFolder(6) ' olFolderInbox)

For Each oMailitem In olf.items

&nbsp; &nbsp;
&nbsp; &nbsp; 
&nbsp; &nbsp; If oMailitem.Attachments.Count &gt; 0 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp;Dim i As Long
&nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; For i = 1 To oMailitem.Attachments.Count
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;fullname = vDir &amp; oMailitem.Attachments.Item(i).FileName
&nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Do Until Len(Dir(fullname)) = 0 'create random filename if it already exists
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;fullname = vDir &amp; CStr(Int(Rnd() * 30 + 1)) &amp; oMailitem.Attachments.Item(i).FileName
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Loop
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.Print fullname
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; oMailitem.Attachments.Item(i).SaveAsFile fullname
&nbsp; &nbsp; &nbsp; &nbsp; Next
&nbsp; &nbsp; 
&nbsp; &nbsp; 
&nbsp; &nbsp; 
&nbsp; &nbsp; 
&nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; Exit Sub
&nbsp; &nbsp; End If
Next
&nbsp; &nbsp; &nbsp; &nbsp; 
End Sub


</code></pre>
</div>

Founder and CEO

pcalabria

<div>
<div class="content wysiwyg-content fr-view">
I have created a collection of mailitems as omail If I enter the command debug.print omail.attachments.count the number 2 appears. This tells me I have access to the attachments collection as I know I have two attachments. So now I need to determine the name of each attachment, and &nbsp;download it&nbsp; Using access vba.. can you help?
</div>
</div>


I have created a collection of mailitems as omail
If I enter the command
debug.print omail.attachments.count
the number 2 appears. This tells me I have access to the attachments collection as I know I have two attachments.
So now I need to determine the name of each attachment, and  download it 
Using access vba.. can you help?

Need help downloading an email attachment in MS Access VBA

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.