Bonjour,

Je souhaiterais envoyer des emails avec plusieurs conditions mais lorsque je modifie le code il ne marche plus. Je souhaite envoyer un email quand les conditions oui et Fr sont réunis ou un autre email quand c'est oui et En. Dès que j'ai rajouté les conditions avec Fr ou En le code ne fonctionnait plus.

merci d'avance,

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
Sub Emailvalidationpaiement()
 
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
 
    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
 
    On Error GoTo cleanup
    For Each cell In Columns("D").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" And _
           LCase(Cells(cell.Row, "K").Value) = "oui" _
           And LCase(Cells(cell.Row, "J").Value) = "Fr" _
           And LCase(Cells(cell.Row, "L").Value) <> "send" Then
 
            Set OutMail = OutApp.CreateItem(0)