Mail outlook automatique au démarrage d'Excel
Bonjour,
j'ai un code d'envoi de mail via outlook. qui se déclenche lorsque j'arrive à 2 jours de la fin d'une tache.
j'utilise dans une cellule la fonction Aujourd'hui() et dans une autre j'affiche la date de fin de la tache.
la lettre "A"( comme Alerte) dans une autre cellule s'affiche a 2 jours avant l'échange
Lorsque la lettre "A" apparait, un mail est envoyé.
Si je force la lettre A a s'afficher en jouant avec la date de fin, le mail est envoyé.
Maintenant, si je joue avec la cellule qui contient la fonction Aujourd'hui pour m'approcher de 2 jour de l’échéance: Aucun mail
Si je démarre Excel et que pour une tache, il me reste 2 jours: aucun mail
Pouvez vous me donner votre avis sur le code?
Peut on faire en sorte que lorsque j'ouvre excel, et que la cellule avec la fonction Aujourd'hui approche de 2 jours de la date de fin , un mail soit envoyé?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim L As Integer
If Target.Column <> 3 And Target.Column <> 9 Then Exit Sub
If Cells(Target.Row, "O") = "A" Then
Set OutApp = CreateObject("Outlook.Application")
If Cells(Target.Row, "O") = A Then
Set OutMail = OutApp.CreateItem(0)
strbody = "Description de la Tache: " & Cells(Target.Row, 4) & vbCrLf & "Priorité de la tache: " & Cells(Target.Row, 5) & vbCrLf _
& "Porteur: " & Cells(Target.Row, 6) & vbCrLf & "Date de fin: " & Cells(Target.Row, 9)
On Error Resume Next
With OutMail
.To = "toto@toto.com"
.CC = ""
.BCC = ""
.Subject = "Avertissement sur Tâche"
.Body = strbody
.Display
Application.SendKeys "%v"
End With
On Error GoTo 0
End If
End If
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Merci de ne pas ouvrir de ficelle en doublons
Doublons : https://forum.excel-pratique.com/post155003.html#p155003
Mytå
Bonjour,
Mytå a écrit :Merci de ne pas ouvrir de ficelle en doublons
Doublons : https://forum.excel-pratique.com/post155003.html#p155003
Mytå
Effectivement, je suis désolé.
Peut on supprimer l'autre Post?
Bonjour,
Quelqu'un a une idée?
Salut,
Pas d'inspiration sur le sujet.
Re le forum
Commence pas donner suite à tes demandes : Base de connaissance gestion de projet
Référence : Charte du Forum
Charte a écrit :En postant une question, vous vous engagez à donner suite à votre demande
(cela représente un minimum de respect pour les membres qui prennent le temps de vous aider),
si vous ne voulez pas respecter les personnes à qui vous demandez de l'aide, ne posez pas de question, merci.
Tu auras surement plus de chance que l'on daigne t'aider.
Mytå
Désolé Myta,
c'est un oubli de ma part
Salut le forum
A adapter dans le code de ThisWorkbook
Private Sub Workbook_Open()
If Sheets("Feuil1").Cells(9, 3) = "A" Then EnvoiMail
End SubMytå