Outlook VBA Attachment Download Help

[moni_tm]

Hi,

I have a code in VBA that downloads my Outlook attachments but id like to update if possible.

Here is the current code.

Public Sub SaveAttachmentsToDiskOperaCorrection(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Users\tmona623\Desktop\Cash Dec\AutoDownload\Opera Reports\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & Format(Date, "DD-MM-YY") & " " & MItem.SenderEmailAddress & " " & oAttachment.DisplayName
Next
End Sub

I'd like to change the following bit if possible.

& Format(Date, "DD-MM-YY")

Can this be changed so that it generates the previous day?

& MItem.SenderEmailAddress

Can this be changed so that it only grabs the first 5 letters of the e-mail address?


Any help is greatly appreciated.

Tom

 

[MARK858]

Totally untested....

For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & Format(Date - 1, "DD-MM-YY") & " " & Left(MItem.SenderEmailAddress, 5) & " " & oAttachment.DisplayName
Next

 

[moni_tm]

Hi Thanks for that, it works, is it possible to change the date part to timestamp from when it arrived in Outlook?


-- removed inline image ---


Thank you

Tom

 

[MARK858]

You can try but untested...

For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & Format(MItem.ReceivedTime, "DD-MM-YY") & " " & Left(MItem.SenderEmailAddress, 5) & " " & oAttachment.DisplayName
Next