Discussion :

[edji75]

Bonjour,

Nous souhaitons créer un envoi automatique d'email à partir du contenu d'un fichier excel.
Pour chaque ligne un email (contenu dans la colonne C) doit être envoyé lorsque la date contenu dans la colonne I correspond à la date contenu dans la colonne D.

Nous sommes débutantes. Notre ligne de code est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Envoi_email()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
 
    Set ws = Sheets("feuil1")
    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
 
    For i = 28 To ws.Cells(Rows.Count, 1).End(xlUp).Row
    If ws.Cells(i, "I") = ws.Cells(i, "D") Then
 
        With ObjOutlook.CreateItem(olMailItem)
        With oBjMail
            .To = "aantzenb@its.JNJ.com"
            .Subject = "Suivi des études terminées à MAJ"
            .Body = "Bonjour,Merci de bien vouloir compléter le tableau de suivi des études terminées \\JNJFRISFPS21.eu.jnj.com\homeH$\idollin\Tracker\Etudes. Je reste à votre disposition pour tout complément d'information.Isabella"
            .Display
        End With
        End If
    Next i
        ObjOutlook.Quit
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
 
End Sub

Lorsque nous exécutons, l'erreur de compilation : "End If sans bloc If" apparait. Lorsqu'on excecute l'erreur "next sans for" apparait.

Pourriez-vous nous aider ?

Merci

[Oliv-]

!bonjour
voici pour corriger l'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub Envoi_email()
    Dim ObjOutlook As New Outlook.Application
    Dim oBjMail
 
    Set Ws = Sheets("feuil1")
    Set ObjOutlook = New Outlook.Application
 
    For i = 28 To Ws.Cells(Rows.Count, 1).End(xlUp).Row
        If Ws.Cells(i, "I") = Ws.Cells(i, "D") Then
            Set oBjMail = ObjOutlook.CreateItem(olMailItem)
            With oBjMail
                .To = "aantzenb@its.JNJ.com"
                .Subject = "Suivi des études terminées à MAJ"
                .Body = "Bonjour,Merci de bien vouloir compléter le tableau de suivi des études terminées \\JNJFRISFPS21.eu.jnj.com\homeH$\idollin\Tracker\Etudes. Je reste à votre disposition pour tout complément d'information.Isabella"
                .Display
            End With
        End If
            Set oBjMail = Nothing
 
    Next i
    ObjOutlook.Quit
    Set ObjOutlook = Nothing
 
End Sub