Beiträge von LittleMan44
-
-
Code
Alles anzeigenLocal $olMailItem = 0 Local $olFormatRichText = 3 Local $olImportanceNormal = 1 Local $oUmsatzsteuer = "C:\1_Daten\test4\Umsatzsteuer Fleet" & " " & @MON & " " & @YEAR Local $oPfad = "C:\1_Daten\test4\" $oOApp = ObjCreate("Outlook.Application") $oOMail = $oOApp.CreateItem($olMailItem) With $oOMail .To = ("k.ggg@web.de;c.jhh@web.de") .Subject = "Umsatzsteuer Fleet" & " " & @MON & "_" & @YEAR .Body = ("FYI " & @CRLF & @CRLF & "Mit freundlichen Grüßen " & @CRLF & @CRLF & "Max Mustermann " & @CRLF & "Musterabteilung ") .Attachments.Add($oUmsatzsteuer & ".pdf") .Importance = $olImportanceNormal .Display EndWith
Hallo Alpines,
du hast mich auf die richtige Spur gebracht, herzlichen Dank dafür!!!
Was war der Fehler? Ich habe bei der Varuiablen den Pfad mit dazu geschrieben "C:\1_Daten\test4\"
vorher
Local $oUmsatzsteuer1 = $oUmsatzsteuer & " " & @MON & " " & @YEAR
neu
Local $oUmsatzsteuer = "C:\1_Daten\test4\Umsatzsteuer Fleet" & " " & @MON & " " & @YEARMein Gott das war alles! Nun habe ich das ich wollte! Manchmal sieht man eben vor lauter Bäume den Wald nicht mehr
Schöne Grüße
LittleMan44
-
-
ich bin kein grosser Programmierer, sondern eher ein Anfänger, so funktioniert das Anhängen der Anlage, wenn der dateiname in klarschrift und nicht dynamisiert ist
.Attachments.Add ("C:\1_Daten\test4\Umsatzsteuer Fleet 01 2017.pdf")
Code
Alles anzeigenLocal $olMailItem = 0 Local $olFormatRichText = 3 Local $olImportanceNormal = 1 $oOApp = ObjCreate("Outlook.Application") $oOMail = $oOApp.CreateItem($olMailItem) With $oOMail .To = ("k.ggg@we.de;c.kjk@web.de") .Subject ="Umsatzsteuer Fleet" & " " & @MON & "_" & @YEAR .Body = ("FYI " & @CRLF & @CRLF & "Mit freundlichen Grüßen " & @CRLF & @CRLF & "max mustermann " & @CRLF & "musterabteilung ") .Attachments.Add ("C:\1_Daten\test4\Umsatzsteuer Fleet 01 2017.pdf") .Importance = $olImportanceNormal .Display EndWith
-
-
Ja aber was nicht verstehe ist, warum das Skript die Anlage findet, wenn ich den Pfad und den Dateinamen eintrage, .Attachments.Add =("C:\1_Daten\test4\"Umsatzsteuer Fleet 01 2017.pdf)" aber nicht, wenn ich den Dateinamen dynamisiere $oUmsatzsteuer & " " & @MON & " " & @YEAR bzw, .Attachments.Add = $oPfad & $oUmsatzsteuer1 & ".pdf"
-
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.pdfetc.
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
LittleMan44Das 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
EndWithCode
Alles anzeigenLocal $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