1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Dim mail1,mail2,mail3,mail4,mail5,email,heureM
'Les Procédures ayant une portée locale peuvent être mises en uvre ici.
'Cette procédure est exécutée une seule fois lorsque le module graphique est commencé.
Sub Graphics_OnStart()
End Sub
'Cette procédure est exécutée en continu tandis que le module graphique est en cours d'exécution.
Sub Graphics_WhileRunning()
'*** recupertation des addresses mails
email = ""
mail1 = $GetTagValue("email1",1)
mail2 = $GetTagValue("email2",1)
mail3 = $GetTagValue("email3",1)
mail4 = $GetTagValue("email4",1)
mail5 = $GetTagValue("email5",1)
If mail1 <> "" Then
email = mail1
End If
If mail2<> "" Then
email = email & ";" & mail2
End If
If mail3 <> "" Then
email = email & ";" & mail3
End If
If mail4<> "" Then
email = email & ";" & mail5
End If
If mail5 <> "" Then
email = email & ";" & mail5
End If
'*** Envoie du email a 23:59:59
heureM =$Time
If heureM="11:59:59" Or heurM="23:59:59 " Then
$SendEmailExt("-DO NOT REPLY- Compte rendu du jour","Bonjour, Voila les Données , CDLT",email,"","", "C:\Users\PRODERGIE\Documents\InTouch Machine Edition v8.1 Projects\vitogaz\save.txt")
End If
End Sub |
Partager