Envoie mail automatique VBA via Outlook

Question

Bonjour,

Je suis étudiant et débutant en programmation. J'ai une préoccupation majeure et je viens solliciter une aide bienveillante des personnes mieux éclairées.

En effet, sur un fichier Excel, j'ai la colonne B qui liste les noms de mes Techniciens (6 au total), la colonne F, liste les noms des sites (270 au total) sur lesquels ils doivent intervenir en cas de soucis.

- Première problématique : chaque technicien intervient sur plusieurs sites (environ  45 par personne) les noms se répètent (sur plusieurs ligne) donc dans cette colonne.

- Deuxième problématique est que : les colonnes X, Z, AC et AE, remontent les signaux d'alerte (0 pour normal et 1 pour défaut signalé) tels que si au moins l'une de ses colonnes  est >= 1, ceci déclenche l'envoie automatique du mail seulement au(x) technicien(s) concerné(s) en signifiant dans le mail, le nom du site concerné ainsi que la colonne affichant le défaut. 

Par contre, si X, Z, AC et AE = 0 ; ne rien faire 

En gros, le mail doit être déclenché dès que l'une de ces quatre colonnes change d'état de 0 à 1

 Je suis arrivé à écrire un code qui envoie un mail, mais je n'arrive pas deux chose :

à l'automatiser sans une action sur un bouton "envoyer " par exemple et  à intégrer toute les conditions ci-dessus énumérées.

Je vous prie de bien vouloir m'aider. Merci d'avance.

Mon code actuel :

Sub Automatisation_des_mails()

Dim LeMail As Variant 'Déclaration de variables.

Set LeMail = CreateObject("outlook.Application") 'Création d'un objet Outlook.


With LeMail.CreateItem(olMailItem) 'Début de la boucle
     
     'Sujet principal du message.
     .Subject = "Alerte maintenance Indicateurs : Vous avez sans doute une intervention à 
                        effectuer"
     
     'Adresse(à qui envoie t-on le mail) du destinataire.
     .To = Range("D15") 'Champs envoyer à
     
     'Contenu(détails)mail.
     .Body = "Bonjour " & Range("B15") & "," & vbCrLf & " " & vbCrLf & "Un indicateur te concernant est à corriger sur le " & Range("X15") & "." & vbCrLf & " " & vbCrLf & "Prière d'aller consulter ton tableau de bord sous : Q:\man\Suivi-travaux.xlsx" & vbCrLf & " " & vbCrLf & "Cordialement," & vbCrLf & " " & vbCrLf & "Le système de maintenance." & vbCrLf & "Ne pas répondre, ceci est un mail automatique."
	 
     .Display 'Affiche le mail en brouillon dans Outlook, pratique pour vérifier avant d'envoyer
     '.Send   'Envoie directement le mail
     
End With


End Sub

f894009 · Accepted Answer

Bonjour,
Vos colonnes de défaut changent par quel moyen, saisie manuelle ou automatique par une application externe ?

BJC80_1555 · Answer

Bonjour et bon dimanche.

Merci pour votre réponse vraiment.

Alors,  au moyen d'une requête SLQ  je récupère des informations en base de donnée que j'exporte et colle sur Excel, je coudrais aussi par la suite automatiser cette opération ci possible

f894009 · Answer

Bonjour,

Quelle type de base: Access, MySQL ou autres...
Automatiser, a intervals reguliers ou ?

Que ce passera-t-il si dans une mise a jour de vos données deux cellules de la meme ligne change d'état simultanément 
Ex: une est a 1 et l'autre a 0. A la mise a jour, 1 passe a 0 et 0 passe a 1 ceci sur la meme ligne.
Je pense qu'Excel interceptera ce changement, de votre cote c'est possible ce changement?
Autre exemple: deux cellules de la meme ligne passent a 1 simultanément , un seul envoi?

Maintenant, il serait plus opportun d'analyser la ou les requêtes et traité les infos directement et de ce fait la feuille Excel n'est qu'un affichage

BJC80_1555 · Answer

Bonjour, 

La logique voudrais que même si deux cellules de la même ligne passent a 1 simultanément , qu'il ne soit envoyé qu'un seul message.

