Mail automatique si date dans colonne = date du jour
clemosaure
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
clemosaure Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
clemosaure Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Mail automatique si date dans colonne = date du jour
- Déplacer colonne excel - Guide
- Réponse automatique thunderbird - Guide
- Trier colonne excel - Guide
- Airpods 3 date de sortie - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
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
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
