Boucle If dans OutMail

[Juj]

Bonjour à toute la communauté,

J'ai un petit pb de non fonctionnement de ma boucle. je veux que fonction du nom dans une cellule le mail soit envoyé à la bonne personne. le code ne me renvoie pas d'erreur mais seule la condition dans le "Else" (en rouge) marche et m'envoie les mails correspondants

le code suivant est placé dans une boucle for:

Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

   With Dest
        .SaveAs TempFilePath & TempFileName & FileExtStr, _
               FileFormat:=FileFormatNum
        On Error Resume Next
        With OutMail
            If .Cells(i, 7).Text = "Julien " Then
            .To = "julien@yahoo.fr"
            .CC = ""
            .BCC = ""
            .Subject = objet
            .Body = Strbody
            .Send   'or use .Display
            ElseIf .Cells(i, 7).Text = "Bruno " Then
            .To = "bruno@laposte.net"
            .CC = ""
            .BCC = ""
            .Subject = objet
            .Body = Strbody
            .Send   'or use .Display
            ElseIf .Cells(i, 7).Text = "Philippe " Then
            .To = "philippe@gmail.com"
            .CC = ""
            .BCC = ""
            .Subject = objet
            .Body = Strbody
            .Send   'or use .Display
           Else
            .To = "petitju@laposte.net"
            .CC = ""
            .BCC = ""
            .Subject = objet
            .Body = Strbody
            .Send   'or use .Display
            End If
         End With
        On Error GoTo 0
        .Close SaveChanges:=False
    End With

    Kill TempFilePath & TempFileName & FileExtStr

    Set OutMail = Nothing
    Set OutApp = Nothing

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    
      
    On Error GoTo 0

Est-ce que quelqu'un a une idée?

Merci d'avance

juj

 

[Hervé]

Re : Boucle If dans OutMail

salut

essaye en elevant le . devant les cells

With OutMail
If .Cells(i, 7).Text = "Julien " Then

a plus