Mail en vba
seifi
Messages postés
3
Statut
Membre
-
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
- Comment télécharger un mail - Guide
- Créer une adresse mail hotmail - Guide
- Cegetel mail ✓ - 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.
