Hi

I've receive multiple attachments on an email.

Some of these contain a date in the file name.

What is the code to modify the below, to take eg the first 5 characters in the file name?

Eg to save an attachment with a file name of "ABCDE_01032017.xls" as "ABCDE.xls" ?


Public Sub Save_APPS(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "P:\Data\"


For Each objAtt In itm.Attachments

If InStr(objAtt.DisplayName, ".xls") Then



objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName

End If
Set objAtt = Nothing

Next
End Sub

Office 2013 FYI not 2010 as stated in profile

May thanks
Andy

See duplicate post

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com