Jump to content

Sending Emails?


Recommended Posts

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.

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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.

Link to comment
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
Link to comment
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]

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

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

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

Link to comment
Share on other sites

  • 2 weeks later...

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
 Share

  • Recently Browsing   0 members

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