XL 2016 Envoi mail automatique 1 fois par jour

_Thierry à dit:

Bonjour @adel542 , le Forum

Ton Projet VBA est vérouillé par mot de passe dans ton classeur exemple...
Mais bon de toute manière avec le code celà suffit pour te répondre :

VB:

Sub Workbook_Open()
Dim w1 As Worksheet
Dim i As Long
Dim D As Date
Dim M As Object, OlApp As Object, Destinataire As String

Application.ScreenUpdating = False
D = Date
Set w1 = Worksheets("Feuil1")
Destinataires = "aaaaaaaaa.fr"
Destinataires2 = "bbbbbbbbb.fr ; cccccccccc.fr ; ddddddddddd.fr"

Destinataire = Email
For i = 2 To w1.Range("I" & Rows.Count).End(xlUp).Row

        On Error Resume Next
        If w1.Cells(i, "I") = D  Then
            If w1.Cells(i, "N") <> "" Then  ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< AJOUT !!!
                    Set OlApp = CreateObject("Outlook.application")
                    Set M = OlApp.CreateItem(olMailItem)
                        With M
                            'Destinataires
                            .To = Destinataires
                            'Copie Destinataires
                            .CC = Destinataires2
                            .Subject = "sortie de réincubation"
                            .Body = w1.Cells(i, "A") & "  " & w1.Cells(i, "B") & "  " & w1.Cells(i, "Q") & "  " & w1.Cells(i, "R") & ""
                            .Recipients.Add Destinataire
                            .Send
                        End With
                w1.Cells(i, "N") = "Mail Sent " & Format(Now, "DD-MM-YY hh:mm:ss") ' <<<<<<<<<<<<<<<<<<<< AJOUT !!!
            End If
        End If
Next i
Application.ScreenUpdating = True
End Sub

Essaies comme ceci (en partant du principe que c'est bien la Colonne "N" qui est prévue à cet effet !!!

Bonne journée
@+Thierry

Cliquez pour agrandir...

_Thierry à dit:

Bonsoir @adel542 , le Forum

J'ai bien compris tes deux conditions, et je les ai bien dans mon code en cascAde de IF:

1) If w1.Cells(i, "I") = D Then
2) If w1.Cells(i, "N") <> "" Then ' <<<<<<<<<<<<<<<<<< AJOUT !!!

Cette condition dans ma proposite devrait empêcher l'envoi du mail pour autant qu'à la ligne de la Date du jour, la colonne N soit bien remplie avec quelque chose !
Je ne peux pas tester sur ton classeur, il est vérouillé pour l'accès VBA.

PS: Dans ton Code tu avais fait ceci en un seul IF avec AND :
If w1.Cells(i, "I") = D And w1.Cells(i, "I") <> "" Then
Tu ne regardes pas "N" pour vide .... Et tu écris "Mail Envoyé" avant qu'Outlook n'ait fait son boulot... (On ne sait jamais si il ne répond pas et que ca plante, en plus avec un "Resume Next" sans gestion d'erreur...)

Bonne soirée
@+Thierry

EDIT : 18:15 tu peux toujours essayer de blinder aussi la première condition, mais si le mail part, ce n'est pas la raison,

If CDate(w1.Cells(i, "I")) = D Then

Cliquez pour agrandir...

Sub Workbook_Open()
Dim w1 As Worksheet
Dim i As Long
Dim D As Date
Dim M As Object, OlApp As Object, Destinataire As String

Application.ScreenUpdating = False
D = Date
Set w1 = Worksheets("Feuil1")
Destinataires = "l546645656456.fr"
Destinataires2 = "giguiguifuu.fr ; egerogougu.fr ; ergierugierbg.fr"

Destinataire = Email
For i = 2 To w1.Range("I" & Rows.Count).End(xlUp).Row
 
On Error Resume Next
If w1.Cells(i, "I") = D Then
If w1.Cells(i, "N") <> "" Then
 
Set OlApp = CreateObject("Outlook.application")
Set M = OlApp.CreateItem(olMailItem)

With M
'Destinataires
.To = Destinataires
'Copie Destinataires
.CC = Destinataires2
.Subject = "sortie de réincubation"
.Body = w1.Cells(i, "A") & "  " & w1.Cells(i, "B") & "  " & w1.Cells(i, "Q") & "  " & w1.Cells(i, "R") & ""
.Recipients.Add Destinataire
.Send
End With
w1.Cells(i, "N") = "Mail Sent " & Format(Now, "DD-MM-YY hh:mm:ss")
End If
End If
Next i
Application.ScreenUpdating = True
End Sub

sylvanu à dit:

Bonjour Adel, Thierry,
Veuillez excuser cette intrusion intempestive, mais quelque chose m'échappe.
Si j'ai bien compris, à l'ouverture j'envoie mes mails et je mets en colonne N Mail envoyé.

VB:

If w1.Cells(i, "N") <> "" Then
   Envoyez mail
End If

Dans ce code, si en Col N il y a Mail envoyé donc <>"", alors j'envoie le mail.
Où est l'astuce qui m'a échappée ?

Second point, pourquoi ne pas faire avant : Destinataire = Email

Code:

If w1.range("N2") <> "" Then exit sub

S'il apparaît dans N2 Mail envoyé, alors on sort.

Cliquez pour agrandir...