E-Mail

[SoundOfDeath]

Hey, I am working on a E-mail option, a friend of my gave me a source and I tryed to update it, here is the script:

expandcollapse popup

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\tjado\Desktop\AutoIt\Form\Sod's Bday Cracker [EMS].kxf
$Form1 = GUICreate("Sod's E-Mail test", 249, 265, 192, 124)
$Group1 = GUICtrlCreateGroup("Info:", 8, 8, 233, 249)
$Label1 = GUICtrlCreateLabel("First Name:", 16, 32, 57, 17)
$Label2 = GUICtrlCreateLabel("E-Mail:", 16, 96, 36, 17)
$Label3 = GUICtrlCreateLabel("Last Name:", 16, 64, 58, 17)
$Input1 = GUICtrlCreateInput("", 104, 32, 121, 21)
$Input2 = GUICtrlCreateInput("", 104, 64, 121, 21)
$Input3 = GUICtrlCreateInput("", 104, 96, 121, 21)
$Label4 = GUICtrlCreateLabel("BirthDay above year:", 16, 128, 103, 17)
$Label5 = GUICtrlCreateLabel("BirthDay bellow year:", 16, 160, 103, 17)
$Combo1 = GUICtrlCreateCombo("Year", 144, 128, 81, 25)
GUICtrlSetData(-1, "2010|2009|2008|2007|2006|2005|2004|2003|2002|2001|2000|1999|1998|1997|1996|1995|1994|1993|1992|1991|1990|1989|1988|1987|1986|1985|1984|1983|1982|1981|1980|1979|1978|1977|1976|1975|1974|1973|1972|1971|1970|1969|1968|1967|1966|1965|1964|1963|1962|1961|1960|1959|1958|1957|1956|1955|1954|1953|1952|1951|1950|1949|1948|1947|1946|1945|1946")
$Combo2 = GUICtrlCreateCombo("Year", 144, 160, 81, 25)
GUICtrlSetData(-1, "2011|2010|2009|2008|2007|2006|2005|2004|2003|2002|2001|2000|1999|1998|1997|1996|1995|1994|1993|1992|1991|1990|1989|1988|1987|1986|1985|1984|1983|1982|1981|1980|1979|1978|1977|1976|1975|1974|1973|1972|1971|1970|1969|1968|1967|1966|1965|1964|1963|1962|1961|1960|1959|1958|1957|1956|1955|1954|1953|1952|1951|1950|1949|1948|1947|1946|1945")
$Button1 = GUICtrlCreateButton("Send", 96, 216, 75, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

    Do
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
            Exit
            Case $Button1
                $email1 = GUICtrlRead($Input1)
                $email2 = GUICtrlRead($Input2)
                $email3 = GUICtrlRead($Input3)
                $emailmsg1 = GUICtrlRead($Input1)
                $emailmsg2 = GUICtrlRead($Input2)
                $emailmsg3 = GUICtrlRead($Input3)
                $emailmsg4 = GUICtrlRead($Combo1)
                $emailmsg5 = GUICtrlRead($Combo2)
                $SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED
                $FromName = "Name" ; name from who the email was sent
                $FromAddress = $email3
                If $FromAddress = "" Then
                    $FromAddress = "your@Email.Address.com" ; address from where the mail should come
                EndIf

                $ToAddress = "XXXXXXXXXX" ; destination address of the email - REQUIRED
                $Subject = "Info test" ; subject from the email - can be anything you want it to be
                $Body = $emailmsg1 & $emailmsg2 & $emailmsg3 & $emailmsg4 & $emailmsg5 ; the messagebody from the mail - can be left blank but then you get a blank mail
                $AttachFiles = "" ; the file you want to attach- leave blank if not needed
                $CcAddress = "" ; address for cc - leave blank if not needed
                $BccAddress = "" ; address for bcc - leave blank if not needed
                $Importance = "Normal" ; Send message priority: "High", "Normal", "Low"
                $Username = "XXXXXXXXXX" ; username for the account used from where the mail gets sent - REQUIRED
                $Password = "XXXXXXXX" ; password for the account used from where the mail gets sent - REQUIRED
                ;$IPPort = 25                            ; port used for sending the mail
                ;$ssl = 0                                ; enables/disables secure socket layer sending - put to 1 if using httpS
                $IPPort = 465 ; GMAIL port used for sending the mail
                $ssl = 1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

                _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
                ExitLoop (1)
        EndSwitch
    Until $nMsg = $GUI_EVENT_CLOSE
    GUIDelete($Form1)

The XXXXX are persenal info, so thats not the error, I get a error at the following line:

_INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)

Can someone please help me?

~Thanks

Edited February 19, 2010 by SoundOfDeath

[water]

What error message do you get?

Edited February 19, 2010 by water

[SoundOfDeath]

Error: Unknown function name.

[water]

The line

#include <INet.au3>

is missing in your script.

[Kealper]

Add this along with the other includes:

#include <INet.au3>

EDIT: Looks like water beat me to it

Edited February 19, 2010 by Kealper

[SoundOfDeath]

Well I added:

#include <INet.au3>

but I still get the same error :S

_INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)

^ ERROR

Error: Unknown function name.

[Jos]

That is because it is not part of the standard UDF's supplied with AutoIt3.

Search for it in the Examples forum will do miracles.

Edited February 19, 2010 by Jos