MASSJIPE
XLDnaute Impliqué
Bonjour le forum
j'ai un code bricolé pour envoyer un mail.
En T4 il y à la date sous la fonction (=MAINTENANT()) dans la colonne T6 à T500 la date
si la condition si les dates correspondes à T6 il prend les adresses mail en colonne F
peut être revoir le code
Sub envoiMail_debloquage()
'
' envoiMail Macro
' Macro enregistrée le 05/05/2010
'
Dim i As Integer
Dim vehicule As String
Dim BouA As String
Dim signature As String
Dim emetteur As String
signature = "A. Pie<br>115"
emetteur = "toto@sfrt.fr"
i = 6
Do While Range("A" & i).Value <> ""
If Range("G" & i).Value <> 0 Or Range("J" & i).Value <> 0 Then
' Envoi du message d'alerte
strbody = "<html>Bonjour " & Range("E" & i) & "<br><br>"
If Range("C" & i).Value = "A" Then
BouA = "contrôle 25 avant / 25 après"
Else
BouA = "blocage"
End If
strbody = strbody & "tu es pilote du " & BouA & " n°" & Range("B" & i).Value & " (" & Range("D" & i).Value & ") ouvert le " & Range("A" & i).Value & "."
strbody = strbody & "<br>A ce jour, il est fermé :"
strbody = strbody & "<br>Merci de répondre à l'enquête de sastifaction."
strbody = strbody & "<br>1°) Disponibilté des bloqueurs =>"
strbody = strbody & "<br>2°) Délais mise en place cellule de crise =>"
strbody = strbody & "<br>3°) Délai de mise à dispositiondes listings =>"
strbody = strbody & "<br>4°) Traitement des débloquages des véhicules =>"
strbody = strbody & "<br>5°) Autres =>"
strbody = strbody & "<br>" & signature
strbody = strbody & "<br><br>Ceci est un mail automatique envoyé quotidiennement à tous les pilotes de blocage."
Set CdoMessage = CreateObject("CDO.Message")
If Range("G" & i).Value + Range("J" & i).Value > 1 Then
vehicule = "véhicules"
Else
vehicule = "véhicule"
End If
With CdoMessage
.Configuration.Fields.Item("") = 2
.Configuration.Fields.Item("") = "smtp.renault.fr"
.Configuration.Fields.Item("") = 25
.Configuration.Fields.Update
.Subject = "enquête de sastifaction suite à bloquage qualité"
.From = emetteur
.To = Range("F" & i).Value
.CC = "a@sfr.fr"
.HTMLBody = strbody
.Send
End With
Set CdoMessage = Nothing
End If
i = i + 1
Loop
MsgBox ("Les mails ont bien été envoyés aux pilotes de blocage")
End Sub
j'ai un code bricolé pour envoyer un mail.
En T4 il y à la date sous la fonction (=MAINTENANT()) dans la colonne T6 à T500 la date
si la condition si les dates correspondes à T6 il prend les adresses mail en colonne F
peut être revoir le code
Sub envoiMail_debloquage()
'
' envoiMail Macro
' Macro enregistrée le 05/05/2010
'
Dim i As Integer
Dim vehicule As String
Dim BouA As String
Dim signature As String
Dim emetteur As String
signature = "A. Pie<br>115"
emetteur = "toto@sfrt.fr"
i = 6
Do While Range("A" & i).Value <> ""
If Range("G" & i).Value <> 0 Or Range("J" & i).Value <> 0 Then
' Envoi du message d'alerte
strbody = "<html>Bonjour " & Range("E" & i) & "<br><br>"
If Range("C" & i).Value = "A" Then
BouA = "contrôle 25 avant / 25 après"
Else
BouA = "blocage"
End If
strbody = strbody & "tu es pilote du " & BouA & " n°" & Range("B" & i).Value & " (" & Range("D" & i).Value & ") ouvert le " & Range("A" & i).Value & "."
strbody = strbody & "<br>A ce jour, il est fermé :"
strbody = strbody & "<br>Merci de répondre à l'enquête de sastifaction."
strbody = strbody & "<br>1°) Disponibilté des bloqueurs =>"
strbody = strbody & "<br>2°) Délais mise en place cellule de crise =>"
strbody = strbody & "<br>3°) Délai de mise à dispositiondes listings =>"
strbody = strbody & "<br>4°) Traitement des débloquages des véhicules =>"
strbody = strbody & "<br>5°) Autres =>"
strbody = strbody & "<br>" & signature
strbody = strbody & "<br><br>Ceci est un mail automatique envoyé quotidiennement à tous les pilotes de blocage."
Set CdoMessage = CreateObject("CDO.Message")
If Range("G" & i).Value + Range("J" & i).Value > 1 Then
vehicule = "véhicules"
Else
vehicule = "véhicule"
End If
With CdoMessage
.Configuration.Fields.Item("") = 2
.Configuration.Fields.Item("") = "smtp.renault.fr"
.Configuration.Fields.Item("") = 25
.Configuration.Fields.Update
.Subject = "enquête de sastifaction suite à bloquage qualité"
.From = emetteur
.To = Range("F" & i).Value
.CC = "a@sfr.fr"
.HTMLBody = strbody
.Send
End With
Set CdoMessage = Nothing
End If
i = i + 1
Loop
MsgBox ("Les mails ont bien été envoyés aux pilotes de blocage")
End Sub