Renaming newest File Question

[Benzula]

I have a macro that will save a file directly from Outlook into a directory based on an Outlook Rule. (Currently it is saving in my Documents Folder)

What I want to be able to do, is chain that into another Macro that Renames that file. The main issue I have is that I won't know the name of the file because they like to add random dates to the end of the file. Basically XYZ 4-4-2018 or XYA 04-19-18 which is very inconsistent. Since I have it copy the file over to my directory, I would want another to just rename the most recent file. Or if worse comes to worse, I'll put it into its own directory and just have it be deleted before the rule runs.

So my question is: How do I Rename the Newest File without knowing the exact path name.

 

[Roderick_E]

Can you store the name (pass as arg) of the file in your macro you currently have and have it rename the file?

 

[Benzula]

This is the macro that I was able to find.

Public Sub SaveAttachments(Item As Outlook.MailItem)
If Item.Attachments.Count > 0 Then
 
Dim EmAttach As Outlook.Attachments
Dim AttachCount As Long
Dim EmAttFile As String
Dim sFileType As String
Dim i As Long
Set EmAttach = Item.Attachments
    AttachCount = EmAttach.Count
 For i = AttachCount To 1 Step -1
' Get the file name.
 EmAttFile = EmAttach.Item(i).FileName
 
 If LCase(Right(EmAttFile, 5)) = ".xlsx" Then
        ' Get the path to your My Documents folder
        DestFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
        DestFolderPath = DestFolderPath & "\Attachments"
        
        ' Combine with the path to the folder.
        EmAttFile = DestFolderPath & EmAttFile
        
        ' Save the attachment as a file.
        EmAttach.Item(i).SaveAsFile EmAttFile
    End If
 Next i
End If
End Sub

 

[Benzula]

I tried changing the bottom part to be the specific file name I wanted and it didn't work.

I assumed this section would be the file name.

 ' Save the attachment as a file.
        EmAttach.Item(i).SaveAsFile EmAttFile

I tried changing it to
EmAttach.Item(i).SaveAsFile 'Test'

 

[Benzula]

I also tried to add another Dim at the start and use that.

Dim EmAttRename As String

Set EmAttRename = "Test" or 'Test' or Test
EmAttach.Item(i).SaveAsFile EmAttRename

 

[Roderick_E]

I also tried to add another Dim at the start and use that.

Dim EmAttRename As String

Set EmAttRename = "Test" or 'Test' or Test
EmAttach.Item(i).SaveAsFile EmAttRename

Hmmm maybe change it here:

' Combine with the path to the folder.
[COLOR=#ff0000]EmAttFile = "Testnemwfilename"[/COLOR]
        EmAttFile = DestFolderPath & EmAttFile

 

[Benzula]

It says "Cannot Save the attachment. Path does not exist. Verify the path is Correct"

Public Sub SaveAttachments(Item As Outlook.MailItem)
If Item.Attachments.Count > 0 Then
 
Dim EmAttach As Outlook.Attachments
Dim AttachCount As Long
Dim EmAttFile As String
Dim sFileType As String
Dim EmFileName As String
Dim i As Long
 
Set EmAttach = Item.Attachments
    AttachCount = EmAttach.Count
 For i = AttachCount To 1 Step -1
' Get the file name.
 EmAttFile = EmAttach.Item(i).FileName
 
 If LCase(Right(EmAttFile, 5)) = ".xlsx" Then
        ' Get the path to your My Documents folder
        DestFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
        DestFolderPath = DestFolderPath & "\Attachments"
        
        ' Combine with the path to the folder.
        EmAttFile = "TestNameFileName"
        EmAttFile = DestFolderPath & EmAttFile
        
        ' Save the attachment as a file.
        EmAttach.Item(i).SaveAsFile EmFileName
    End If
 Next i
End If
End Sub

 

[Benzula]

Actually it worked! I forgot I changed the variable to EmFileName. However it didn't save it as an XLS so Ima try and add that in the name.

 

[Benzula]

W00T, It worked when I added .xlsx. Here is the final code that is working.

Public Sub SaveAttachments(Item As Outlook.MailItem)
If Item.Attachments.Count > 0 Then
 
Dim EmAttach As Outlook.Attachments
Dim AttachCount As Long
Dim EmAttFile As String
Dim sFileType As String
Dim i As Long
 
Set EmAttach = Item.Attachments
    AttachCount = EmAttach.Count
 For i = AttachCount To 1 Step -1
' Get the file name.
 EmAttFile = EmAttach.Item(i).FileName
 
 If LCase(Right(EmAttFile, 5)) = ".xlsx" Then
        ' Get the path to your My Documents folder
        DestFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
        DestFolderPath = DestFolderPath & "\Attachments"
        
        ' Combine with the path to the folder.
        EmAttFile = "TestNameFileName.xlsx"
        EmAttFile = DestFolderPath & EmAttFile
        
        ' Save the attachment as a file.
        EmAttach.Item(i).SaveAsFile EmAttFile
    End If
 Next i
End If
End Sub

Thank you so much again.