Passing Array to Inet.au3 for Email Log

#include <File.au3>
#include <Array.au3>
#include <Inet.au3>
 
; ##############################################################################
;
;
;
;
; ##############################################################################
 
 
; Global Vars
Global $pFlashLog = "D:\FlashTest"
Global $s_SmtpServer = "XXXXXXXX"
Global $s_FromName = "XXXXXXXX"
Global $s_FromAddress = "XXXXXXX"
Global $s_ToAddress = "XXXXXXXXXXX"
Global $iLineCtrl = 0
Global $iAfterRun0 = 0
 
; Generate Versioning List
$aFileList0 = _FileListToArray($pFlashLog, "*", 2)
 
; Now run function against each found version
For $i = 1 To UBound($aFileList0) -1
    FailedReporter()
Next
 
Exit
 
; ##########################################
; FUNCTIONS
; ##########################################
 
Func FailedReporter()
 
    Global $aFileList1 = _FileListToArray($pFlashLog & "\" & $aFileList0[$i] & "\Failed", "*", 1)
 
    Global $aCount1 = UBound($aFileList1)
 
    If $aCount1 = 0 Then
        Return
    EndIf
 
    ;_ArrayDisplay($aFileList1)
 
    FailedEmailer()
 
EndFunc
 
 
Func FailedEmailer()
 
    ; Convert array count to integer
    $aCount1 = Int($aCount1) ;+ 2) ; Add number of lines to array for writing to body.
 
 
    Local $s_Subject = "Failed Installation Log"
    Local $as_Body[$aCount1]
 
    For $i = 1 To UBound($aFileList1)
 
        If $iAfterRun0 = 1 Then
            $iLineCtrl = $iLineCtrl + 1
        EndIf
 
        If $iLineCtrl = 0 AND $iAfterRun0 = 0 Then
            Global $iAfterRun0 = 1
        EndIf
 
        ;MsgBox(0,"",$aFileList1[$i])
 
        $as_Body[$iLineCtrl] = $aFileList1[$i] ; doesn't work!
 
    Next
 
 
    Local $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, "", -1)
EndFunc