mail en vba

Question

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

Kuartz · Answer

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.

Mseif · Answer

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" 

:(

Mail en vba

2 réponses

Discussions similaires

Newsletters