Probleme envoi email VBA

Bonjour,

J'essaie d'envoyer des emails en fonction d'une date. Cela fonctionne tant que je ne doit pas envoyer 2 emails à la même personne pour deux lignes différentes... Pouvez vous m'aider SVP ?

Ci joint mon fichier excel pour avoir le code

Merci beaucoup

Bonjour,

essaie en modifiant ainsi :

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
    '-----
    '-----
    Set oBjMail = Nothing
Next i

Jean-Eric a écrit :

Bonjour,

essaie en modifiant ainsi :

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
    '-----
    '-----
    Set oBjMail = Nothing
Next i

Je te remercie pour ta réponse

par contre je n'arrive pas a le placer correctement pour que ça fonctionne ... Peux tu me dire ou le placer et se qu'il y a à supprimer stp

Merci beaucoup à toi et à la communauté d'être autant réactif

Re,

Essaie donc ainsi :

Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String

    Set ObjOutlook = New Outlook.Application
    '---------------------------------------------------------
    'Exemple pour envoyer un classeur en pi?ce jointe
    'Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
    'If Nom_Fichier = "Faux" Then Exit Sub
    '---------------------------------------------------------
    'Ou bien entrer le path et nom du fichier autrement
    Nom_Fichier = "C:\Chemin\NomFichier.ext"
    If Nom_Fichier = "" Then Exit Sub
    '---------------------------------------------------------

    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If Date >= Range("E" & 3 + i) And Range("E" & 3 + i) <> "" Then
            Set oBjMail = ObjOutlook.CreateItem(olMailItem)
            With oBjMail
                .To = Range("H" & 3 + i)    'le destinataire
                .Subject = "CONTROLE TECHNIQUE A FAIRE AVANT " & Range("D" & 3 + i) & " "    ' l'objet du mail
                .Body = "Bonjour, La date du contr?le technique de la voiture immatricul? " & Range("B" & 3 + i) & _
                        " en date du " & Range("D" & 3 + i) & " arrive ? terme. Merci de faire le n?cessaire."    'le corps du mail ..son contenu
                '.Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier
                .Display    '   Ici on peut supprimer pour l'envoyer sans v?rification
                .Send
            End With
            Set oBjMail = Nothing
        End If
    Next i
    ObjOutlook.Quit
    Set ObjOutlook = Nothing
End Sub