Public Sub Save_Test_Monatsordner(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim Space
Space = " - "
Dim SenderName
SenderName = Format(itm.SenderName)
Dim dateFormat
dateFormat = Format(itm.ReceivedTime, "ddmmyyyy - hhmmss")
<strong><em>Dim AKTUELLERMONAT As String</em></strong>
saveFolder = "T:\FO\Test-Night\"
<strong><em>AKTUELLERMONAT = Format(Date, "mmm")
<em><strong>If Dir("T:\FO\Test-Night AKTUELLERMONAT", vbDirectory) = "" Then
MkDir ("T:\FO\Test-Night AKTUELLERMONAT")
Else
MsgBox "Ordner '' AKTUELLERMONAT '' ist vorhanden!"
End If</strong></em>
For Each objAtt In itm.Attachments
If InStr(objAtt.DisplayName, ".pdf") Or _
InStr(objAtt.DisplayName, ".PDF") Then
<em><strong>objAtt.SaveAsFile saveFolder & AKTUELLERMONAT & "\" & dateFormat & Space & objAtt.DisplayName</strong></em>
End If
objAtt.Delete
Set objAtt = Nothing
Next
End Sub