Anfängerfrage -> Array als E-Mailtext verschicken

  • Hey Leute,

    ich hab da mal wieder ein kleines Problem.
    Ich möchte ein Script bauen welches mir alle Dateien eines bestimmten Dateityps aus einem Ordner aufzählt und mir zu diesen das Erstelldatum und die Größe ausgibt.
    Soweit kriege ich es auch noch hin.
    Anschließend übergebe ich diese Werte in ein Array. in diesem Array sollte dann jeder eintrag so aussehen -> Datum / Name / Größe
    Auch das läuft!
    Als nächstes soll jeden eintrag des Array als Text einer E-Mail verschickt werden und genau da stehe ich gerade auf dem Schlach da ich keine Ahnung habe wie ich das umsetzen soll. 8|

    Vermutlich is die Lösung total simpel und ich komm nur nicht drauf :rolleyes:

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <Date.au3>
    #include <File.au3>

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

    Global $Script_Vrz = @ScriptDir
    Global $Backup_Vrz = "E:\"
    Global $Datei_Type = "*.*"
    Global $E_Mail = ""
    Global $DeBug = 1
    Global $Body_Test = "Diese Dateien sind im Ordner enthalten"
    Global $Hostname = @ComputerName
    Global $SmtpServer = ""
    Global $FromName = $Hostname
    Global $FromAddress = ""
    Global $ToAddress = $E_Mail
    Global $Subject = "Egal"

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

    $filelist1= _FileListToArray($Backup_Vrz,$Datei_Type,1)

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

    $Cnt_F = $filelist1[0] +1
    local $Body_Text[$Cnt_F]
    For $cnt_i = 1 To $filelist1[0]
    $Datex = FileGetTime($Backup_Vrz & $fileList1[$cnt_i], 1, 0)
    $fDatex = StringFormat("%s/%s/%s %s:%s:%s", $Datex[0], $Datex[1], $Datex[2], $Datex[3], $Datex[4], $Datex[5])
    $Sizex = FileGetSize($Backup_Vrz & $fileList1[$cnt_i])
    $Sizex = $Sizex/1024

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

    $Body_Text[$cnt_i] = $fDatex & " / " & $filelist1[$cnt_i] & " / " & $Sizex

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

    Next

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

    $Body= ""

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

    $rc = _INetSmtpMail($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body,"EHLO " & @computername, -1)

    [/autoit]

    Einmal editiert, zuletzt von GorEPriest (31. Januar 2012 um 13:00)

  • Ja das hatte ich schon versucht, aber anscheinend wohl nicht ganz richtig.
    Mein Versuch sah so aus:

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    For $Cnt_T = 1 To $Cnt_F

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

    $Body_test = $Body_Test & @CRLF & $Body_Text[$Cnt_T]

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

    Next

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