Sign in to follow this  
Followers 0

Need help with a mail function

2 posts in this topic

i dont see anything bad with that code i can't make it to work it will fill in the boxes but it wont submit the form and also it doesnt hide the screen i cant seem to make it work


Func sendmail($FromName,$FromEmail,$ToEmail,$Subject,$Message,$silent)

$oIE = _IECreate ("", 0, 0)

WinSetState("Spoofalot Anon Emails - Microsoft Internet Explorer","",@SW_HIDE)

$o_form = _IEFormGetCollection ($oIE, 0)

$o_FromName = _IEFormElementGetObjByName ($o_form, "name")

$o_FromEmail= _IEFormElementGetObjByName ($o_form, "email")

$o_Toemail= _IEFormElementGetObjByName ($o_form, "to")

$o_Subject = _IEFormElementGetObjByName ($o_form, "Subject")

$o_Message = _IEFormElementGetObjByName($o_form,"message")

If @error = 1 Then 

if $silent = 1 then MsgBox(0, "Error","No connection")

return 0


_IEFormElementSetValue ($o_FromName, $FromName)

_IEFormElementSetValue ($o_FromEmail, $FromEmail)

_IEFormElementSetValue ($o_Toemail, $ToEmail)

_IEFormElementSetValue ($o_Subject, $Subject)

_IEFormElementSetValue ($o_Message,$Message)

_IEFormSubmit ($o_form)



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