Sign in to follow this  
Followers 0
AlmarM

Sending Emails?

15 posts in this topic

Hello,

I searched on the site and found this:

http://www.autoitscript.com/forum/index.ph...56&hl=Email

But I dont get it :S

I 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.

Share this post


Link to post
Share on other sites



Maybe the best way is _INetSmtpMail().


When the words fail... music speaks

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Ok, what file I need to include?

-AlmarM-

EDIT: Nevermind muttley

Its like:

_INetSmtpMail(MyIP, HisName, HisEmail, MyEmail) ?

Edited 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.

Share this post


Link to post
Share on other sites

#4 ·  Posted (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 by Andreik

When the words fail... music speaks

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

Or you can use this script by AsimZameer, send mail over telnet.

#include <GUIConstants.au3>
#include <WindowsConstants.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

When the words fail... music speaks

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

Look, this is my script:

#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 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.

Share this post


Link to post
Share on other sites

Your smtp server may require "EHLO" string. Try this with trace dialog window enabled

#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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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]

Share this post


Link to post
Share on other sites

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:

#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.

Share this post


Link to post
Share on other sites

What you exactly mean?

You want to see this code:

#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

Share this post


Link to post
Share on other sites

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 muttley

Can 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.

Share this post


Link to post
Share on other sites

Im not sure either. I just did "ping mail.live.com" and it showed that one muttley

Can 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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

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