Mailversand über Outlook mit .Attachments.Add Dynamisierung der anzuhängenden Datei klappt nicht

LittleMan44

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

Code

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

**alpines**

Nimm lieber die Outlook UDF, damit isses einfacher.

LittleMan44

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"

**alpines**

Du hast vermutlich den Backslash vor dem Dateinamen vergessen, den hast du im Pfad wohl auch nicht drinne - deshalb.

LittleMan44

meinst du so?

Local $oPfad = "C:\1_Daten\test4\*.pdf"

oder wie meinst du das?

.Attachments.Add = ("C:\" & $oUmsatzsteuer1 & "\.pdf")

geht aber auch nicht

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

Local $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

Alles anzeigen

**alpines**

Der Aufruf von .Add ist nicht ganz richtig, mach daraus .Add("pfad") nicht .Add = ("pfad").
Lass dir mal alles ausgeben was du bei Add dynamisch reinschiebst. Ich wette mit dir das du einen Backslash vergessen hast, also statt C:\ordner\datei.pdf hast du da C:\ordnerdatei.pdf.

LittleMan44

.Attachments.Add ("C:\1_Daten\test4\Umsatzsteuer Fleet 01 2017.pdf")

wie bekomme ich diesen ausdruck dynamisiert? mit @MON und @Year ?

**alpines**

Na wie du es vorher gemacht hast, lass dir aber mal das ganze als MessageBox ausgeben, einmal alles selbst reingetippt und einmal dynamisch.

LittleMan44

Code

Local $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

Alles anzeigen

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 & " " & @YEAR

Mein 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

**Kanashius**

Bei solchen Fehlern immer das, was übergeben wird einmal mit ConsoleWrite($oUmsatzsteuer1&@crlf) oder einer msgbox ausgeben lassen. Dann kann man den Pfad schnell prüfen, ob er ist, wie er sein sollte.

**alpines**

Dann ist ja alles super, solltest deine Strings häufiger überprüfen.

LittleMan44

absolut!! das nehme ich mir nun zu Herzen, das kannte ich vorher so nicht, habe eine tolle Lektion gelernt!! Echt klasse!! ich habe wochenlang umsonst nach einer Lösung gegoogelt, und nun habe ich 2 stunden nach der registrierung die Lösung gefunden