La base est une base Oracle, compte tenu de la complexité de la requête qui va chercher l'information, la mise à jour s'effectue (pour l'heure) qu'une seule fois par jour.

Je voudrais donc qu'à 09h :00min : 00sec par exemple, soit déclenché un mail automatique avec l'état à l'instant T du fichier mis à jour. 

Et si changement il y a dans la journée, ces derniers, redéclencher le mail.

f894009 · Answer

Re,

passent a 1 simultanément....qu'un seul message.
Oui, mais pour l'exemple 
une est a 1 et l'autre a 0. A la mise a jour, 1 passe a 0 et 0 passe a 1 ceci sur la meme ligne.

la requête qui va chercher l'information
Oui, mais qui ecrit dans les cellules?
Cette requete est ou et lancee d'ou?
Le fichier Excel est ouvert en permanence ou pas?

Je vous pose toutes ces questions pour eviter d'avoir du code qui pourrait etre redondant avec ce qui existe, notamment le balayage de toutes les lignes

BJC80_1555 · Answer

« Oui, mais pour l'exemple une est à 1 et l'autre a 0. A la mise à jour, 1 passe à 0 et 0 passe à 1 ceci sur la même ligne ». Dans ce cas aussi déclencher un mail automatique à la (aux) personnes concerné(s) « la requête qui va chercher l'information Oui, mais qui écrit dans les cellules ? » « Le fichier Excel est ouvert en permanence ou pas ? Je vous pose toutes ces questions pour éviter d'avoir du code qui pourrait être redondant avec ce qui existe, notamment le balayage de toutes les lignes » « Cette requête est ou et lancée d'où ? » Elle tape la base de données sur un environnement Unix. Cette requête est automatisée sur cette environnement externe. Tous les matins, je vais regarder si le fichier à été généré. Une fois généré, je le copie dans un répertoire local : "R:\BZV MAJ\BJC\Maintenance\". Le fichier généré est en XML. Et cette petite macro, m’aide à le ramener sur Excel : Public Sub RecuperationExportIndicateurs () Dim workbookSuivi As Workbook Dim workbookMaintenance As Workbook Dim sheetNewMaintenance As Worksheet Dim sheetMaintenance As Worksheet Set workbookSuivi = ActiveWorkbook Set sheetMaintenance = workbookSuivi.Sheets("export_Indicateurs") Dim Fso As Scripting.FileSystemObject Dim FileItem As Scripting.File Dim Dossier As String, Fichier As String Dim FichierToLoad As String Dim DateFichier As Date Dim DateFichierToLoad As Date Dossier = "R:\BZV MAJ\BJC\Maintenance\" 'Répertoire où est manuellement stocké le fichier 'récupéré Fichier = Dir(Dossier) Do While Fichier <> "" Set FileItem = Fso.GetFile(Dossier & Fichier) 'Scrupte le répertoire et boucle sur tous les 'fichiers de ce dernier en ne récupérant que le 'dernier en fonction de sa date de création. DateFichier = CDate(Left(FileItem.DateCreated, 10)) If (Len(FichierToLoad) = 0 Or DateFichier > DateFichierToLoad) Then DateFichierToLoad = DateFichier FichierToLoad = Fichier 'Stocke que le fichier le plus récent End If Fichier = Dir Loop If (Len(FichierToLoad) <> 0) Then ' Récupération Données Maintenance Workbooks.OpenXML _ Filename:=Dossier & FichierToLoad, _ LoadOption:=xlXmlLoadImportToList Set workbookMaintenance = ActiveWorkbook ' Set sheetNewMaintenance = ActiveSheet ' Copie des données dans l'onglet Maintenance sheetMaintenance.Cells.ClearContents sheetNewMaintenance.Cells.Copy Destination:=sheetMaintenance.Cells ' Fermeture workbookSuivi.Activate workbookMaintenance.Close saveChanges:=False workbookSuivi.Sheets("Suivi").Range("C3") = Now End If End Sub

f894009 · Answer

Re,

Dans ce cas aussi déclencher un mail automatique 
Vous ne semblez pas comprendre le cas que j'entrevois. Pas grave, je vais verifier kake chose

Ok, vous faites un import d'un fichier xml et vous copiez les donnees dans une feuille de votre classeur.
Pour le moment, vous ne "savez" pas  comment traiter ces infos pour envoi @mail.
Le code presente a ete ecrit par vous?

Je fais un code pour test

BJC80_1555 · Answer

Non celui ci non, quelqu'un m'a aidé

f894009 · Answer

Re,

Ok, c'est juste pour vous cerner un peu cote programmation.
Encore et toujours des questions.

Dans l'appel de votre procedure d'envoi @mail, il y aura de parametres a passer qui sont sur la ligne en cours de traitement.
Les colonnes X,Z,AC,AE ont des entetes?

Dans votre  Body @mail, y a un truc qui m'interpelle. Normalement, les colonnes a surveiller n'ont que 1 ou 0 que signifie le Range("X15")?
15 est le numero de ligne je suppose 
.Body = "Bonjour " & Range("B15") & "," & vbCrLf & " " & vbCrLf & "Un indicateur te concernant est à corriger sur le " & Range("X15") & "."

BJC80_1555 · Answer

Non, cette partie du code n'est qu'une des variante que j'ai essayé simplement en regardant des tuto sur un fichier brouillon. je voulais, partant de cette logique l'implémenter à mes données réels. et depuis une semaine je suis bloqué.

Oui les colonnes ont des entêtes. j'ai pas un moyen de te joindre une capture

f894009 · Answer

Re,
Donc, dans le Body de l'@Mail, il faut mettre toutes les entetes dont la cellule est a 1 pour la ligne en cours de test?

BJC80_1555 · Answer

https://img-19.ccm2.net/XDJi_SPFZGo1mkxJTiZci2NvzS4=/440x/f3f6ec0b62b4490e89ccf1f25ec1848e/ccm-ugc/FCH.PNG

f894009 · Answer

Re,

Je pige plus, quelles cellules passent 1/0 et inversement car au vu de votre image le contenu des colonnes Z,X etc n'ont pas du tout ce type d'infos. De plus des cellules vertes oui, mais jaunes pas une

A demain

BJC80_1555 · Answer

Bonjour, 

Ceci se sont les en-tête de colonnes de tout mon tableau. 

Pour l'instant se sont colonnes X,Z,AC,AD,AE et AF sur lesquels je dois focaliser ma surveillance car, celles-ci renvoient des chiffres entre 0 et >=1. Les autres cases jaunes ne renvoient que des dates (le changement de certaines dates est intéressant à marquer dans le mail aussi mais du moins pour l'instant je ne voudrais pas vous saturer avec ma demande) 

