Hallo Leutz
Ich weis nicht ob es sich um eine Problem mit der Array handelt oder das Problem wo anders zu suchen ist.
Der Auszug aus meinem Script was per Mail verschickt wird.
Spoiler anzeigen
Func _mail();==> Outlook Erfolgreich/Error
Dim $aRecords, $zeiten, $inhalt, $FileList
$Txt = "c:\Datensicherung\Timer.prob"
;
_FileReadToArray($Txt, $aRecords);==> Inhalt der Timer.prob
;
$FileList = _FileListToArray("c:\Datensicherung\", "*.fbk", 1);==> Pfadinhalt
;
$Outlook2003 = @ProgramFilesDir & "\Microsoft Office\Office11\Outlook.exe"
$PID = ProcessExists("Outlook.exe")
$Addresse = "c:\Datensicherung\"
$Ti = @HOUR & ":" & @MIN & ":" & @SEC
$Address= ("xx@xx.de")
$Subject= ("Tägliche Datensicherung vom " & _NowDate())
;
For $i = 1 To $aRecords[0];==> Beginn der ersten Schleife für Timer.prob
$zeiten &= $aRecords[$i] & @LF
Next
;
For $i = 1 To $FileList[0];==> Beginn der zweiten Schleife für Pfadinhalt
$inhalt &= $FileList[$i] & @LF
Next
;==> Ertsellung des E-Mail Body für Erfolg
$Body = ("Die Tägliche Datensicherung wurde um " & $Ti & " erfolgreich erstellt." & @LF & @LF & _
"Im Pfad " & $Addresse & " wurden folgende Dateien angelegt:" & @LF & _
$inhalt & @LF & _
"Die Laufzeiten der einzelnen Scripte betrugen:" & @LF & @LF & $zeiten & @LF & @LF & _
"Freundliche Grüße" & @LF & @LF & " Administrator")
;==> Ertsellung des E-Mail Body für Misserfolg
$Body_err = ("Die Tägliche Datensicherung wurde um " & $Ti & " erfolgreich erstellt." & @LF & @LF & _
"Im Pfad " & $Addresse & " wurden folgende Dateien angelegt:" & @LF & _
$inhalt & @LF & _
"Die Laufzeiten der einzelnen Scripte betrugen:" & @LF & @LF & $zeiten & @LF & @LF & _
"Freundliche Grüße" & @LF & @LF & " Administrator")
;
If FileExists("T:\Datensicherung\") Then; ==> Misserfolg
If $PID Then
_INetMail($address, $subject, $Body_err)
Sleep(5000)
Send("!s")
Else
Run($Outlook2003)
WinWaitActive("Posteingang - Microsoft Outlook")
_INetMail($address, $subject, $Body_err)
Sleep(5000)
Send("!s")
Sleep(1500)
Send("!{F4}")
EndIf
Else ;==> Erfolg
If $PID Then
_INetMail($address, $subject, $Body)
Sleep(5000)
Send("!s")
Else
Run($Outlook2003)
WinWaitActive("Posteingang - Microsoft Outlook")
_INetMail($address, $subject, $Body)
Sleep(5000)
Send("!s")
Sleep(1500)
Send("!{F4}")
EndIf
EndIf
EndFunc
Hier der Inhalt der Timer.prob
Spoiler anzeigen
Tagesrohdaten von BT wurden nicht gefunden.
Tagesrohdaten von Verizon wurden nicht gefunden.
Tagesrohdaten von QSC f2z wurden nicht gefunden.
Tagesrohdaten von QSC f3y wurden nicht gefunden.
Tagesrohdaten wurden in 0.0333336173545334 Minuten erzeugt
Die Löschung der alten CDR's & EVN's dauerte 5.26137632948694e-007 Minuten
Die Datensicherung wurde in 0.0165667005164064 Minuten erstellt
und hier das was per Mail versendet wurde.
Spoiler anzeigen
Die Tägliche Datensicherung wurde um 14:57:22 erfolgreich erstellt.
Im Pfad c:\Datensicherung\ wurden folgende Dateien angelegt:
adtg.fbk
adtg2.fbk
adtg3.fbk
Die Laufzeiten der einzelnen Scripte betrugen:
Tagesrohdaten von BT wurden nicht gefunden.
Tagesrohdaten von Verizon wurden nicht gefunden.
Tagesrohdaten von QSC f2z wurden nicht gefunden.
Tagesrohdaten von QSC f3y wurden nicht gefunden.
Tagesrohdaten wurden in 0.0333336173545334 Minuten erzeugt
Die Löschung der alten CDR's
Es wird einteil nicht mitübernommen. Woran kann es liegen?
MFg
ThomasB :hm: