Problème d'insertion de date en vbs
Le but de ce script est de récupérer un fichier log d'un backup pour l'envoyer par email pour ne pas devoir se connecter toujours au serveur pour vérifier.
Sous vbscript , j'ai un deux soucis , je n'arrive pas à introduire la date (day, month) de mon fichier dans le contenu de mon mail.
Et je souhaiterai aussi comparer la date du fichier log d'hier avec celui d'aujourd hui , pourquoi ,
pour m'assurer que le script qui lance le backup a bien creer un nouveau log.
et pour envoyer un message different si celui ci n' a pas été créer . ex : le bakup d'hier n'a pu être lancé.
Si on résoud le premier avec la date pour le mettre dans le body du mail c tres bien .
En gras vous trouverez l'insertion de la date dans le contenu du mail (body)
Merci d'avance.
Voila le code ci-dessous , pour info l'envoie du mail fonctionne.
Code:
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
37
38
39
|
'-------------------------
'Declaration des variables
'-------------------------
Dim fsofile
Dim log
const chemfsofile = "d:\Backup_CRM\eff.log"
'-------------------------
'Initiations des variables
'-------------------------
With CreateObject("CDO.Message")
Set fsofile = CreatedObject("Scripting.FileSystemObject")
set log = fsofile.getfile(chemfsofile)
'--------
'code
'--------
.From=toto@company.be
.To=server@company.be
.Subject="Efficy backup"
.TextBody="Bonjour à tous," & vbcrlf _
& "Vous trouverez en attachement du présent mail le fichier de backup du: " & vbcrlf _
& day(log.datelastmodified) & "/" month(log.datelastmodified) & vbctrl_ & "Merci " & vbcrlf _
& " Le serveur Mail "
.AddAttachment("d:\Backup_CRM\eff.log")
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="Mail"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With |
