Windows 10: Save multiple attachments

I have an access system attached to a sharePoint list. I am displaying attached photos (usually only 3 or 4) in a sub form and have a button on each record to allow the user to save the photo


Private Sub Command147_Click()
' save photo

Dim fdlg As FileDialog

Dim myURL As String, sFilename As String
Dim WinHttpReq As Object, oStream As Object

myURL = Me.EngAppData_Attachments_FileURL


' get filename and path here
Set fdlg = Application.FileDialog(msoFileDialogSaveAs)
fdlg.Title = "Save attachmen as..."
fdlg.InitialFileName = "Q:\"
' fdlg.FilterIndex = 5 'Defaults to the XML Data file filter
If fdlg.Show() Then
sFilename = fdlg.SelectedItems(1) & Me.EngAppData_Attachments_FileType


Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False ', "username", "password"
WinHttpReq.Send

myURL = WinHttpReq.ResponseBody
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.ResponseBody
oStream.SaveToFile sFilename, 2 ' 1 = no overwrite, 2 = overwrite
oStream.Close
End If


Else:
MsgBox "File has not been saved!"
End If
End Sub


How can I adapt this so that I can run a similar routine from the header of the form to loop through all attachments and saving them. I would just add a counter to each file name for the multiple files so I don't ask for the filename each time


Any help much appreciated


Thanks

:)

 

WINDOWS 10 MAIL APP : MULTIPLE ATTACHMENT/PHOTOS SAVING AS.. IMPOSSIBLE.

I think that the point is about saving multiple attachements from an e-mail to local folder in PC, I´m currently handling with same problem here...

 

Windows 10 mail image attachments cant "save as"

Hi Brambly,

As you are facing issue with the Windows 10 mail image attachments.

We have figured out and recognized that, you will not find option to
Save, print or move except the Copy option available for the Windows 10 mail image attachments.

Hence I suggest you to provide the feedback as this is by latest design;

Step on how to provide feedback

• Open the image you want to copy or save.
• Click on Settings.
• Right hand side select the feedback option and provide feedback for the same.

If you need further assistance, please do let us know and we would be happy to help you further.

Thank You.

 

Trouble saving & attaching from websites

Hello,

As you are facing issues with attaching documents and photos to Emails and save pictures on your device we will help you with this issue.

Lets us the try the below workarounds to identify what is causing the issue.

• Try to attach different documents types and check if the issue persists.
• Try to attach the documents on Internet Explorer and check if the issue persists.
• Try to use Microsoft account, log-in to Outlook.com account, attach the documents and check if the issue persists.

To save the pictures, I suggest you to download the different file types like .txt, .pdf etc. and check if the same issue persists with saving them.

Try the above and update the status of this issue to identify what is causing the issue and assist you further accordingly.

Thank you.