Jump to content
Sign in to follow this  
Medic873

Email Extractor

Recommended Posts

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

Share this post


Link to post
Share on other sites
water

And your question is?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×