Sign in to follow this  
Followers 0
lolp1

Fake email.

3 posts in this topic

#1 ·  Posted (edited)

Hello,

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)

#include<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
EndIf

; 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
        ExitLoop
    EndIf
    If WinExists("http://www.fake-mailer.com/fmlite/sendMail.php") Then
        WinKill("http://www.fake-mailer.com/fmlite/sendMail.php")
        If $silent = 1 Then MsgBox(16, "Email Sender", "Error Sending Email")
        $i = 0
        Exit
    EndIf
WEnd
If $silent = 1 Then MsgBox(64, "Email Sender", "Email Was Sent")
WinKill("Email was sent - Microsoft Internet Explorer")
endfunc
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  
Followers 0