Save outlook attachment without file extensions

[jfin1ty]

Hi all,

Hoping this is a simple fix.
I have the below script that I found on another forum that runs as a rule in Outlook to save .pdf email attachments with a timestamp that come from my printer. That part all works fine.
The problem I'm having is that it will save the file with the .pdf as part of the file name.
For example, if the attachment is called test.pdf then my code will run and save it as a .pdf to my documents as "test.pdf (timestamp)".
I think it could be a case of just needing some additional code to get only the attachment's name and not the file extension.
If it helps with a solution, it is always .pdf file types that I run this code for.

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
    saveFolder = "C:\Users\Jfin1ty\Documents\"
Dim dateFormat
    dateFormat = Format(Now, "dd-mm-yyyy hh-mm-ss")

     For Each objAtt In itm.Attachments
          objAtt.SaveAsFile saveFolder & objAtt.DisplayName & " " & dateFormat & ".pdf"
          Set objAtt = Nothing
     Next
     
End Sub

 

[johnnyL]

Can you be more specific as to an example of what one file is being saved as exactly?

 

[jfin1ty]

Can you be more specific as to an example of what one file is being saved as exactly?

All good Johnny,
Solved it for myself.
In case anyone is running into a similar problem, all I did was change:

objAtt.SaveAsFile saveFolder & objAtt.DisplayName & " " & dateFormat & ".pdf"

to

objAtt.SaveAsFile saveFolder & Left(objAtt.DisplayName, Len(objAtt.DisplayName) - 4) & " " & dateFormat & ".pdf"

Which removes the last four characters from the attachment name which in my case was .pdf

 

[johnnyL]

Does the following work also? :

objAtt.SaveAsFile saveFolder & Left(objAtt.DisplayName, InStrRev(objAtt.DisplayName, ".") - 1) & " " & dateFormat & ".pdf"