Boucle If dans OutMail

Juj

XLDnaute Nouveau
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:
Code:
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
 

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 871
Messages
2 093 102
Membres
105 627
dernier inscrit
jean-marc.brillant