Bonjour,

je souhaiterais réaliser un script qui sera déclenché vers 22H00 heures

Il:

- Va scruter le contenu d'un dossier1
- Va créer un fichier "Resultat.txt" avec la liste des fichiers contenu dans le dossier1
- Va envoyer un mail avec en attach le .txt

Lorsque je lance le script il m'envoie bien le mail avec en attach le .txt dans lequel il y a la liste des fichiers lus dans le dossiers1

Par contre, je souhaiterais avoir la liste avec l'heure la date et le path directement dans le mail est-ce possible ?

par exemple :

-----------------------------------------------------

Bonjour,

à HH:mn le date l'appli a reçu XX fichiers dans :

D:\Appli\Import\Centre\Importes\fic1.xml_date_heure

D:\Appli\Import\Centre\Importes\fic2.xml_date_heure

D:\Appli\Import\Centre\Importes\fic3.xml_date_heure

...

Attention, ne pas répondre à ce mail qui est généré automatiquement.

Cordialement

L'équipe Informatique
---------------------------------------------------------

Merci à tous pour votre aide

Mon script:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Const ctePourLecture = 1
Const ctePourEcrire = 2
Const ctePourAjouter = 8
 
 
Dim objFSO, objDossier, objFichier, objResultat
Dim Repertoire, NomFichierTxt, Rep
 
On Error Resume Next
 
Rep = "D:\Appli\Import\Centre\Importes"
NomFichierTxt = "Resultat_Fichiers_reçus.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(Rep)
Set objResultat = objFSO.CreateTextFile("D:\Appli\Import\Centre\Importes\Resultat_Fichiers_reçus.txt",ctePourEcrire)
 
 
If (objDossier.Files.Count > 0) Then
   For Each objFichier In objDossier.Files
      If (InStr(1, objFichier.Name, ".xml", 1) > 0) Then
          objResultat.WriteLine objFichier.Name
      End If
   Next
 End If
 
objResultat.Close
Set objResultat = Nothing
Set objDossier = Nothing
Set objFSO = Nothing
 
 
Const DESTINATAIRES="adress destinataire"
Const DESTINATAIRES_CC=""
Const FICHIER_1="D:\Appli\Import\Centre\Importes\Resultat_Fichiers_reçus.txt"
Dim WshNet,objMail,computername
 
 
On Error Resume Next
 
Set WshNet = CreateObject("Wscript.Network" )
Set objMail = CreateObject("CDO.Message") 
computername = WshNet.ComputerName		'--- Nom du serveur ou est exécuté le script
 
'-------------------------------------------------------------------------
'---- Envoi du log d'install par mail
'-----------------------------------------------------------------------------
 
With objMail
	.Subject  = "[APPLI] : Nombre de fichiers « tests » reçus " & date
	.to       = DESTINATAIRES
	.cc		  = DESTINATAIRES_CC
	.From     = "Appli_" & computername & "@.fr"
 
	.TextBody = "Bonjour," & VbNewLine & VbNewLine & _
		"A heure et le date_jour, Appli a reçu XX fichiers." & VbNewLine & VbNewLine & _
		"Attention, ne pas répondre à ce mail qui est généré automatiquement." & VbNewLine & VbNewLine &_
		"Cordialement." & VbNewLine & VbNewLine
	.AddAttachment(FICHIER_1)
	End With
 
With objMail.Configuration.Fields
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")       = "mailhost.dus.atlas.fr"
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")   = 25
	.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")        = 2 'CDO.cdoSendUsingPort
	.Update
End With
ObjMail.send
wscript.quit 0