Erhalte zu viele emails

1. offizieller Beitrag

    Hallo, also mir soll eine email geschickt werden wenn eine datei groß genug ist. In dem Beispiel seht ihr ja wie ich das bis jetzt gelöst hab, aber ich grig ein paar emails mehr als ich will... Gibt es eine Lösung, wo er nur eine email versendet?


    [autoit]

    Func Absenden()
    $size=FileGetSize ( "C:\Hardware\in337.txt" )
    If $size>'1032' and $size<'1038' Then
    $read=FileRead ( "C:\Hardware\in337.txt" )

    [/autoit][autoit][/autoit][autoit]

    Global $oMyRet[2]
    Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

    [/autoit][autoit][/autoit][autoit]

    $rc = _INetSmtpMailCom('meine daten')
    If @error then
    msgbox(0,"Error sending message","Error code:" & @error & " Description:" & $rc)
    EndIf
    EndIf
    EndFunc

    [/autoit]

    Edit : Schreib erst morgen zurück, geh jetzt ins Bett.

    Einmal editiert, zuletzt von Greek (16. Oktober 2008 um 11:32)

    • Offizieller Beitrag

    Du musst eine Variable einfügen, mit der Du testest, ob bereits eine Mail verschickt wurde. In etwa so:

    Spoiler anzeigen
    [autoit]


    Global $bSend = False ; An den Anfang Deines Scripts

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func Absenden()
    $size = FileGetSize("C:\Hardware\in337.txt")
    If $size > '1032' And $size < '1038' And Not $bSend Then
    $read = FileRead("C:\Hardware\in337.txt")

    [/autoit] [autoit][/autoit] [autoit]

    Global $oMyRet[2]
    Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

    [/autoit] [autoit][/autoit] [autoit]

    $rc = _INetSmtpMailCom('meine daten')
    If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
    EndIf
    $bSend = True
    EndIf
    EndFunc ;==>Absenden

    [/autoit]