Macro envoie Mail

bonjour, je cherche à realiser une macro qui envoie un mail aux diferentes adresses de la cellule D quand la date de la cellule A est dépassée de 7 jours par exemple avec les informations contenues dans la cellule B.

bonjour,

une solution possible

Sub aargh()
    Set ws = Sheets("feuil1")
    With CreateObject("Outlook.Application")
        For i = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row
            If ws.Cells(i, "A") + 7 < Now() Then
                With .CreateItem(0)
                    .to = ws.Cells(i, "D")
                    .Subject = "sujet"
                    .Body = "message"
                    .send
                End With
            End If
        Next i
    End With
End Sub

J'ai eu plusieurs blocages et la la macro me dit impossible de reconnaitre un ou plusieurs noms

re-bonjour

Cette macro fonctionne avec un fichier test que je me suis créé sur base des rensignements que tu as bien voulu donner.

je ne sais rien faire de te dernière réponse. Soit plus précis.

Jai la colonne À qui contient des dates, la colonne Qui contient des renseignements. Et la colonne D les adresses mails à qui doivent recevoir un mail quand la date dans la colonne est supérieur à 7j avec les informations de la colonne B svp.

re-bonjour,

mets-nous ton fichier.

Je vais remplacer la colonne D par le mail des transporteurs

re-bonjour,

essaie ceci

Sub aargh()
    Set ws = Sheets("feuil1")
    With CreateObject("Outlook.Application")
        For i = 3 To ws.Cells(Rows.Count, 1).End(xlUp).Row
            If ws.Cells(i, "A") + 7 < Now() Then
                With .CreateItem(0)
                    .To = ws.Cells(i, "D")
                    .Subject = "sujet"
                    .Body = "message " & ws.Cells(i, "B")
                    .display
                End With
            End If
        Next i
    End With
End Sub

super merciii a toi. Ca marche super bien

Re bonjour

J'aimerai ajouter une condition à la macro que tu m'as fourni hier mais je n'y arrive pas.

J'aimerai que si dans la cellule E il y a fourni, que le mail ne leur soit pas envoyé, du genre pas d'action Nothing

bonjour,

Sub aargh()
    Set ws = Sheets("feuil1")
    With CreateObject("Outlook.Application")
        For i = 3 To ws.Cells(Rows.Count, 1).End(xlUp).Row
            If ws.Cells(i, "A") + 7 < Now()  and ws.cells(i,"E")<>"fourni" Then
                With .CreateItem(0)
                    .To = ws.Cells(i, "D")
                    .Subject = "sujet"
                    .Body = "message " & ws.Cells(i, "B")
                    .display
                End With
            End If
        Next i
    End With
End Sub
 

Ca marche super bien!!! Encore Merciiii

h2so4 a écrit :

bonjour,

Sub aargh()
    Set ws = Sheets("feuil1")
    With CreateObject("Outlook.Application")
        For i = 3 To ws.Cells(Rows.Count, 1).End(xlUp).Row
            If ws.Cells(i, "A") + 7 < Now()  and ws.cells(i,"E")<>"fourni" Then
                With .CreateItem(0)
                    .To = ws.Cells(i, "D")
                    .Subject = "sujet"
                    .Body = "message " & ws.Cells(i, "B")
                    .display
                End With
            End If
        Next i
    End With
End Sub
 

Bonjour GIRODO

Je te reviens encore une fois et j'en suis desolé de t'embeter autant.

J'essaye d'ajouter une autre condition pour cette macro mais je cale.

Si la date est supérieure à + 7 jours la macro envoie un mail.

Je voudrai rajouter une autre condition apres:

If ws.Cells(i, "A") + 7 < Now() and ws.cells(i,"E")<>"fourni" Then

Si la case E ne contient pas fourni apres la premiere relance, d'en envoyer une autre

S'il te plait