AlmarM Posted July 5, 2008 Share 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. Link to comment Share on other sites More sharing options...
Andreik Posted July 5, 2008 Share Posted July 5, 2008 Maybe the best way is _INetSmtpMail(). When the words fail... music speaks. Link to comment Share on other sites More sharing options...
AlmarM Posted July 5, 2008 Author Share 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. Link to comment Share on other sites More sharing options...
Andreik Posted July 5, 2008 Share 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 When the words fail... music speaks. Link to comment Share on other sites More sharing options...
Andreik Posted July 5, 2008 Share 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 When the words fail... music speaks. Link to comment Share on other sites More sharing options...
AlmarM Posted July 5, 2008 Author Share 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. Link to comment Share on other sites More sharing options...
picaxe Posted July 5, 2008 Share 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 Link to comment Share on other sites More sharing options...
AlmarM Posted July 6, 2008 Author Share 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. Link to comment Share on other sites More sharing options...
MerkurAlex Posted July 6, 2008 Share 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] Link to comment Share on other sites More sharing options...
AlmarM Posted July 6, 2008 Author Share 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. Link to comment Share on other sites More sharing options...
Andreik Posted July 6, 2008 Share 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. When the words fail... music speaks. Link to comment Share on other sites More sharing options...
AlmarM Posted July 6, 2008 Author Share 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. Link to comment Share on other sites More sharing options...
Andreik Posted July 6, 2008 Share 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 When the words fail... music speaks. Link to comment Share on other sites More sharing options...
AlmarM Posted July 6, 2008 Author Share 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. Link to comment Share on other sites More sharing options...
NewtonScripter Posted July 16, 2008 Share 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 Link to comment Share on other sites More sharing options...
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