So?
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 " & $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
Dann Fehler
C:\Programme\AutoIt3\Include\Test.au3 (17) : ==> Subscript used with non-Array variable.:
$Body = (" Die Tägliche Datensicherung wurde um " & $Ti & " erfolgreich erstellt." & @LF & @LF & " Die Scripte liefen " & $aRecords[1] & @LF & @LF & " Sie liegt im Pfad. " & "" & $Addresse & "" & @LF & @LF & " Freundliche Grüße" & @LF & @LF & " Administrator")
$Body = (" Die Tägliche Datensicherung wurde um " & $Ti & " erfolgreich erstellt." & @LF & @LF & " Die Scripte liefen " & $aRecords^ ERROR
ThomasB