Jump to content

Need help for an Email Sender


 Share

Recommended Posts

Hi, i want to create an email sender to MSN Hotmail.. NOT A SPAMMER! I want to Create an email sender for send email to my friends or other more Faster And i want to create it for practise programming in Autoit.. But i dont know how can i do it.. I Create some program but this program is more dificult..

i Begin the code

Thanks for your Help :)

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Email Sender", 229, 460, 192, 124)
$SMTP = GUICtrlCreateInput("Serveur SMTP", 24, 32, 153, 21)
$desti = GUICtrlCreateInput("Nom du Destinaire", 24, 72, 153, 21)
$Adressee = GUICtrlCreateInput("Adresse du Destinaire", 24, 112, 153, 21)
$adresser = GUICtrlCreateInput("Adresse qui recoit le message", 24, 152, 153, 21)
$Texte = GUICtrlCreateEdit("", 24, 192, 153, 169)
GUICtrlSetData(-1, "Texte")
$MyButton1 = GUICtrlCreateButton("Go", 48, 392, 124, 30, $BS_FLAT)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Thanks for your Help ;)

Link to comment
Share on other sites

New code!!

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Email Sender", 229, 447, 192, 124)
$SMTP = GUICtrlCreateInput("SMTP Server", 24, 16, 153, 21)
$desti = GUICtrlCreateInput("Name of Destinator", 24, 80, 153, 21)
$Adressed = GUICtrlCreateInput("Adress Of Destinator", 24, 112, 153, 21)
$Texte = GUICtrlCreateEdit("", 24, 208, 153, 169)
GUICtrlSetData(-1, "Texte")
$MyButton1 = GUICtrlCreateButton("Go", 48, 400, 124, 30, $BS_FLAT)
$adresser = GUICtrlCreateInput("Adress of receiver", 24, 144, 153, 21)
$portse = GUICtrlCreateInput("Port of the server", 24, 48, 153, 21)
$sujetmess = GUICtrlCreateInput("Subject of Message", 24, 176, 153, 21)
GUISetState(@SW_SHOW)




While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

$SMTP = GUICtrlRead($SMTP)
$destinom = GUICtrlRead($desti)
$Adressee = GUICtrlRead($Adressed)
$receveurmessage = GUICtrlRead($adresser)
$sujet = GUICtrlRead($sujetmess)
$Texteenvoi = GUICtrlRead($Texte)
$Port = GUICtrlRead($portse)

Case $MyButton1



EndSwitch
WEnd

Thanks for your help

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