VBA : envoi d'un mail auto en fonction du contenu d'une cellule

Question

Bonjour,

Apres plusieurs jour de recherche je n'ai pas trouvé de réponse à ma question.

J'ai un tableau excel avec 3 colonnes, j'aimerai qu'une macro s'exécute automatiquement lorsqu'une cellule de la 3e colonne contient le texte "A valider" et envoi un mail contenant les textes écrit dans les 2 autres colonnes de la même ligne. 

Exemple :

A1 B1 C1
A2 B2 C2
A3 B3 C3

Si C1 contient "A valider" -> envoi auto d'un mail contenant le texte "A1 et B1 sont disponibles" ou A1 et B1 sont les contenu des cellules.


Voila mon code actuellement :

Sub mail_auto_fin_procédure()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim L As String
        L = "A valider"    'ne fonctionne que si c'est un nombre, j'ai une erreur de compilation quand c'est un texte
        For L = "A valider" To Range("C65356").End(xlUp).Row
            If Range("C" & L) = "A valider" Then

                Set OutApp = CreateObject("Outlook.Application")
                Set OutMail = OutApp.CreateItem(0)
            
                strbody = "A1 et B1 sont disponibles"
            
                On Error Resume Next
                With OutMail
                    .To = "***@***"
                    .CC = ""
                    .BCC = ""
                    .Subject = "A vérifier"
                    .Body = strbody
                    .Display   'utiliser .Send pour l'envoi du mail
                End With
                On Error GoTo 0
            
                Set OutMail = Nothing
                Set OutApp = Nothing
            End If
        Next L
End Sub

Merci pour votre aide.

f894009 · Accepted Answer

Bonjour,

Sub mail_auto_fin_procédure()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim L As Long

With Worksheets("feuil1")    'adaptez le nom de feuille
        derlig = Range("C" & Rows.Count).End(xlUp).Row
        For L = 1 To derlig
            strbody = ""
            If Range("C" & L) = "A valider" Then
                Set OutApp = CreateObject("Outlook.Application")
                Set OutMail = OutApp.CreateItem(0)
                strbody = .Range("A" & L) & " et " & .Range("B" & L) & " sont disponibles"
                'On Error Resume Next
                With OutMail
                    .To = "xxxxxxxx@xxxxxx"
                    .CC = ""
                    .BCC = ""
                    .Subject = "A vérifier"
                    .Body = strbody
                    .Display 'visu @Mail
                    '.Send       ' pour l'envoi du @mail
                End With
                On Error GoTo 0
            End If
            Set OutMail = Nothing
            Set OutApp = Nothing
        Next L
    End With
End Sub

minia · Answer

Bonjour,

Merci pour votre réponse c'est exactement ce qu'il me fallait ! 
Autre question, j'ai ajouté une colonne date (Colonne D) pour que le mail s'envoi seulement si la date renseigné est celle du jour et non a chaque fois que je lance la macro. Comment faire pour dire si la date est celle d'aujourd'hui -> exécuter la macro ?

Merci.

minia · Answer

L'objectif est d'envoyé une seule fois le mail par ligne et pas tout réenvoyé à chaque fois tant que la case n'a pas changé.

Merci

minia · Answer

Super ça marche parfaitement comme je le voulais !!

Dernière question : Comment lancer l'exécution de la macro automatiquement à 16h00 tous les jours par exemple  ?

Merci.

panthera2612 · Answer

bonjour on vous a donner des conseils ici pouvez vous m aider cordialement

f894009 · Answer

Re,

Avec "mon" code normalement pas besoin de la reference Microsoft Outlook xx,0 Object Library mais une library qui permet beaucoup de "chose" sans avoir a cocher x libraray: Microsoft Office xx.0 Objec Library



Si vous vous envoyez les messages, vous devez mettre .Display en commentaire en mettant un ' devant et enlever le ' devant '.Send sinon les message ne partent pas

VBA : envoi d'un mail auto en fonction du contenu d'une cellule

6 réponses

Votre réponse

Discussions similaires

Newsletters