Rename attachment based on attachment name

AndyDDUK · #1 03-01-2017, 05:58 AM

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

May thanks
Andy

gmayor · #2 03-01-2017, 07:31 AM

How about

Code:

Public Sub Save_APPS(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim vExt As Variant
    saveFolder = "P:\Data\"
    For Each objAtt In itm.Attachments
        If InStr(objAtt.fileName, ".xls") Then
            vExt = Split(objAtt.fileName, Chr(46))
            objAtt.SaveAsFile saveFolder & "\" & _
                              Left(objAtt.fileName, 5) & _
                              Chr(46) & vExt(UBound(vExt))
        End If
    Next
    Set objAtt = Nothing
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Outlooks changes name of the attachment.	olegred	Outlook	0	08-17-2016 03:01 PM
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