Mail en vba
seifi
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
Mseif -
Mseif -
Bonjour a tous,
j'ai un soucis :
l'ai un tableau de 3 colonnes dont la première colonne je saisi une date d'enregistrement je besoin de recevoir un mail lors de chaque oubli d'enregistrement
par exemple:
aujourd’hui le 01/06/2017, si l'heure dépasse le 10pm je reçois un mail on disant que "j'ai oublié de faire le saisie pour la date de 01/06/2017"
voir le tableau ci-dessous
https://www.cjoint.com/c/GFbfM6sGDqQ
merci en avance pour votre aide
j'ai un soucis :
l'ai un tableau de 3 colonnes dont la première colonne je saisi une date d'enregistrement je besoin de recevoir un mail lors de chaque oubli d'enregistrement
par exemple:
aujourd’hui le 01/06/2017, si l'heure dépasse le 10pm je reçois un mail on disant que "j'ai oublié de faire le saisie pour la date de 01/06/2017"
voir le tableau ci-dessous
https://www.cjoint.com/c/GFbfM6sGDqQ
merci en avance pour votre aide
A voir également:
- Mail en vba
- Windows live mail - Télécharger - Mail
- Publipostage mail - Accueil - Word
- Créer une adresse mail hotmail - Guide
- Comment télécharger un mail - Guide
- Mail vert ✓ - Forum Mail
2 réponses
Bonjour,
Personnellement, j'utiliserais cette macro dans "Workbook" avec l'event Open :
(A supposer que vous utilisez Outlook comme logiciel de messagerie)
Il ne reste qu'à utiliser l'outil "Planificateur de tâches" de windows.
Cordialement.
Personnellement, j'utiliserais cette macro dans "Workbook" avec l'event Open :
Private Sub Workbook_Open() Dim DL As Integer Dim i As Integer Dim Verif As Boolean Verif = True For i = 1 To DL If Range("A" & i) <> Date Then Verif = False End If Next i If Verif = False Then Envoi_Mail End If End Sub Function Envoi_Mail() Dim ObjOutlook As New Outlook.Application Dim oBjMail Set ObjOutlook = New Outlook.Application Set oBjMail = ObjOutlook.CreateItem(olMailItem) With oBjMail .To = "Votre adresse mail" .Subject = "FICHIER NON REMPLI" .Body = "Le fichier n'a pas été rempli aujourd'hui." .Send End With ObjOutlook.Quit Set oBjMail = Nothing End Function
(A supposer que vous utilisez Outlook comme logiciel de messagerie)
Il ne reste qu'à utiliser l'outil "Planificateur de tâches" de windows.
Cordialement.