[EX] Envoi semi automatisé de mail préformaté

[GhostLine]

Salut à tous !

Voici mon nouveau script, et ma première tentative d'interface

Son but est simple : à mon travail, nous avons de manière récurrente des coupures de courant sur les entrepôts, qui nécessitent de prévenir une foule de personnes afin de préparer le redémarrage des infrastructures informatiques. Las de devoir chercher à chaque fois les adresses mail, le corps de référence, ainsi que les n° des entrepôts, j'ai décidé de créer ce petit script. Il m'a par ailleurs permis de découvrir le très bon outlook.au3 , qui permet d'utiliser Outlook pour envoyer des mails à partir d'un programme AutoIT (ce qui m'arrange grandement, aux vues de la politique de sécurité informatique ici).

Je pense faire migrer dans un futur proche les données type adresses mail des destinataires, corps du mail et titre dans un fichier de configuration séparé, histoire de rendre la chose un peu plus modulaire.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <File.au3> 
#Include <GuiEdit.au3>
#include <outlook.au3>

Opt('MustDeclareVars', 1)

Saisie() ; Interface et saisie des éléments du mail
Confirmation() ; Interface d'edition du mail généré puis validation
ExpedMail() ; Expedition du mail

; ---------------------------------------------------------------------------------------------------------------------------------------------------------

Func Saisie()
    Global $contenu_mail, $nom_entrepot, $num_entrepot, $date
    Local $menu1, $n1, $n2, $msg, $menustate, $menutext, $ligne, $choix_date, $Button2,$validation1
    Dim $csvArray

    _FileReadToArray("d:\entrepots.csv", $csvArray) 

    For $X = 1 to $csvArray[0]
        $csvArray[$X] = StringRegExpReplace($csvArray[$X], "(;.*)", "")
    Next

    GUICreate("Selection entrepôt et date", 393, 210, 554, 264)
    $choix_date = GUICtrlCreateMonthCal("", 200, 8, 183, 162)
    $n1 = GUICtrlCreateListView($csvArray[1], 8, 8, 185, 162)
    For $X = 2 to $csvArray[0]     
        GUICtrlCreateListViewItem($csvArray[$X], $n1) 
    Next 
    $Button2 = GUICtrlCreateButton("Quitter", 200, 176, 185, 25)
    $n2 = GUICtrlCreateButton("Ok", 8, 176, 185, 25)
    
    GUISetState()

    Do
        $msg = GUIGetMsg()        
        If $msg = $choix_date Then
            $date = GUICtrlRead($choix_date)
            $date = StringRight($date,2)&"/"&StringMid($date,6,2)&"/"&StringLeft($date,4)
        EndIf
        If $msg = $Button2 Then
            Exit
        EndIf
        If $msg = $n2 Then
            $ligne = GUICtrlRead($n1)
            $num_entrepot = StringRegExpReplace((filereadline("d:\entrepots.csv",($ligne-3))), "(.*?;)", "")
            $nom_entrepot = StringRegExpReplace((filereadline("d:\entrepots.csv",($ligne-3))), "(;.*)", "")
            $validation1 = MsgBox(1, "","Vous allez générer un envoi pour l'entrepôt de "& $nom_entrepot & " ("& $num_entrepot &"), en date du "& $date&".")
            If $validation1 = 1 Then
            $contenu_mail = "Bonjour,"&@CRLF&@CRLF&"Merci de prendre en compte l’arrêt électrique de l’entrepôt de "& $nom_entrepot & " ("& $num_entrepot &"), le "& $date&" après le ok des caisses."
            ExitLoop
            EndIf
        EndIf
    Until $msg = $GUI_EVENT_CLOSE
EndFunc

; ---------------------------------------------------------------------------------------------------------------------------------------------------------

Func Confirmation()
Local $GUI,$Btn_Run,$txt_edit,$msg,$Button2

Opt ("RunErrorsFatal", 0)
$GUI = GUICreate ("Confirmation",393, 210, 554, 264)
$Btn_Run = GUICtrlCreateButton ("Expédier", 8, 176, 185, 25)
$txt_edit = GUICtrlCreateEdit ($contenu_mail, 8, 8, 378, 162,$ES_MULTILINE)
$Button2 = GUICtrlCreateButton("Quitter", 200, 176, 185, 25)
GUISetState (@SW_SHOW)

While 1
    $msg = GUIGetMsg ()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $Button2
            Exit
        Case $msg = $Btn_Run
            $contenu_mail = GUICtrlRead($txt_edit)
            ExitLoop
    EndSelect
WEnd
EndFunc

; ---------------------------------------------------------------------------------------------------------------------------------------------------------

func ExpedMail()
    Local $oOutlook, $mailBody, $olFormatHTML,$xx,$sWarningClick
    $oOutlook = _OutlookOpen()
    $mailBody = $contenu_mail
    _OutlookSendMail($oOutlook, "personnes_interessees@blabla.fr", "destinataires_CC_1@blabla.fr ; destinataire_CC_2@blabla.fr", "", "Coupure électrique sur l'entrepôt "&$nom_entrepot &" ("&$num_entrepot&")"&" le "& $date, $mailBody, "", $olFormatHTML)
EndFunc

Le fichier entrepots.csv ressemble à ça :

► Afficher le texte

Code : Tout sélectionner

Entrepôt;code
Villeneuve;10
Chennevières;11
Lomme;13
...

[GhostLine]

Et voici le programme final.

J'ai rajouté : le calcul du jour par rapport à la date, la génération d'un message différent suivant que l'on soit en semaine ou dimanche, l'utilisation d'un fichier .ini externe pour faciliter la modification des listes d'expédition.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <File.au3> 
#Include <GuiEdit.au3>
#include <outlook.au3>
#include <date.au3>


Opt('MustDeclareVars', 1)

Saisie() ; Interface et saisie des éléments du mail
Confirmation() ; Interface d'edition du mail généré puis validation
ExpedMail() ; Expedition du mail
MessageAng() ; Affichage message en anglais pour copier/coller incident

; ---------------------------------------------------------------------------------------------------------------------------------------------------------

Func Saisie()
    Global $contenu_mail, $nom_entrepot, $num_entrepot, $date, $DateDayEn, $DateDay, $Copy_msg, $Dest_msg
    Local $menu1, $n1, $n2, $msg, $menustate, $menutext, $ligne, $choix_date, $Button2,$validation1, $DateToDayEn, $DateToDay, $num_ligne, $ligne_conf, $fichier,$fichier_mag
    Dim $csvArray

    $fichier = FileOpen(@WorkingDir&"\config.ini",0)
    If $fichier = -1 Then
        MsgBox(0, "Erreur", "Le fichier config.ini n'existe pas dans le répertoire courant du programme.")
    Exit
    EndIf
    
    For $num_ligne =1 To _FileCountLines(@WorkingDir&"\config.ini")
        $ligne_conf = FileReadLine(@WorkingDir&"\config.ini", $num_ligne)
        If StringRegExpReplace($ligne_conf, "=.*","") = "Fichier_Ent" Then
            $fichier_mag=StringRegExpReplace($ligne_conf, StringRegExpReplace($ligne_conf, "=.*",""),"")
            $fichier_mag=StringRegExpReplace($fichier_mag, "=","")
        EndIf
        If StringRegExpReplace($ligne_conf, "=.*","") = "Dest_msg" Then
            $Dest_msg=StringRegExpReplace($ligne_conf, StringRegExpReplace($ligne_conf, "=.*",""),"")
            $Dest_msg=StringRegExpReplace($Dest_msg, "=","")
        EndIf
        If StringRegExpReplace($ligne_conf, "=.*","") = "Copy_msg" Then
            $Copy_msg=StringRegExpReplace($ligne_conf, StringRegExpReplace($ligne_conf, "=.*",""),"")
            $Copy_msg=StringRegExpReplace($Copy_msg, "=","")
        EndIf
    Next
    
    If $fichier_mag = "" Then 
        $fichier_mag = @WorkingDir&"\entrepots.csv"
        If FileOpen($fichier_mag,0) = -1 Then
            MsgBox(0,"Erreur","Le fichier magasin n'est pas présent dans le répertoire courant.")
            Exit
        EndIf
    EndIf
        
    _FileReadToArray($fichier_mag, $csvArray) 

    For $X = 1 to $csvArray[0]
        $csvArray[$X] = StringRegExpReplace($csvArray[$X], "(;.*)", "")
    Next

    GUICreate("Selection entrepôt et date", 393, 210, 554, 264)
    $choix_date = GUICtrlCreateMonthCal("", 200, 8, 183, 162)
    $n1 = GUICtrlCreateListView($csvArray[1], 8, 8, 185, 162)
    For $X = 2 to $csvArray[0]     
        GUICtrlCreateListViewItem($csvArray[$X], $n1) 
    Next 
    $Button2 = GUICtrlCreateButton("Quitter", 200, 176, 185, 25)
    $n2 = GUICtrlCreateButton("Ok", 8, 176, 185, 25)
    
    GUISetState()

    Do
        $msg = GUIGetMsg()        
        If $msg = $choix_date Then
            $date = GUICtrlRead($choix_date)
            $DateToDayEn = _DateToDayOfWeek(StringLeft($date,4),StringMid($date,6,2),StringRight($date,2))
            $DateDayEn = _DateDayOfWeek($DateToDayEn,0)
            If $DateDayEn = "Monday" Then $DateDay = "lundi"
            If $DateDayEn = "Tuesday" Then $DateDay = "mardi"
            If $DateDayEn = "Wednesday" Then $DateDay = "mercredi"
            If $DateDayEn = "Thursday" Then $DateDay = "jeudi"
            If $DateDayEn = "Friday" Then $DateDay = "vendredi"
            If $DateDayEn = "Saturday" Then $DateDay = "samedi"
            If $DateDayEn = "Sunday" Then $DateDay = "dimanche"
            $date = StringRight($date,2)&"/"&StringMid($date,6,2)&"/"&StringLeft($date,4)
        EndIf
        If $msg = $Button2 Then
            Exit
        EndIf
        If $msg = $n2 Then
            $ligne = GUICtrlRead($n1)
            $num_entrepot = StringRegExpReplace((filereadline("d:\entrepots.csv",($ligne-3))), "(.*?;)", "")
            $nom_entrepot = StringRegExpReplace((filereadline("d:\entrepots.csv",($ligne-3))), "(;.*)", "")
            $validation1 = MsgBox(1, "","Vous allez générer un envoi pour l'entrepôt de "& $nom_entrepot & " ("& $num_entrepot &"), en date du "& $DateDay &" "& $date&".")
            If $validation1 = 1 Then
                If $DateDay <> "dimanche" Then
                    $contenu_mail = "Bonjour,"&@CRLF&@CRLF&"Merci de prendre en compte l’arrêt électrique de l’entrepôt de "& $nom_entrepot & " ("& $num_entrepot &"), le "& $DateDay &" "& $date&" après le ok des caisses."&@CRLF&@CRLF&@CRLF&"Cordialement,"&@CRLF&@CRLF&"Le Support Entrepôt"
                Else
                    $contenu_mail = "Bonjour,"&@CRLF&@CRLF&"Merci de prendre en compte l’arrêt électrique de l’entrepôt de "& $nom_entrepot & " ("& $num_entrepot &"), le "& $DateDay &" "& $date&" à **:** AM."&@CRLF&@CRLF&@CRLF&"Cordialement,"&@CRLF&@CRLF&"Le Support Entrepôt"
                EndIf
            ExitLoop
            EndIf
        EndIf
    Until $msg = $GUI_EVENT_CLOSE
EndFunc

; ---------------------------------------------------------------------------------------------------------------------------------------------------------

Func Confirmation()
Local $GUI,$Btn_Run,$txt_edit,$msg,$Button2

Opt ("RunErrorsFatal", 0)
$GUI = GUICreate ("Confirmation",393, 210, 554, 264)
$Btn_Run = GUICtrlCreateButton ("Expédier", 8, 176, 185, 25)
$txt_edit = GUICtrlCreateEdit ($contenu_mail, 8, 8, 378, 162,$ES_MULTILINE)
$Button2 = GUICtrlCreateButton("Quitter", 200, 176, 185, 25)
GUISetState (@SW_SHOW)

While 1
    $msg = GUIGetMsg ()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $Button2
            Exit
        Case $msg = $Btn_Run
            $contenu_mail = GUICtrlRead($txt_edit)
            ExitLoop
    EndSelect
WEnd
EndFunc

; ---------------------------------------------------------------------------------------------------------------------------------------------------------

func ExpedMail()
    Local $oOutlook, $mailBody, $olFormatHTML,$xx,$sWarningClick
    $oOutlook = _OutlookOpen()
    $mailBody = $contenu_mail
    If $Dest_msg <> "" Then
        _OutlookSendMail($oOutlook, $Dest_msg, $Copy_msg, "", "Coupure électrique sur l'entrepôt "&$nom_entrepot &" ("&$num_entrepot&")"&" le "& $date, $mailBody, "", $olFormatHTML)
    Else
        _OutlookSendMail($oOutlook, "liste d'adresses des destinataires", "liste d'adresse des CC", "", "Coupure électrique sur l'entrepôt "&$nom_entrepot &" ("&$num_entrepot&")"&" le "& $date, $mailBody, "", $olFormatHTML)
    EndIf
EndFunc

; ---------------------------------------------------------------------------------------------------------------------------------------------------------

Func MessageAng()
    Local $contenu_ang, $edit_ang, $Quitter, $msg, $GUI
    If $DateDay <> "dimanche" Then
        $contenu_ang = "Hello,"&@CRLF&@CRLF&"We have an electric cut for maintenance purpose on "&$DateDayEn&", the "&$date&" after the close of day."&@CRLF&@CRLF&"Can you please stop the server 10.245."&$num_entrepot&".148 at *:** PM on *****."&@CRLF&@CRLF&"Thanks in advance"&@CRLF&@CRLF&"BR"
    Else
        $contenu_ang = "Hello,"&@CRLF&@CRLF&"We have an electric cut for maintenance purpose on "&$DateDayEn&", the "&$date&"."&@CRLF&@CRLF&"Can you please stop the server 10.245."&$num_entrepot&".148 at *:** AM."&@CRLF&@CRLF&"Thanks in advance"&@CRLF&@CRLF&"BR"
    EndIf   
    $GUI = GUICreate ("Message pour l'incident",393, 210, 554, 264)
    $edit_ang = GUICtrlCreateEdit ($contenu_ang, 8, 8, 378, 162,$ES_MULTILINE)
    $Quitter = GUICtrlCreateButton("Quitter", 200, 176, 185, 25)
    GUISetState (@SW_SHOW)
    While 1
        $msg = GUIGetMsg ()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                Exit
            Case $msg = $Quitter
                Exit
        EndSelect
    Wend
    
EndFunc