Email Extractor

[Medic873]

I have a list of bounce back emails that I want to get removed from my outlook account.

Long story short they are all mixed into a bunch of other junk but.

I have this code

#Include <Array.au3>
#Include <File.au3>
 
 $File = InputBox("Email Extractor", "Please enter the path. ");
 $body = FileRead($File);
 
$adresses = _adressesInBody($body)
_ArrayDisplay($adresses)
 
Func _adressesInBody($body)
    Local $i, $adress, $rc[1] = [0]
    $body = stringsplit($body, @cr & @lf & ':;, ')
    If @error Then Return SetError(1,0,0)
    For $i = 1 To $body[0]
        If StringInStr ($body[$i],'@') Then
            $adress = StringSplit($body[$i],'@',2)
            If UBound($adress) <> 2 Then ContinueLoop
            If $adress[0] = '' Then ContinueLoop
            If StringRight($adress[1],1) = '.' Then $adress[1] = StringReplace($adress[1],'.','',-1)
            If StringInStr($adress[1],'.') = 0 Then ContinueLoop
            If StringRight($body[$i],1) = '.' Then $body[$i] = StringReplace($body[$i],'.','',-1)
            If StringLeft($body[$i],1) = '.' Then $body[$i] = StringReplace($body[$i],'.','',1)
            $rc[0] = $rc[0] +1
            _ArrayAdd($rc, $body[$i])
        EndIf
    Next
    Return $rc
EndFunc

[water]

And your question is?