#cs
	MailSend.exe
	ALERTMAIL.INF




	AdresseDest=prenom.nom
	AdresseComp=@societe.com
	CheminPermanent= K:\
	DossierPermanent=RECDATA
	Fichierrecherche=rec
	Sujetmail=info exploitation
	Corpsmail=activité exploitation DIT limoges


#ce


;##################################
; Include
;##################################

#Include <File.au3>
#Include <Array.au3>






;##################################
; Variables
;##################################

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
Global $TitreMsg = "MailSend : Erreur du script"
Global $path
$s_SmtpServer = "" ; address for the smtp-server to use - REQUIRED
$s_FromName = "" ; name from who the email was sent
$s_FromAddress = "" ;  address from where the mail should come
$s_ToAddress = "" ; destination address of the email - REQUIRED
$s_Subject = "" ; subject from the email - can be anything you want it to be
$as_Body = "" ; the messagebody from the mail - can be left blank but then you get a blank mail
$s_AttachFiles = "" ; the file you want to attach- leave blank if not needed
$s_CcAddress = "" ; address for cc - leave blank if not needed
$s_BccAddress = "" ; address for bcc - leave blank if not needed
$s_Username = "" ; username for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$s_Password = "" ; password for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$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


;##################################
; Script
;##################################

_InfCreate()
_ChampMail()
_PreFixFiles()

;~ $rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
;~ If @error Then
;~ 	MsgBox(0, "Error sending message", "Error code:" & @error & "  Rc:" & $rc)
;~ EndIf


;##################################
; Function
;##################################

Func _ChampMail()

	Local $var = _IniReadKeys()
	Global $AdresseDest = $var[1][1]
	Global $AdresseComp = $var[2][1]
	Global $CheminPermanent = $var[3][1]
	Global $DossierPermanent = $var[4][1]
	Global $Fichierrecherche = $var[5][1]
	Global $Sujetmail = $var[6][1]
	Global $Corpsmail = $var[7][1]
	$path = $CheminPermanent & $DossierPermanent & "\"

EndFunc   ;==>_ChampMail

Func _FilesList()

	$FileList=_FileListToArray($path)
	If @Error=1 Then
		MsgBox (0,"","Dossier "&$path&" non trouve.")
		Exit
	EndIf
	If @Error=4 Then
		MsgBox (0,"","Pas de fichiers trouves dans "&$path)
		Exit
	EndIf
	_ArrayDisplay($FileList,"$FileList")
	Return $FileList

EndFunc   ;==>_FilesList


Func _IniReadKeys()

	Local $temp = IniReadSection(@ScriptDir & "\ALERTMAIL.INF", "MAIL")
	If @error Then
		MsgBox(4096, $TitreMsg, "Erreur sur _IniReadKeys()" & @CRLF & "Controler la presence du fichier : " & @ScriptDir & "\ALERTMAIL.INF")
		Exit
	EndIf
	Return $temp

EndFunc   ;==>_IniReadKeys



Func _InfCreate()
	$CorpsIni = "[MAIL]" & @CRLF & _
			"AdresseDest=prenom.nom" & @CRLF & _
			"AdresseComp=@societe.com" & @CRLF & _
			"CheminPermanent=K:\" & @CRLF & _
			"DossierPermanent=RECDATA" & @CRLF & _
			"Fichierrecherche=rec" & @CRLF & _
			"Sujetmail=info exploitation" & @CRLF & _
			"Corpsmail=activité exploitation DIT limoges" & @CRLF & @CRLF & _
			"[PARAMETRES]" & @CRLF & _
			"SmtpServer=Serveur SMTP" & @CRLF

	If Not FileExists(@ScriptDir & "\ALERTMAIL.INF") Then
		MsgBox(4096, $TitreMsg, "Le fichier " & @ScriptDir & "\ALERTMAIL.INF est absent." & @CRLF & "Le fichier va etre cree. Verifiez son parametrage !!!")
		$fo = FileOpen(@ScriptDir & "\ALERTMAIL.INF", 1)
		If @error Then
			MsgBox(4096, $TitreMsg, "Erreur sur_InfCreate()" & @CRLF & "Impossible de créer le fichier : " & @ScriptDir & "\ALERTMAIL.INF")
			FileClose($fo)
			Exit
		EndIf
		FileWrite($fo, $CorpsIni)
		If @error Then
			MsgBox(4096, $TitreMsg, "Impossible d'ecrire sur le fichier : " & @ScriptDir & "\ALERTMAIL.INF")
			Exit
		EndIf
	EndIf

EndFunc   ;==>_InfCreate


Func _PreFixFiles()

	$pathRecdata = $CheminPermanent & $DossierPermanent & "\"
	$files = _FilesList()

	For $i=0 to UBound ($files)
		FileMove($pathRecdata&$files[$i],$pathRecdata&"T_"&$files[$i])
	Next



EndFunc


Func _CheckFichierAlertMail()
EndFunc   ;==>_CheckFichierAlertMail


Func _AnalyseDossier()
EndFunc   ;==>_AnalyseDossier


Func _SupprFichiers()
EndFunc   ;==>_SupprFichiers


Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "", $IPPort = 25, $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 = $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])
			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") = $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
	; Sent the Message
	$objEmail.Send
	If @error Then
		SetError(2)
		Return $oMyRet[1]
	EndIf
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


;~ **************************************************************
;~ **************************************************************
;~ **************************************************************
;~ **************************************************************