Boucle VBA avec conditions pour envoyer un mail

Bonjour à vous cher forum,

Toujours dans le cadre de mon stage je dois concevoir un code VBA me permettant d'envoyer un mail une fois que dans ma cellule la date du règlement y est inscrite (je souhaite que ça envoie un seul mail à la personne). Pour essayer de répondre à cela j'ai inséré à coté de la date de règlement une colonne de vérification avec 0 si le mail n'a pas été envoyé et 1 s'il a été fait; J'aimerais donc faire en sorte qu'une fois que le mail est envoyé la case de vérification passe de 0 à 1.

cellule vérification=0 , Date de règlement = remplie

-->Envoyer un mail à la personne réussit

la cellule vérification passe à 1 et donc l'envoie de mail n'a plus à avoir lieu.

Merci par avance pour le temps que vous prendrez pour résoudre mon problème.

Cordialement.

Tom

forum

Bonjour,

Il serait judicieux d'envoyer un fichier test anonymisé avec le code si vous souhaitez une réponse.
Sinon, à la fin de votre .Display de votre mail object il faut avoir quelque chose du style cells(j, colonne) = 1.

Cdlt,

Bonjour Ergotamine,

je vous remercie de votre réponse. Je viens tout juste de modifier mon fichier afin de l'anonymiser.

je vous transmets le fichier.

Cordialement.

22forum-1.xlsm (87.53 Ko)

Bonjour,

Ci-contre votre code qui devrait répondre à votre besoin :

Sub ENVOI()
Dim LR%, WS As Worksheet
Dim APPMAIL As Object
Dim OBJMAIL As Object
Set WS = ThisWorkbook.Worksheets("chrono factures 2021")
With WS
    For i = 9 To .Cells(.Rows.Count, 1).End(xlUp).Row
        If .Cells(i, 14) = 0 Then
            Set APPMAIL = CreateObject("outlook.application")
            Set OBJMAIL = APPMAIL.CreateItem(0)
            With OBJMAIL
                .To = WS.Cells(i, 12)
                .Subject = "Rappel de votre banque : " & WS.Cells(i, 5)
                .Body = "Corps de texte"
                .Display
            End With
            .Cells(i, 14) = 1
        End If
    Next i
End With
End Sub

Je vous laisse adapter le corps de texte.

Cdlt,

Bonjour Ergotamine,

Franchement un grand merci je ne sais pas comment te remercier pour le temps que vous avez pris pour moi.

Encore merci en vous souhaitant une bonne journée.

Un jour j’espère pouvoir bien maîtriser VBA.

Cdlt.

Tom

Rechercher des sujets similaires à "boucle vba conditions envoyer mail"