Macro: mail sous condition

[roidurif]

Bonjour,

L'objectif est d'envoyer des mails aux personnes concernés (colonne H), avec un message type selon 2 conditions (Si la date de fin est dépassée ou Si la date de fin n'est pas dépassée).

En indiquant un "X" en colonne D, ca va envoyé automatiquement le message type et indiqué en colonne (i) la date à laquelle le mail a été envoyé.

J'espere avoir été clair dans mes precisions

Je vous joins mon fichier pour exemple.

Merci de l'aide par avance.

Cordialement,

Roidurif

 

[juju_69]

Re : Macro: mail sous condition

Bonjour,

Voici le code à copier et à affecter à ton bouton :

Sub mail()
Dim S As Integer, i As Integer
Dim ol As Object
Dim olmail As Object
Dim CurrFile As Object

For i = 6 To [E1000].End(xlUp).Row
If Cells(i, 4) <> "" And Cells(i, 4) <> " " And Cells(i, 6) > Now And Cells(i, 8) <> "" Then

Set ol = CreateObject("Outlook.Application")
Set olmail = ol.CreateItem(0)
    With olmail
        .To = Cells(i, 8)
        .Subject = "Echéance à venir"
        .Body = "Bonjour " & Cells(i, 7) & Chr(13) & Chr(13) & "Votre société " & Cells(i, 5) & " va arriver à terme le " & Cells(i, 6) & "." & Chr(13) & Chr(13) & "Cordialement,"
        'Remplacez .Display par .send pour envoyer directement l'e-mail sans l'afficher dans Outlook
        .Display
        End With
Cells(i, 9) = Now
ElseIf Cells(i, 4) <> "" And Cells(i, 4) <> " " And Cells(i, 6) <= Now And Cells(i, 8) <> "" Then

Set ol = CreateObject("Outlook.Application")
Set olmail = ol.CreateItem(0)
    With olmail
        .To = Cells(i, 8)
        .Subject = "Echéance échue"
        .Body = "Bonjour " & Cells(i, 7) & Chr(13) & Chr(13) & "Votre société " & Cells(i, 5) & " est arrivée à échéance le " & Cells(i, 6) & "." & Chr(13) & Chr(13) & "Cordialement,"
        'Remplacez .Display par .send pour envoyer directement l'e-mail sans l'afficher dans Outlook
        .Display
        End With
Cells(i, 9) = Now
End If
Next i
End Sub

Bonne journée

Juju