Mail automatique si date dans colonne = date du jour
clemosaure
Messages postés
2
Statut
Membre
-
clemosaure Messages postés 2 Statut Membre -
clemosaure Messages postés 2 Statut Membre -
Bonjour,
Comme vous l'aurez compris, ce que je cherche à faire n'est pas bien compliqué mais c'est comme tout...il faut savoir.
Voilà, je souhaiterais mettre en place une macro qui enverrait un mail à la condition que la date dans la colonne (O en l'occurence) soit égale à la date du jour.
j'ai trouvé le code ci dessous sur internet, il permet d'envoyer un mail, mais pas de prendre en compte la condition de date :
Sub envoimail()
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)
monItem.To = " jackybrown@cb.com "
monItem.Subject = "objet du mail"
monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver blabla"
Set mondoc = monItem.Attachments
monItem.Send
Set ol = Nothing
MsgBox "la demande a bien été transmise "
End Sub
Merci par avance de votre aide,
Clément
Comme vous l'aurez compris, ce que je cherche à faire n'est pas bien compliqué mais c'est comme tout...il faut savoir.
Voilà, je souhaiterais mettre en place une macro qui enverrait un mail à la condition que la date dans la colonne (O en l'occurence) soit égale à la date du jour.
j'ai trouvé le code ci dessous sur internet, il permet d'envoyer un mail, mais pas de prendre en compte la condition de date :
Sub envoimail()
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)
monItem.To = " jackybrown@cb.com "
monItem.Subject = "objet du mail"
monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver blabla"
Set mondoc = monItem.Attachments
monItem.Send
Set ol = Nothing
MsgBox "la demande a bien été transmise "
End Sub
Merci par avance de votre aide,
Clément
1 réponse
-
OK, plus de pb j'ai, enfin ON a trouvé :
Sub Date()
'
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)
With ThisWorkbook.Worksheets("titre de l'onglet")
For i = M To .Columns(.Range("M2").Column).Find("*", , , , xlByColumns, xlPrevious).Row - 1
If Format(.Range("M2").Offset(i, M), "dd/mm/yyyy") = Format(Now, "dd/mm/yyyy") Then
monItem.To = " jackybrown@hot.com "
monItem.Subject = "MAJ"
monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "message corps du mail"
Set mondoc = monItem.Attachments
monItem.Send
Set ol = Nothing
MsgBox "la demande a bien été transmise "
End If
Next
End With
End Sub
Au plaisir,
Clément
