Jeg ønsker at trække vedhæftede filer ud af Outlook

Du skulle kunne liste attachments, der hører til én mail:
https://learn.microsoft.com/en-us/office/vba/api/Outlook.MailItem.Attachments?WT.mc_id=M365-MVP-5002361

Hej

Desværre
Eksemplet fjerner mailerne fra outlook. Det må de ikke.
De skal kun kopieres over i  access

Nu var det bare et eksempel for at vise, at du ikke behøver liste alle attachements.

Et attachment kan gemmes til disk med metoden SaveAsFile:

https://learn.microsoft.com/en-us/office/vba/api/outlook.attachment.saveasfile?WT.mc_id=M365-MVP-5002361

Tak.
Jeg prøver det

Tak Gustav - nu virker det men følgende skulle tilrettes

Dim OutlookApp As Outlook.Application  ' Ny
Dim myInspector As Outlook.Inspector

Dim myItem As Outlook.MailItem

Dim myAttachments As Outlook.Attachments

'Set myInspector = Application.ActiveInspector  <=Oprindelig

  Set OutlookApp = New Outlook.Application  ' Ny
  Set myInspector = OutlookApp.ActiveInspector  ' Ny