#1
|
|||
|
|||
Rename attachment based on attachment name
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 |
#2
|
||||
|
||||
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 |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Rename attachment based on attachment name | AndyDDUK | Outlook | 1 | 03-01-2017 07:31 AM |
Outlook macro to check a value of a cell in an attachment and send an email based on that value | ketangarg86 | Outlook | 13 | 03-25-2015 07:11 AM |
Attachment issues | rudi.scott | Outlook | 1 | 06-30-2011 06:44 AM |
email as pdf attachment - subject line and attachment named after mail merge | Nexus | Mail Merge | 12 | 04-13-2011 11:34 PM |
Word attachment on an E-mail-macro to open attachment & | nablady | Outlook | 0 | 11-28-2006 03:00 PM |