Bonjour,

J'ai un petit soucis avec ce code, la fonction mail ne marche pas :
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
 
dim ConnS
dim nom
dim serveur
dim message
dim date
dim duree
dim time
dim requete1
dim Adresse_email
dim lObjet
dim lserveur
dim ltextotal
 
Adresse_email="xouzi@free.fr"
lObjet_email="Erreur lot DTS"
lserveur="smtp.free.fr"
 
set connS=CreateObject("ADOBD.connection")
connS.COnnectionString="Provider=SQLOLEDB;Data source =xxx;Initial Catalog=msdb; User Id=xx; Pasword =xx;"
 
connS.Open
 
requete1 ="SELECT "&_
	"S.server_id AS nserveur, "&_
	"S.last_outcome_message AS message, "&_
	"J.name,  "&_
	"DATEADD( "&_
		"SECOND, "&_
		"(Last_run_time % 10000) % 100, "&_
		"DATEADD( "&_
			"MINUTE, "&_
			"(Last_run_time % 10000) / 100,  "&_
			"DATEADD( "&_
				"HOUR, "&_
				"Last_run_time / 10000, "&_
				"CAST( "&_
					"CAST( "&_
						"last_run_date "&_
						"AS VARCHAR(8) "&_
					") "&_
				"AS DATETIME "&_
				") "&_
			") "&_
		") "&_
	")AS date_heure_derniere_execution, "&_
	"CASE "&_
		"WHEN last_run_duration / 10000 < 10 "&_
			"THEN '0' "&_
		"ELSE '' "&_
	"END  "&_
	"+ CAST( "&_
		"last_run_duration / 10000 "&_
		"AS VARCHAR(10) "&_
	") "&_
	"+ ':' "&_
	"+ RIGHT( "&_
		"'0' "&_
		"+ CAST( "&_
			"(last_run_duration % 10000) / 100 "&_
			"AS VARCHAR(10) "&_
		") "&_
		", 2 "&_
	") "&_
	"+ ':' "&_
	"+ RIGHT( "&_
		"'0' "&_
		"+ CAST( "&_
			"(last_run_duration % 10000) % 100 "&_
			"AS VARCHAR(10)
		") "&_
		",2 "&_
	") AS duree "&_
   "FROM sysjobservers S "&_
   "INNER JOIN sysjobs J ON J.job_id = S.job_id "&_
   "WHERE S.last_run_outcome<>1 "
 
Set rs= connS.Execute(requete1)
 
do until rs.EOF
   nom=rs.fields("name").value
   serveur=rs.fields("nserveur").value
   message=rs.fields("message").value
   datetime=rs.fields("date_heure_derniere_execution").value
   duree=rs.fields("duree").value
 
   ltexttotal="Le lot portant le nom :&nom & ne sest pas déroulé comme prévu. Information complémentaire : n° du serveur : & serveur & ,message &message & date et heure de la derniere &datetime, duree &duree"
 
   Email Adresse_email, lObjet_email, lserveur, ltexttotal
 
   rs.movenext
loop
rs.Close
set rs =Nothing
ConnS.Close
Set connS=Nothing
Fonction Email
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
 
Function Email(Adresse_email, lObjet_email, lserveur, ltexttotal)
     with CreateObject("CDO.Message")
     .From="xouzi@free.fr"
     .To="xouzi@free.fr"
     .Subject="&lObjet_email&"
     .TextBody="&ltexttotal&"
     .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
     .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"
     .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    On Error Resume Next
    .Send
    If Err.Number<>0 Then 
           msgbox Err.Description,16,"Erreur"
           msgbox "le mail n'a pas pu être envoyé"
           Else
                msgbox "mail bien envoyé"
     End If
     On error GO To 0'
     End with
End Function

Je voudrais savoir si je ne dois pas configurer ou créer quelque chose avant? pour que la fonction mail fonctionne

Je tiens à préciser que je n'ai pas d'erreur dans mon code.