Hallo zusammen,
folgende Situation:
Ich habe einem Ordner C:\1_Daten\test4\
mit folgenden Dateien:
C:\1_Daten\test4\Umsatzsteuer Fleet 01 2017.pdf
C:\1_Daten\test4\Umsatzsteuer Fleet 02 2017.pdf
C:\1_Daten\test4\Umsatzsteuer Fleet 03 2017.pdf
etc.
Nun möchte ich über Autoit die Mail jeden Monat versenden. Wenn ich bei .Attachments.Add = ("C:\1_Daten\test4\Umsatzsteuer Fleet 01 2017.pdf")
eintrage wird die Mail in Outlook erstellt und die Anlage als pdf beigefügt. Ich möchte aber den Dateinamen der Anlage dynamisch (mit @MON und @YEAR") gestalten, damit ich nicht jeden Monat das Skript anpassen muss:
Local $oUmsatzsteuer1 = $oUmsatzsteuer & " " & @MON & " " & @YEAR
.Attachments.Add = $oPfad & $oUmsatzsteuer1 & ".pdf" --> dann müßte man im Januar 2017 automatisch die Anlage "Umsatzsteuer Fleet 01 2017.pdf" erhalten, im Februar die Anlage "Umsatzsteuer Fleet 02 2017.pdf" etc. ohne dass man das Skript anpassen muß.
Leider findet das von mir erstellte Skript die Anlage nicht:
Habt Ihr eine Idee, woran das liegen kann?
Wäre für jede Antwort sehr dankbar.
Schöne Grüße
LittleMan44
Das Skript:
Local $olMailItem = 0
Local $olFormatRichText = 3
Local $olImportanceNormal = 1
Local $oUmsatzsteuer = "Umsatzsteuer Fleet"
Local $oUmsatzsteuer1 = $oUmsatzsteuer & " " & @MON & " " & @YEAR
Local $oPfad = "C:\1_Daten\test4\"
$oOApp = ObjCreate("Outlook.Application")
$oOMail = $oOApp.CreateItem($olMailItem)
With $oOMail
.To = ("k.xxxx@web.de;c.yyy@web.de")
.Subject ="Umsatzsteuer Fleet" & " " & @MON & " " & @YEAR
.Body = ("FYI " & @CRLF & @CRLF & "Mit freundlichen Grüßen " & @CRLF & @CRLF & "Max Mustermann " & @CRLF & "Musterabteilung ")
.Attachments.Add = $oPfad & $oUmsatzsteuer1 & ".pdf"
.Importance = $olImportanceNormal
.Display
EndWith
Local $olMailItem = 0
Local $olFormatRichText = 3
Local $olImportanceNormal = 1
Local $oUmsatzsteuer = "Umsatzsteuer Fleet"
Local $oUmsatzsteuer1 = $oUmsatzsteuer & " " & @MON & " " & @YEAR
Local $oPfad = "C:\1_Daten\test4\"
$oOApp = ObjCreate("Outlook.Application")
$oOMail = $oOApp.CreateItem($olMailItem)
With $oOMail
.To = ("k.xxxx@web.de;c.yyy@web.de")
.Subject ="Umsatzsteuer Fleet" & " " & @MON & " " & @YEAR
.Body = ("FYI " & @CRLF & @CRLF & "Mit freundlichen Grüßen " & @CRLF & @CRLF & "Max Mustermann " & @CRLF & "Musterabteilung ")
.Attachments.Add = $oPfad & $oUmsatzsteuer1 & ".pdf"
.Importance = $olImportanceNormal
.Display
EndWith
Alles anzeigen