Mail en vba

Fermé
seifi Messages postés 3 Date d'inscription jeudi 1 juin 2017 Statut Membre Dernière intervention 1 juin 2017 - Modifié le 1 juin 2017 à 07:45
 Mseif - 29 juin 2017 à 10:42
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
A voir également:

2 réponses

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
Modifié le 12 juin 2017 à 10:02
Bonjour,

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.
0
Bonjour Kuartz,

désolé mais ça marche pas
un message d'erreur s'affiche " Erreur de compilation: Type défini par l'utilisateur non défini"

:(
0