Jump to content
Sign in to follow this  

Fake email.

Recommended Posts



I recently stumbled on the fake email func in the example scripts forums. (http://www.autoitscript.com/forum/index.php?showtopic=25702&st=0)

How ever it does not work now. (Mainly because the sites suspended it used to send the fake emails). I'm not sure how I would do it, but I need some way to send an email where it does not open a new window. Because when doing this it will interfier with my bot. Is there any way to send an email in autoit with out opening a whole new window?

EDIT: May I add it doesnt matter if it's a fake email. I just need to be able to send an email with out opening an extra screen.

EDIT2: Well I found another non-suspended site: http://fakemailer.net/ , how would I convert this to work with this site? (No expiernce with IE.au3)


fake_email("brad_sp@hotmail.com", "billgates@microsoft.com", "Bill Gates", "Hello" , "Hey! how are you?", 0)

func fake_email($to, $from, $from_name, $subject, $message, $silent)
;               For Use with IE.au3 version 2.0 !
;            This code is (C) Brad Reddicopp 2006

$i = 1
$oIE = _IECreate ("http://www.fake-mailer.com/fmlite/", 0, 0)
; get pointers to the login form and username and password fields
$o_form = _IEFormGetCollection ($oIE, 0)
$o_name = _IEFormElementGetObjByName ($o_form, "name")
$o_to = _IEFormElementGetObjByName ($o_form, "to")
$o_subject = _IEFormElementGetObjByName ($o_form, "subject")
$o_from = _IEFormElementGetObjByName ($o_form, "from")
$o_message = _IEFormElementGetObjByName ($o_form, "message")

If @error = 1 Then
    if $silent = 1 then MsgBox(0, "Error","No connection")
    return 0

; Set field values and submit the form
_IEFormElementSetValue ($o_name, $from_name)
_IEFormElementSetValue ($o_to, $to)
_IEFormElementSetValue ($o_subject, $subject)
_IEFormElementSetValue ($o_from, $from)
_IEFormElementSetValue ($o_message, $message)
_IEFormSubmit ($o_form)

While $i = 1
    If WinExists("Email was sent - Microsoft Internet Explorer") Then
        $i = 0
    If WinExists("http://www.fake-mailer.com/fmlite/sendMail.php") Then
        If $silent = 1 Then MsgBox(16, "Email Sender", "Error Sending Email")
        $i = 0
If $silent = 1 Then MsgBox(64, "Email Sender", "Email Was Sent")
WinKill("Email was sent - Microsoft Internet Explorer")
Edited by lolp1

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  


Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.