Anhang einer Mail per Button von Outlook in einen definierten Ordner auf dem PC speichern

Public Sub saveAttachtoDisk()
Dim objAtt As Outlook.Attachment
Dim olMsg As Outlook.MailItem
Dim strDate As String
Dim strName As String
Const saveFolder As String = "C:\Users\admin\Downloads\"  
    On Error Resume Next
    Set olMsg = ActiveExplorer.Selection.Item(1)
    
    strDate = Format(olMsg.ReceivedTime, " yyyy-mm-dd")  
        
    For Each objAtt In olMsg.Attachments
        If InStr(objAtt.FileName, ".pdf") > 0 Then  
            strName = Left(objAtt.FileName, (InStrRev(objAtt.FileName, Chr(46))) - 1) & ".pdf"  
            objAtt.SaveAsFile saveFolder & strName
        End If
    Next objAtt
lbl_Exit:
    Set objAtt = Nothing
    Set olMsg = Nothing
    Exit Sub
End Sub