Und nochmal Hallo von Tom:
Ich habe mir ein Script "zusammenkopiert" dass Outlook Anhänge speichert - klappt tadellos und ich weis nicht mehr wie es früher ohne ging :)
Jetzt wollte ich das so ändern, das ein Ordner mit dem aktuellem Monatsnamen erstellt wird, wenn diesr noch nicht vorhanden ist.
Ich vermute das es so gehen müsste und hier vlt. nur ein paar , . - 0 ) } ^ ° oder so fehlen?
Immerhin legt er den Ordner T:\FO\Test-Night\AKTUELLERMONAT an, aber er nimmt AKTUELLERMONAT nicht als Variable.
Hier das Script:
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")
Dim AKTUELLERMONAT As String
saveFolder = "T:\FO\Test-Night\"
AKTUELLERMONAT = Format(Date, "mmm") '
If Dir("T:\FO\Test-Night AKTUELLERMONAT", vbDirectory) = "" Then
MkDir ("T:\FO\Test-Night AKTUELLERMONAT")
Else
MsgBox "Ordner '' AKTUELLERMONAT '' ist vorhanden!"
End If
For Each objAtt In itm.Attachments
If InStr(objAtt.DisplayName, ".pdf") Or _
InStr(objAtt.DisplayName, ".PDF") Then
objAtt.SaveAsFile saveFolder & AKTUELLERMONAT & "\" & dateFormat & Space & objAtt.DisplayName
End If
objAtt.Delete
Set objAtt = Nothing
Next
End Sub
Änderungen zum funktionierenden Script so markiert.
Fehlermeldung (logischerweise) das der Ordener in den er speichern will nicht da ist.
Wo fehlt das Komma oder der Pukt, oder was weiß ich :)
Grüße
Tom
|