Outlook 365 Attachment download

Hi All...

The following code does the extraction of files to the required path...This works in 2013, 2016, 2019
Does not however work in 365...The code does not even fire...Any ideas???

Please Login or Register  to view this content.

I am guessing.....That the default inbox of user is not the actual default inbox?

I need to extract from the inbox based on specific email...There are multiple...
K, have managed to get this to work...

Please Login or Register  to view this content.

Hello,

Can I get some help in VBA scripts. I want to do an auto save of attachment in Outlook 365 to my network shared folder. Im using the below code: the code works fine but when I open the saved CSV file, it gives me a pop up message "The file format and extension of ************ don't match".

Public Sub Save_Attachment(itm As Outlook.MailItem)

On Error Resume Next

Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim fname As String

saveFolder = "C:\Reoprts\Data\Files" ' Change this file path to your folder

For Each objAtt In itm.Attachments

posr = InStrRev(objAtt.FileName, ".xlsx")
ext = Right(objAtt.FileName, Len(objAtt.FileName) - posr)
posl = InStr(objAtt.FileName, ".")
fname = Left(objAtt.FileName, posl - 1)

objAtt.SaveAsFile saveFolder & "\" & itm.Subject & ".csv"

Set objAtt = Nothing
Next
End Sub

laurengambia...
Your post does not comply with...
Rule No 2
2. Programming code must be enclosed in code tags to improve readability. (A, Z)

Please Login or Register  to view this content.

(or use the # button)



Rule No 4...

4. Do not post a new help request in an existing thread.