Resultat de lecture dans le corps d'un mail

**PAB/31/SAB** · 08/12/2014, 13h13

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

**Miistik** · 08/12/2014, 17h19

Bonsoir,

Pour commencer, tu souhaites obtenir la date et l'heure de déclenchement du script.
Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Now

Pour le nombre de fichier, tu peux faire comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim NbFiles=0
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
          NbFiles=NbFiles+1
      End If
   Next
 End If

Ainsi, tu réutilises cette variable NbFiles dans ton message final à la place de XX ici (et aussi remplacer heure et date_jour par now)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
.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

Concernant le path, j'ai pas bien compris la question :

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

**PAB/31/SAB** · 09/12/2014, 11h28

Merci pour ta réponse Miistik,

j'ai utilisé tes informations, maintenant je reçois bien un mail avec l'heure et la date et la liste de fichiers dans le corps du mail, du type:

Bonjour,

A 10:13:20 le 09/12/2014, Appli a reçu 11 fichiers de la part de Paris.

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

file1 - Copy (2).xml
file1 - Copy - Copy.xml
file1 - Copy.xml
file1.xml
File2 - Copy (2).xml
File2 - Copy - Copy.xml
File2 - Copy.xml
File2.xml
File3 - Copy (2).xml
File3 - Copy - Copy.xml

Par contre je ne comprends pas pourquoi il m'indique qu'il trouve 11 fichiers alors qu'il y en a que 10 dans le dossiers ?

Pour le path je souhaiterais l'ajouter devant le fichier, par exemple:

D:\Appli\Import\Centre\Importes\file1 - Copy (2).xml
D:\Appli\Import\Centre\Importes\file1 - Copy - Copy.xml
D:\Appli\Import\Centre\Importes\file1 - Copy.xml
...

Merci

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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Const ctePourLecture = 1
Const ctePourEcrire = 2
Const ctePourAjouter = 8
 
 
Dim objFSO, objDossier, objFichier, objResultat
Dim Repertoire, NomFichierTxt, Rep, liste_fichier
 
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
	  liste_fichier=liste_fichier + objFichier.Name & VbNewLine
      End If
   Next
 End If
 
objResultat.Close
Set objResultat = Nothing
Set objDossier = Nothing
Set objFSO = Nothing
 
 
 
Const ForReading = 1, ForWriting = 2  
Dim oFso, f 
Dim ts, nl 
  Set oFso = CreateObject("Scripting.FileSystemObject") 
  Set f = oFso.OpenTextFile("D:\Appli\Import\Corse\Resultat_Fichiers_reçus.txt", ForReading) 
  ts = f.ReadAll '-- Lit la totalité du fichier 
 
 
 
 
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 " & Time & " le " & date & ", Appli a reçu " & f.Line & " fichiers. de la part de Paris" & VbNewLine & VbNewLine & _
		"Attention, ne pas répondre à ce mail qui est généré automatiquement." & VbNewLine & VbNewLine &_
		"" & Liste_Fichier & 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

**Miistik** · 09/12/2014, 13h29

Bonjour,

Pour avoir le path des fichiers , essayes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objFichier.Path

Pour le nombre de fichier, essayes la modification que je t'ai proposée avant (lignes 1 et 6).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim NbFiles=0
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
          NbFiles=NbFiles+1 ' <------------------ ICI ------------      
      End If
   Next
 End If

Et tu utilises NbFiles dans ton mail

**PAB/31/SAB** · 10/12/2014, 14h37

Merci pour tes informations

J'obtiens les informations souhaitées

Resultat de lecture dans le corps d'un mail

VBScript

Vue hybride

Discussions similaires

Partager

Partager