Bonjour
Je souhaite envoyer un mail dès qu'une date est atteinte en excel,
Voici le programme vba
dans module:
Sub EnvoiMail()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<font size=""3"" face=""Calibri"">" & _
"Bonjour,<br><br>" & _
"Pour rappel, voici la liste des Dossier que nous devons sortir cette semaine <B> " & Cells(ActiveCell.Row, 1).Value & " </B>" & _
"<br><br> " & _
"" & Cells(ActiveCell.Row, 6).Value & "" _
& "</A>" & "<br><br>Cordialement," & _
"<br><br>Nom prenom</font>"
With OutMail
.To = "mail"
.CC = ""
.BCC = ""
.Subject = "Sortie dossier"
.HTMLBody = strbody
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Dans ThisWorkbook :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 30 And Target.Offset(, 1).Value <= Date Then Call EnvoiMail
End Sub
Le probléme est que lors de modification de la cellule numéro 30 ( affichage de la date) le mail est envoyé par contre si la date est atteinte sans que je modifie la cellule le mail n'est pas envoyé .
merci d'avance