Je crois vous avoir dit dans mon premier message je pense, lorsque ces colonnes sont toutes à 0, ne rien faire. Par contre le changement d'état d'alerte commence à X,Z,AC,AD,AE,AF >=1.

f894009 · Answer

Bon jour,

entre 0 et >=1
Pas pareil que 0 ou 1. C'est donc un nombre de fake chose.
Donc, prendre en compte les colonnes X,Z,AC,AD,AE,AF >=1(Jaunes invisibles et vertes)

Ok, je vais cree un fichier avec une feuille simplifiee semblable a votre image

BJC80_1555 · Answer

J'ai sans doute mal exprimé le besoin à un certain moment. C'est bien un changement d'état de 0 à des valeurs >=1.

Prière de commenter au maximum les lignes pour que je comprenne mieux la logique.

Une fois de plus, merci pour votre disponibilité.

f894009 · Answer

Re,

J'ai sans doute mal exprimé le besoin à un certain moment.
Tant que c'est avant que j'ai commence, pas grave
J'ai pas mal avance

Dans votre code du debut y a cellule D15 pour destinataire, z'etes sur qu'il y a une Adresse @mail ?

BJC80_1555 · Answer

Oui mes adresses mail y étaient. Justement, si mes adresses mail sont sur une autre page, comment faire appel à cette feuilles et à la cellule correspondante à l'adresse de l'intéressé?

BJC80_1555 · Answer

En admettant que j'ai une feuille adresse techniciens et Rp

f894009 · Answer

Re,

Oui mes adresses mail y étaient.
C'est balo de les avoir perdues

une feuille adresse techniciens et Rp
Va pour une feuille avec colonne Nom et colonne Adresse @mail

Par contre, y a un truc. 
Vous avez colonne A=RP et B=Tec, ces deux colonnes ont toujours un nom ou pas
Dans le texte de votre image, y a distingo entre les verts et les jaunes pour la personne destinatrice( un peu comme les bleus claires et les bleus fonces )
Donc a priori il y aurait deux envois distincts si jaune et vert en defaut. Dans votre demande, vous n'indiquez que la colonne B
Pouvez expliquer en detail ce qu'il en est reelement car j'ai pratiquement termine. Reste les commentaires et si je dois faire seux envois separes ca chamboule un peu ma structure de programme mais je ferai 

 la colonne F, liste les noms des sites (270 au total)
Je dois mettre un nom de site dans le corps du message

Envoie mail automatique VBA via Outlook

25 réponses

Votre réponse

Discussions similaires

Newsletters