Чтение из csv и заход на сайт

#include <IE.au3>

Local $hFile, $sEMail
$hFile = FileOpen(@ScriptDir & '\email.txt')

While 1
    $sEMail = FileReadLine($hFile)
    If @error Then ExitLoop
	$sLogin = '$sEMail'
   $sUrl = 'http://mail.ru/'

WEnd
FileClose($hFile)


$oIE = _IECreate($sUrl)
$oForm = _IEFormGetObjByName($oIE, "auth")
$oLogin = _IEFormElementGetObjByName($oForm, "login")
$oPassword = _IEFormElementGetObjByName($oForm, "password")

_IEFormElementSetValue($oLogin, $sLogin)
_IEFormElementSetValue($oPassword, $sPass)

$oLinks = _IETagNameGetCollection($oIE, "input")
For $oLink in $oLinks
   $sLinkText = _IEPropertyGet($oLink, "outerhtml")
   If StringInStr($sLinkText, '"Войти"') Then
       _IEAction($oLink, "focus")
       _IEAction($oLink, "click")
       ExitLoop
   EndIf
Next

#include <IE.au3>

$aFile = FileReadToArray(@ScriptDir & '\email.txt')		; Читаем построчно файл в массив
$oIE = _IECreate('mail.ru')

For $sLine In $aFile					; Проходим по каждой строке
   $aData = StringSplit($sLine, ',', 2)			; Разбиваем строку на логин и пароль
   $oForm = _IEFormGetObjByName($oIE, "auth")
   $oLogin = _IEFormElementGetObjByName($oForm, "login")		; Элемент для ввода почты
   $oPassword = _IEFormElementGetObjByName($oForm, "password")	; Элемент для ввода пароля

   _IEFormElementSetValue($oLogin, $aData[0])					; Записываем почту
   _IEFormElementSetValue($oPassword, $aData[1])				; И пароль

   $oLinks = _IETagNameGetCollection($oIE, "input")				; Ищем кнопку войти
   For $oLink in $oLinks
	  $sLinkText = _IEPropertyGet($oLink, "outerhtml")
	  If StringInStr($sLinkText, '"Войти"') Then
		  _IEAction($oLink, "focus")
		  _IEAction($oLink, "click")							; Нажимаем ее
		  ExitLoop
	  EndIf
   Next

   ; Тут выполняем какие-то свои действия
   MsgBox(4096, "", $aData[0] & @CRLF & $aData[1])
   
   $oExitButton = _IEGetObjById($oIE, 'PH_logoutLink')			; Выходим из почты
   $oExitButton.focus()
   $oExitButton.click()
   Sleep(100)
   _IELoadWait($oIE)
   
Next