Hallo Leutz,
ich habe mal wieder eine kleine Frage.
Hier mein Ansatz, momentan nicht als Func
Spoiler anzeigen
#include <date.au3>
#include <misc.au3>
#include <inet.au3>
#include <file.au3>
#include <array.au3>
Opt("TrayIconDebug", 1) ;0=no info, 1=debug line info
Dim $aRecords
$Txt = "c:\Datensicherung\Timer.prob"
_FileReadToArray($Txt, $aRecords)
_ArrayReverse($aRecords, 1)
$Outlook2003 = @ProgramFilesDir & "\Microsoft Office\Office11\Outlook.exe"
$PID = ProcessExists("Outlook.exe")
$Addresse = "T:\Datensicherung"
$Ti = @HOUR & ":" & @MIN & ":" & @SEC
$Address= ("behlke@adtg.de")
$Subject= ("Tägliche Datensicherung vom " & _NowDate())
$Body = (" Die Tägliche Datensicherung wurde um " & $Ti & " erfolgreich erstellt." & @LF & @LF & _
" Die Scripte liefen " & _FileWriteFromArray("", $aRecords, 1) & @LF & @LF & _
" Sie liegt im Pfad. " & "" & $Addresse & "" & @LF & @LF & _
" Freundliche Grüße" & @LF & @LF & " Administrator")
If FileExists("T:\Datensicherung\") Then
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
Else
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
Was will ich erreichen. Meine Datensicherung läuft Nachts mit mehreren unterschritten. Über TimerDiff/TimerDiff hole ich mir die Laufzeit, die ich in eine Datei schriebe. Per Mail möchte ich nun die Laufzeit mitteilen. Dazu lese ich es in ein Array ein. Im Body soll nun mit _FileWriteFromArray() dieses ausgegebn werden. Es wird hier nur 0. Wo liegt mein Fehler?
Vieleicht kann man auch einen Anhang machen?
ThomasB