Jump to content

fix this email script?


t0ddie
 Share

Recommended Posts

This used to work with the old autoit...

Everytime i try to compile an old script with the new autoit it never works.

its like all my old scripts have to be rewritten!

can someone fix this?

#include <GUIConstants.au3>
GUICreate&#40;"SMTP 25 1.1 by AsimZameer"&#41; 
GUICtrlCreateLabel &#40;"Smtp &#58;",  20, 10, 50&#41; 
GUICtrlCreateLabel &#40;"From &#58;",  20, 40, 50&#41; 
GUICtrlCreateLabel &#40;"To &#58;",  20, 70, 50&#41; 
GUICtrlCreateLabel &#40;"Name &#58;",  20, 100, 50&#41; 
GUICtrlCreateLabel &#40;"Subject &#58;",  20, 130, 50&#41; 
GUICtrlCreateLabel &#40;"Body &#58;",  20, 160, 50&#41; 
GUICtrlCreateLabel &#40;"Status &#58;",  5, 215, 50&#41; 

$input1 = GUICtrlCreateInput&#40;"mx1.mail.yahoo.com",70,10,250,20&#41;
$input2 = GUICtrlCreateInput&#40;"snip",70,40,250,20&#41;
$input3 = GUICtrlCreateInput&#40;"snip",70,70,250,20&#41;
$input4 = GUICtrlCreateInput&#40;"asimzameer",70,100,250,20&#41;
$input5 = GUICtrlCreateInput&#40;"test message",70,130,250,20&#41;
$input6 = GUICtrlCreateInput&#40;"Hello WOW ASIM SMTP really Works",70,160,250,20&#41;
$myedit=GUICtrlCreateEdit &#40;"Readme&#58; 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&#41;
$btn = GUICtrlCreateButton &#40;"Send", 160, 310, 60, 20&#41;
GUISetState &#40;&#41;
While 1
$msg = GUIGetMsg&#40;&#41;
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
If $msg = $btn Then
$g_IP = GUICtrlRead&#40;$input1&#41;
$sData1  = "HELO " & GUICtrlRead&#40;$input4&#41; & @CRLF
$sData2  = "MAIL FROM&#58; <" & GUICtrlRead&#40;$input2&#41; &">" & @CRLF
$sData3  = "RCPT TO&#58; <" & GUICtrlRead&#40;$input3&#41; &"> "& @CRLF
$sData4  = "DATA" & @CRLF
$sData5  = "From&#58;" & GUICtrlRead&#40;$input4&#41; & "< " & GUICtrlRead&#40;$input2&#41; &" >" & @CRLF
$sData6  = "To&#58;" & GUICtrlRead&#40;$input3&#41; & @CRLF
$sData7  = "Subject&#58;" & GUICtrlRead&#40;$input5&#41; & @CRLF
$sData8  = "Sender&#58; Microsoft Outlook Express 6.00.2800.1158" & @CRLF
$sData9  = "Mime-Version&#58; 1.0" & @CRLF
$sData10 = "Content-Type&#58; text/plain; charset=US-ASCII" & @CRLF
$sData11 = @CRLF
$sData12 = GUICtrlRead&#40;$input6&#41; & @CRLF
$sData13 = "." & @CRLF
TCPStartUp&#40;&#41;
$socket = TCPConnect&#40;TCPNameToIP&#40;$g_IP&#41;, 25&#41;
If $socket = -1 Then Exit
$ret1  = GUICtrlSetData &#40;$myedit,TCPSend&#40;$socket, $sData1&#41; &#41;
sleep&#40;100&#41;
$ret2  = GUICtrlSetData &#40;$myedit,TCPSend&#40;$socket, $sData2&#41; &#41;
sleep&#40;100&#41;
$ret3  = GUICtrlSetData &#40;$myedit,TCPSend&#40;$socket, $sData3&#41; &#41;
sleep&#40;100&#41;
$ret4  = GUICtrlSetData &#40;$myedit,TCPSend&#40;$socket, $sData4&#41; &#41;
sleep&#40;100&#41;
$ret5  = GUICtrlSetData &#40;$myedit,TCPSend&#40;$socket, $sData5&#41; &#41;
sleep&#40;100&#41;
$ret6  = GUICtrlSetData &#40;$myedit,TCPSend&#40;$socket, $sData6&#41; &#41;
sleep&#40;100&#41;
$ret7  = GUICtrlSetData &#40;$myedit,TCPSend&#40;$socket, $sData7&#41; &#41;
sleep&#40;100&#41;
$ret8  = GUICtrlSetData &#40;$myedit,TCPSend&#40;$socket, $sData8&#41; &#41;
sleep&#40;100&#41;
$ret9  = GUICtrlSetData &#40;$myedit,TCPSend&#40;$socket, $sData9&#41; &#41;
sleep&#40;100&#41;
$ret10 = GUICtrlSetData &#40;$myedit,TCPSend&#40;$socket, $sData10&#41; &#41;
sleep&#40;100&#41;
$ret11 = GUICtrlSetData &#40;$myedit,TCPSend&#40;$socket, $sData11&#41; &#41;
sleep&#40;100&#41;
$ret12 = GUICtrlSetData &#40;$myedit,TCPSend&#40;$socket, $sData12&#41; &#41;
sleep&#40;100&#41;
$ret13 = GUICtrlSetData &#40;$myedit,TCPSend&#40;$socket, $sData13&#41; &#41;
sleep&#40;100&#41;
EndIf
Wend
Edited by Melba23

Valik Note Added 19 October 2006 - 08:38 AMAdded to warn level I just plain don't like you.

Link to comment
Share on other sites

dont use beta

im not.

this was back from a year or 2 ago.. using another stable version.

i know its still working on that version, because i have a compiled .exe and it sends the email.

if i compile the code with version 3.2 when i run it, it does nothing...

Valik Note Added 19 October 2006 - 08:38 AMAdded to warn level I just plain don't like you.

Link to comment
Share on other sites

  • Moderators

This used to work with the old autoit...

Everytime i try to compile an old script with the new autoit it never works.

its like all my old scripts have to be rewritten!

can someone fix this?

Down right lazy! :lmao:

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites

I call bullshit. There was no stable version of AutoIt supporting socket functionality until 3.2.0.0 which was released a couple months ago.

I'm locking this thread. First, you don't provide reliable information - you didn't compile that script with a stable version two or even one year(s) ago. Second, you expect us to fix your script for you. Not happening. Fix it yourself.

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...