Hi water,
ich meine "Entwürfe".
So dachte ich mir das: Ich habe ca 5000 Listen, die zum Teil bestimmten Personen gehören (eine hat 100, die andere 50, usw), jetz muss ich jeder Person eine Email aufsetzen, mit Betreff, Text und zugehörigen 2 Listen.
Die erstellten Mails möchte ich dann in Ordner packen und den einzelnen Personen zukommen lassen (damit die die dann weiter verarbeiten können und an Kunden verschicken).
Bin aber schon so gut wie fertig mit dem Test:
[autoit]
#include <OutlookEX.au3>
#include <file.au3>
Global $isr = "ich"
Global $sAdresse = ""
Global $sBetreff = FileRead(@ScriptDir & "\Betreff.txt")
Global $sNachrText = FileRead(@ScriptDir & "\Text.txt")
Global $sAnhang
Global $oItem
Global $ary
_FileReadToArray(@ScriptDir & "\" & $isr & "\nummern.txt", $ary)
for $i = 1 to $ary[0]
Global $oOutlook = _OL_Open()
$oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "Subject=" & $sBetreff & " AP - " & $ary[$i], "BodyFormat=" & $olFormatHTML)
if FileExists(@ScriptDir & "\" & $isr & "\Client_AP - " & $ary[$i] & ".xls") Then _
$oItem = _OL_ItemAttachmentAdd($oOutlook, $oItem, Default, @ScriptDir & "\" & $isr & "\Client_AP - " & $ary[$i] & ".xls")
if FileExists(@ScriptDir & "\" & $isr & "\Enterprise_AP - " & $ary[$i] & ".xls") Then _
$oItem = _OL_ItemAttachmentAdd($oOutlook, $oItem, Default, @ScriptDir & "\" & $isr & "\Enterprise_AP - " & $ary[$i] & ".xls")
$oItem = _OL_ItemModify($oOutlook, $oItem, Default, "", "Body=" & $sNachrText)
Next
Funktioniert wunderbar!
€dit: irgendwie macht der Mist beim Syntax-Highlighting :o