Hi, I have the following code to save outlook attachments to a folder on arrival. But the attachments are zipped, and want the saved files to be unzipped. Any help much appreciated.
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\brendan\XML Files"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub