Extracting attachments and rename file names

**koltregaskes** · 09-04-2017, 09:16 AM

We received about 15 reports from various sources each day to our reporting mailbox. I have created Outlook VBA scripts, which are run from a message rule, to save each report from the emails to the relevant network folder (for different projects). I have a few questions on extracting and renaming the attachments:

1. How can I extract a file from an attachment with VBA to a specific folder? Example name is "report_20170831070501.zip"

2. How can I rename the file to remove the last 2 characters? Example name is report_20170831070501.csv - so would like to remove the "01", as in the seconds.

3. How can I rename the file of another report to remove the timestamp at the end of the name but keep the datestamp? Timestamp in hh-mm-ss format, example name of report is "This Report_2017-08-31-05-41-56.xlsx".

I normally use Name "this name", "to this name" to rename files and I guess it's something like left(oFile.name,2) to remove the ends but I can't figure out how to put these together to rename and remove the ends.

If you need any further info from me, just shout.

Ta.

**dflak** · 09-15-2017, 03:07 PM

I don't have time to go in to how to download an attachment, but here is a function that will do what you want.

Function ReNameFile(FileName As String, NumChar As Long) As String
' FileName is the file name
' Numchar is the number of characters to remove from the end

Dim StrArray() As String

StrArray = Split(FileName, ".")

StrArray(0) = Left(StrArray(0), Len(StrArray(0)) - NumChar)

ReNameFile = Join(StrArray, ".")
End Function

Sub Test1()
MsgBox ReNameFile("report_20170831070501.csv", 2)
End Sub

Sub Test2()
MsgBox ReNameFile("This Report_2017-08-31-05-41-56.xlsx", 9)
End Sub

Extracting attachments and rename file names

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Extracting attachments and rename file names

Re: Extracting attachments and rename file names

Thread Information

Users Browsing this Thread

Similar Threads

Save outlook attachments and rename/append files with identifier from subject line

[SOLVED] Attachments : Save and Rename using Sublect string or File name string

Extracting Attachments from outlook based on subject title /file name and between a date

Extracting information from file names

Rename File Names & Repost to Designated Folder

Extract and rename batch attachments from saved outlook files on desktop.

Extracting File Names and Properties

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions