Sign in to follow this  
Followers 0
t0ddie

fix this email script?

5 posts in this topic

#1 ·  Posted (edited)

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.

Share this post


Link to post
Share on other sites



dont use beta

Share this post


Link to post
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.

Share this post


Link to post
Share on other sites

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:

[center]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.[/center]

Share this post


Link to post
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.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0