AlmarM Posted July 5, 2008 Posted July 5, 2008 Hello,I searched on the site and found this:http://www.autoitscript.com/forum/index.ph...56&hl=EmailBut I dont get it :SI want to make a program that automaticly sends an email to me.Anyone knows how?-AlmarM- Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.
AlmarM Posted July 5, 2008 Author Posted July 5, 2008 (edited) Ok, what file I need to include? -AlmarM- EDIT: Nevermind muttley Its like: _INetSmtpMail(MyIP, HisName, HisEmail, MyEmail) ? Edited July 5, 2008 by AlmarM Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.
Andreik Posted July 5, 2008 Posted July 5, 2008 (edited) Ok, what file I need to include? -AlmarM- EDIT: Nevermind muttley Its like: _INetSmtpMail(MyIP, HisName, HisEmail, MyEmail) ? #include <INet.au3> _INetSmtpMail ( $s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress [,$s_Subject [,$as_Body [,$s_helo, [,$s_first [,$b_trace]]]]]) Edited July 5, 2008 by Andreik
Andreik Posted July 5, 2008 Posted July 5, 2008 (edited) Or you can use this script by AsimZameer, send mail over telnet. expandcollapse popup#include <GUIConstants.au3> #include <WindowsConstants.au3> GUICreate("SMTP 25 1.1 by AsimZameer") GUICtrlCreateLabel ("Smtp :", 20, 10, 50) GUICtrlCreateLabel ("From :", 20, 40, 50) GUICtrlCreateLabel ("To :", 20, 70, 50) GUICtrlCreateLabel ("Name :", 20, 100, 50) GUICtrlCreateLabel ("Subject :", 20, 130, 50) GUICtrlCreateLabel ("Body :", 20, 160, 50) GUICtrlCreateLabel ("Status :", 5, 215, 50) $input1 = GUICtrlCreateInput("mx1.mail.yahoo.com",70,10,250,20) $input2 = GUICtrlCreateInput("snip",70,40,250,20) $input3 = GUICtrlCreateInput("snip",70,70,250,20) $input4 = GUICtrlCreateInput("asimzameer",70,100,250,20) $input5 = GUICtrlCreateInput("test message",70,130,250,20) $input6 = GUICtrlCreateInput("Hello WOW ASIM SMTP really Works",70,160,250,20) $myedit=GUICtrlCreateEdit ("Readme: After click on Send Button Wait Until status = 3 When Status = 3 it Means Email Successfully sent & Please Fill all Boxs Correctly If SMTP Address Not Works Automatically Exit and Close "& @CRLF, 1,230,400,70,$WS_DISABLED) $btn = GUICtrlCreateButton ("Send", 160, 310, 60, 20) GUISetState () While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop If $msg = $btn Then $g_IP = GUICtrlRead($input1) $sData1 = "HELO " & GUICtrlRead($input4) & @CRLF $sData2 = "MAIL FROM: <" & GUICtrlRead($input2) &">" & @CRLF $sData3 = "RCPT TO: <" & GUICtrlRead($input3) &"> "& @CRLF $sData4 = "DATA" & @CRLF $sData5 = "From:" & GUICtrlRead($input4) & "< " & GUICtrlRead($input2) &" >" & @CRLF $sData6 = "To:" & GUICtrlRead($input3) & @CRLF $sData7 = "Subject:" & GUICtrlRead($input5) & @CRLF $sData8 = "Sender: Microsoft Outlook Express 6.00.2800.1158" & @CRLF $sData9 = "Mime-Version: 1.0" & @CRLF $sData10 = "Content-Type: text/plain; charset=US-ASCII" & @CRLF $sData11 = @CRLF $sData12 = GUICtrlRead($input6) & @CRLF $sData13 = "." & @CRLF TCPStartUp() $socket = TCPConnect(TCPNameToIP($g_IP), 25) If $socket = -1 Then Exit $ret1 = GUICtrlSetData ($myedit,TCPSend($socket, $sData1) ) sleep(100) $ret2 = GUICtrlSetData ($myedit,TCPSend($socket, $sData2) ) sleep(100) $ret3 = GUICtrlSetData ($myedit,TCPSend($socket, $sData3) ) sleep(100) $ret4 = GUICtrlSetData ($myedit,TCPSend($socket, $sData4) ) sleep(100) $ret5 = GUICtrlSetData ($myedit,TCPSend($socket, $sData5) ) sleep(100) $ret6 = GUICtrlSetData ($myedit,TCPSend($socket, $sData6) ) sleep(100) $ret7 = GUICtrlSetData ($myedit,TCPSend($socket, $sData7) ) sleep(100) $ret8 = GUICtrlSetData ($myedit,TCPSend($socket, $sData8) ) sleep(100) $ret9 = GUICtrlSetData ($myedit,TCPSend($socket, $sData9) ) sleep(100) $ret10 = GUICtrlSetData ($myedit,TCPSend($socket, $sData10) ) sleep(100) $ret11 = GUICtrlSetData ($myedit,TCPSend($socket, $sData11) ) sleep(100) $ret12 = GUICtrlSetData ($myedit,TCPSend($socket, $sData12) ) sleep(100) $ret13 = GUICtrlSetData ($myedit,TCPSend($socket, $sData13) ) sleep(100) EndIf Wend Edited November 8, 2012 by Melba23
AlmarM Posted July 5, 2008 Author Posted July 5, 2008 (edited) Look, this is my script: expandcollapse popup#include <GUIConstantsEx.au3> #include <INet.au3> $GUI = GUICreate("GM Application", 270, 327, -1, -1) $Label_Name = GUICtrlCreateLabel("Whats your name?", 10, 10) $Input_Name = GUICtrlCreateInput("", 10, 30, 100) $Label_Account = GUICtrlCreateLabel("Whats your account name?", 130, 10) $Input_Account = GUICtrlCreateInput("", 130, 30, 100) $Label_Know = GUICtrlCreateLabel("What do you know? IE: Hexing, C++, Java, name it!", 10, 60) $Input_Know = GUICtrlCreateInput("", 10, 80) $Label_Why = GUICtrlCreateLabel("Why sould you be a GM?", 10, 110) $Edit_Why = GUICtrlCreateEdit("", 10, 130, 250, 100) $Label_Email = GUICtrlCreateLabel("Whats you email?", 10, 240) $Input_Email = GUICtrlCreateInput("name123@example.com", 10, 260, 250) $Send = GUICtrlCreateButton("Send Application!", 87, 290) GUISetState() While 1 $nMsg = GUIGetMsg() Select Case $nMsg = -3 Exit Case $nMsg = $Send $Read_Name = GUICtrlRead($Input_Name) $Read_Account = GUICtrlRead($Input_Account) $Read_Know = GUICtrlRead($Input_Know) $Read_Why = GUICtrlRead($Edit_Why) $Read_Email = GUICtrlRead($Input_Email) $Mail = _INetSmtpMail("login.live.com.nsatc.net", $Read_Name, $Read_Email, "almar_mulder@live.nl", "", "Test") EndSelect WEndoÝ÷ ÙhZ¶Ì+¢xf«0@ÈLGbµçl¢g¬¶çßjëh×6#include <GUIConstantsEx.au3> #include <INet.au3> Global $Data[5] $GUI = GUICreate("GM Application", 270, 327, -1, -1) $Label_Name = GUICtrlCreateLabel("Whats your name?", 10, 10) $Input_Name = GUICtrlCreateInput("", 10, 30, 100) $Label_Account = GUICtrlCreateLabel("Whats your account name?", 130, 10) $Input_Account = GUICtrlCreateInput("", 130, 30, 100) $Label_Know = GUICtrlCreateLabel("What do you know? IE: Hexing, C++, Java, name it!", 10, 60) $Input_Know = GUICtrlCreateInput("", 10, 80) $Label_Why = GUICtrlCreateLabel("Why sould you be a GM?", 10, 110) $Edit_Why = GUICtrlCreateEdit("", 10, 130, 250, 100) $Label_Email = GUICtrlCreateLabel("Whats you email?", 10, 240) $Input_Email = GUICtrlCreateInput("name123@example.com", 10, 260, 250) $Send = GUICtrlCreateButton("Send Application!", 87, 290) GUISetState() While 1 $nMsg = GUIGetMsg() Select Case $nMsg = -3 Exit Case $nMsg = $Send $Read_Name = GUICtrlRead($Input_Name) $Read_Account = GUICtrlRead($Input_Account) $Read_Know = GUICtrlRead($Input_Know) $Read_Why = GUICtrlRead($Edit_Why) $Read_Email = GUICtrlRead($Input_Email) $Data[0] = "Naam: " & $Read_Name & @CRLF $Data[1] = "Account: " & $Read_Account & @CRLF $Data[2] = "Wat weet hij/zij: " & $Read_Know & @CRLF $Data[3] = "Waarom: " & $Read_Why & @CRLF $Data[4] = "Email: " & $Read_Email $Mail = _INetSmtpMail("login.live.com.nsatc.net", $Read_Name, $Read_Email, "almar_mulder@live.nl", "", $Data) MsgBox(64, "Application", "Your GM Application has been Send!") Exit EndSelect WEnd Edited July 5, 2008 by AlmarM Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.
picaxe Posted July 5, 2008 Posted July 5, 2008 Your smtp server may require "EHLO" string. Try this with trace dialog window enabled expandcollapse popup#include <GUIConstantsEx.au3> #include <INet.au3> Global $Data[5] $GUI = GUICreate("GM Application", 270, 327, -1, -1) $Label_Name = GUICtrlCreateLabel("Whats your name?", 10, 10) $Input_Name = GUICtrlCreateInput("", 10, 30, 100) $Label_Account = GUICtrlCreateLabel("Whats your account name?", 130, 10) $Input_Account = GUICtrlCreateInput("", 130, 30, 100) $Label_Know = GUICtrlCreateLabel("What do you know? IE: Hexing, C++, Java, name it!", 10, 60) $Input_Know = GUICtrlCreateInput("", 10, 80) $Label_Why = GUICtrlCreateLabel("Why sould you be a GM?", 10, 110) $Edit_Why = GUICtrlCreateEdit("", 10, 130, 250, 100) $Label_Email = GUICtrlCreateLabel("Whats you email?", 10, 240) $Input_Email = GUICtrlCreateInput("name123@example.com", 10, 260, 250) $Send = GUICtrlCreateButton("Send Application!", 87, 290) GUISetState() $trace = 1 While 1 $nMsg = GUIGetMsg() Select Case $nMsg = -3 Exit Case $nMsg = $Send $Read_Name = GUICtrlRead($Input_Name) $Read_Account = GUICtrlRead($Input_Account) $Read_Know = GUICtrlRead($Input_Know) $Read_Why = GUICtrlRead($Edit_Why) $Read_Email = GUICtrlRead($Input_Email) $Data[0] = "Naam: " & $Read_Name & @CRLF $Data[1] = "Account: " & $Read_Account & @CRLF $Data[2] = "Wat weet hij/zij: " & $Read_Know & @CRLF $Data[3] = "Waarom: " & $Read_Why & @CRLF $Data[4] = "Email: " & $Read_Email $Mail = _INetSmtpMail("login.live.com.nsatc.net", $Read_Name, $Read_Email, "almar_mulder@live.nl", "", $Data, "EHLO GMApp", -1, $trace) MsgBox(262144 +64, "Application", "Your GM Application has been Send!") Exit EndSelect WEnd
AlmarM Posted July 6, 2008 Author Posted July 6, 2008 Why It wont work :S I realy need this muttley -AlmarM- Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.
MerkurAlex Posted July 6, 2008 Posted July 6, 2008 Not pointing fingers or anything but did anyone else think he may be using this for a malicious purpose like mailing someones password or some other info to him. If the above statement is false then AlmarM we can't magically know whats wrong we need to see the code your using. [quote name='PsaltyDS' post='635433' date='Jan 27 2009, 07:04 AM']Larry is a mass murderer?! It's always the quiet, clean cut, bald guys... [/quote]
AlmarM Posted July 6, 2008 Author Posted July 6, 2008 Not pointing fingers or anything but did anyone else think he may be using this for a malicious purpose like mailing someones password or some other info to him. If the above statement is false then AlmarM we can't magically know whats wrong we need to see the code your using. What you exactly mean? You want to see this code: expandcollapse popup#include <GUIConstantsEx.au3> #include <INet.au3> Global $Data[5] $GUI = GUICreate("GM Application", 270, 327, -1, -1) $Label_Name = GUICtrlCreateLabel("Whats your name?", 10, 10) $Input_Name = GUICtrlCreateInput("", 10, 30, 100) $Label_Account = GUICtrlCreateLabel("Whats your account name?", 130, 10) $Input_Account = GUICtrlCreateInput("", 130, 30, 100) $Label_Know = GUICtrlCreateLabel("What do you know? IE: Hexing, C++, Java, name it!", 10, 60) $Input_Know = GUICtrlCreateInput("", 10, 80) $Label_Why = GUICtrlCreateLabel("Why sould you be a GM?", 10, 110) $Edit_Why = GUICtrlCreateEdit("", 10, 130, 250, 100) $Label_Email = GUICtrlCreateLabel("Whats you email?", 10, 240) $Input_Email = GUICtrlCreateInput("name123@example.com", 10, 260, 250) $Send = GUICtrlCreateButton("Send Application!", 87, 290) GUISetState() $trace = 1 While 1 $nMsg = GUIGetMsg() Select Case $nMsg = -3 Exit Case $nMsg = $Send $Read_Name = GUICtrlRead($Input_Name) $Read_Account = GUICtrlRead($Input_Account) $Read_Know = GUICtrlRead($Input_Know) $Read_Why = GUICtrlRead($Edit_Why) $Read_Email = GUICtrlRead($Input_Email) $Data[0] = "Naam: " & $Read_Name & @CRLF $Data[1] = "Account: " & $Read_Account & @CRLF $Data[2] = "Wat weet hij/zij: " & $Read_Know & @CRLF $Data[3] = "Waarom: " & $Read_Why & @CRLF $Data[4] = "Email: " & $Read_Email $Mail = _INetSmtpMail("login.live.com.nsatc.net", $Read_Name, $Read_Email, "almar_mulder@live.nl", "", $Data, "EHLO GMApp", -1, $trace) MsgBox(262144 +64, "Application", "Your GM Application has been Send!") Exit EndSelect WEnd Or what code you mean? -AlmarM- Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.
Andreik Posted July 6, 2008 Posted July 6, 2008 What you exactly mean? You want to see this code: expandcollapse popup#include <GUIConstantsEx.au3> #include <INet.au3> Global $Data[5] $GUI = GUICreate("GM Application", 270, 327, -1, -1) $Label_Name = GUICtrlCreateLabel("Whats your name?", 10, 10) $Input_Name = GUICtrlCreateInput("", 10, 30, 100) $Label_Account = GUICtrlCreateLabel("Whats your account name?", 130, 10) $Input_Account = GUICtrlCreateInput("", 130, 30, 100) $Label_Know = GUICtrlCreateLabel("What do you know? IE: Hexing, C++, Java, name it!", 10, 60) $Input_Know = GUICtrlCreateInput("", 10, 80) $Label_Why = GUICtrlCreateLabel("Why sould you be a GM?", 10, 110) $Edit_Why = GUICtrlCreateEdit("", 10, 130, 250, 100) $Label_Email = GUICtrlCreateLabel("Whats you email?", 10, 240) $Input_Email = GUICtrlCreateInput("name123@example.com", 10, 260, 250) $Send = GUICtrlCreateButton("Send Application!", 87, 290) GUISetState() $trace = 1 While 1 $nMsg = GUIGetMsg() Select Case $nMsg = -3 Exit Case $nMsg = $Send $Read_Name = GUICtrlRead($Input_Name) $Read_Account = GUICtrlRead($Input_Account) $Read_Know = GUICtrlRead($Input_Know) $Read_Why = GUICtrlRead($Edit_Why) $Read_Email = GUICtrlRead($Input_Email) $Data[0] = "Naam: " & $Read_Name & @CRLF $Data[1] = "Account: " & $Read_Account & @CRLF $Data[2] = "Wat weet hij/zij: " & $Read_Know & @CRLF $Data[3] = "Waarom: " & $Read_Why & @CRLF $Data[4] = "Email: " & $Read_Email $Mail = _INetSmtpMail("login.live.com.nsatc.net", $Read_Name, $Read_Email, "almar_mulder@live.nl", "", $Data, "EHLO GMApp", -1, $trace) MsgBox(262144 +64, "Application", "Your GM Application has been Send!") Exit EndSelect WEnd Or what code you mean? -AlmarM- I don't think that this login.live.com.nsatc.net is a SMTP server.
AlmarM Posted July 6, 2008 Author Posted July 6, 2008 I don't think that this login.live.com.nsatc.net is a SMTP server.Im not sure either. I just did "ping mail.live.com" and it showed that one muttleyCan you tell me what SMTP server I need to use for my program?-AlmarM- Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.
Andreik Posted July 6, 2008 Posted July 6, 2008 Im not sure either. I just did "ping mail.live.com" and it showed that one muttleyCan you tell me what SMTP server I need to use for my program?-AlmarM-Here is a list of free SMTP:http://www.e-eeasy.com/SMTPServerList.aspx
AlmarM Posted July 6, 2008 Author Posted July 6, 2008 Ah thank you. I think I need smtp.live.com muttley -AlmarM- Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.
NewtonScripter Posted July 16, 2008 Posted July 16, 2008 The emailing doesn't work for me I get an error code 4... i didn't change anything except the send email to my email
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now