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 : Sélectionner tout - Visualiser dans une fenêtre à part
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