AutoIt Français

Code : Tout sélectionner

dim $fichier[10], $email[10], $newname[10]
global $scandir
$fichierini = "c:\scandir\scandir.ini"
iniinfo($fichierini)

;test du fichier 1
If FileExists($scandir & $fichier[1]) Then
    runwait("C:\scandir\sendmail.exe /smtpserver 192.168.70.22 /to "& $email[1] &" /from moi@societe.com /subject mon sujet /body envoi du fichier /attachment " & $scandir & $fichier[1])
    MsgBox(0, "Résultat", $fichier[1] &" envoyé à " & $email[1])
    filemove($scandir & $fichier[1], $scandir & $newname[1]) ; on renomme le fichier
EndIf

;test du fichier 2
if FileExists($scandir & $fichier[2]) Then
    runwait("C:\scandir\sendmail.exe /smtpserver 192.168.70.22 /to "& $email[2] &" /from moi@societe.com /subject mon sujet /body envoi du fichier /attachment " & $scandir & $fichier[2])
    MsgBox(0, "Résultat", $fichier[2] &" envoyé à " & $email[2])
    filemove($scandir & $fichier[2], $scandir & $newname[2]) ; on renomme le fichier
EndIf



; Lecture du fichier ini et chargement des variables
FUNC INIINFO($files)
 $scandir = IniRead($files, "dir", "scandir", "")
 $fichier[1] = IniRead($files, "files", "file1", "")
 $newname[1] = IniRead($files, "files", "newname1", "")
 $email[1] = IniRead($files, "emails", "email1", "")

 $fichier[2] = IniRead($files, "files", "file2", "")
 $newname[2] = IniRead($files, "files", "newname2", "")
 $email[2] = IniRead($files, "emails", "email2", "")

EndFunc

Code : Tout sélectionner

#include <File.au3>

Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

;##################################
; Variables
;##################################
$SmtpServer = "smtp.gmail.com"                              ; address for the smtp-server to use - REQUIRED
$FromName = "moi"                                           ; name from who the email was sent
$FromAddress = "xxxxxxxx@gmail.com"                         ; address from where the mail should come
$ToAddress = "yyyyyyyyy@gmail.com"                          ; destination address of the email - REQUIRED
$Subject = "Ceci est un test"                               ; subject from the email - can be anything you want it to be
$as_Body = "Corps du message"                               ; 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 = "xxxxxxxx@gmail.com"                            ; username for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$Password = "mot de pass"                                   ; password for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$SmtpPort = 25                                              ; port used for sending the mail
$IPPort=465                                                 ; GMAIL port used for reading the mail (110=standard, 465=Gmail)
$ssl=1                                                      ;0= non cryté 1 = crypté (obligé pour gmail)enables/disables secure socket layer sending - put to 1 if using httpS

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $as_Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $SmtpPort, $ssl)

If $AttachFiles <> "" Then
    ;MsgBox(0, "Error sending message", "Attached file !")
Else
    MsgBox(0, "Error sending message", "No file attached !")
EndIf

If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & "  Rc:" & $rc)
EndIf

exit
;**********************************************Emailer********************************************************
;*************************************************************************************************************
                             ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $s_as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "",$s_IPPort=25, $s_ssl=0)
    $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 = $s_as_Body
    Else
        $objEmail.Textbody = $s_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])
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
                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
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $s_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 $s_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

; Sent the Message
    $objEmail.Send
    if @error then
        SetError(2)
        return $oMyRet[1]
    EndIf
EndFunc ;==>_INetSmtpMailCom

Code : Tout sélectionner

$WatchDir = @WorkingDir
$Kernel32 = DllOpen("C:\Windows\System32\kernel32.dll")
if $Kernel32 = -1 Then Exit 1
$WatchHandle = DllCall($Kernel32,"long","FindFirstChangeNotificationA","str",$WatchDir,"long",1,"long",1)
$WatchHandle=$WatchHandle[0]
ConsoleWrite(@error&@CRLF)
$Status = DllCall($Kernel32,"long","WaitForSingleObject","long",$WatchHandle,"long",-1)
ConsoleWrite(@error&@CRLF)
DllCall($Kernel32,"long","FindCloseChangeNotification","long",$WatchHandle)
ConsoleWrite(@error&@CRLF)
DllClose($Kernel32)
MsgBox(0,"Info",$WatchDir&" changé !")
Exit 0