Public Sub Save_blablabla1(itm As Outlook.MailItem)
Dim dateFormat
Dim dateFormatSHORT
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim saveFolder2 As String
Dim AKTUELLERMONAT As String
Dim AKTUELLERTAG As String
Dim LOGZEIT As String
Dim LOGDATUM As String
dateFormat = Format(itm.ReceivedTime - 1, "dd.mmmm.yyyy")
dateFormatSHORT = Format(itm.ReceivedTime - 1, "dd-mmm-yy")
saveFolder = "T:\BLA\"
saveFolder2 = "T:\BLABLA\"
saveFolderLOG = "T:\BLABLABLA\"
AKTUELLERMONAT = Format(Date - 1, "YYYY-MM-MMMM")
AKTUELLERTAG = Format(Date - 1, "MMM-DD")
LOGDATUM = Format(Date, "DD.MM.YYYY")
LOGZEIT = Format(Time, "-Hh:MM:SS")
If Dir(saveFolder2 & AKTUELLERMONAT, vbDirectory) = "" Then
MkDir (saveFolder2 & AKTUELLERMONAT)
End If
If Dir(saveFolder2 & AKTUELLERMONAT & "\" & AKTUELLERTAG, vbDirectory) = "" Then
MkDir (saveFolder2 & AKTUELLERMONAT & "\" & AKTUELLERTAG)
End If
For Each objAtt In itm.Attachments
If InStr(objAtt.DisplayName, ".pdf") Or _
InStr(objAtt.DisplayName, ".PDF") Then
objAtt.SaveAsFile saveFolder & "\" & "BLABLABLABLABLABLA-" & dateFormat & ".pdf"
objAtt.SaveAsFile saveFolder2 & AKTUELLERMONAT & "\" & AKTUELLERTAG & "\" & dateFormatSHORT & "-BLABLABLABLABLABLA" & ".pdf"
End If
objAtt.Delete
Set objAtt = Nothing
Next
Open saveFolderLOG & "LOG-BLABLABLABLABLA.txt" For Output As #1
Print #1, "Das Script wurde ausgeführt. Die Datei wurde gespeichert. " & LOGDATUM & LOGZEIT
Close #1
End Sub