probleme envoi mail

Version imprimable

probleme envoi mail

Bonjour,

J'ai un petit soucis avec ce code, la fonction mail ne marche pas :

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
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:

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.

Salut

Essais de construire la requête autrement, car il y a surement trop de caractères de continuité _.
Code:

1 2 3 4 5 requete1 = "instruction 1 et instruction 2 et ....." requete1 = requete1 & " suite d'instructions ....." requete1 = requete1 & " encore une suite d'instructions ....." '................ Set rs = ConnS.Execute(requete1)
de plus je ne sais pas si la requête n'est pas trop complexe pour le moteur (driver) de BDs

Citation:

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

Ce qui me fait dire cela, c'est que j'ai testé tes lignes avec l'éditeur VB6, qui me signal ces problèmes.

20/04/2011, 19h58
xouzi

Le script est exécuter sous sql serveur.

Je ne pense pas que l'erreur vient de la requête car j'ai le message d'erreur de la fonction Email qui ce situe dans dans la boucle qui exécute la requête.
20/04/2011, 19h59
SfJ5Rpw8

Citation:

Envoyé par xouzi

... car j'ai le message d'erreur ....

au moins quelqu'un la vu ce message d'erreur :?
20/04/2011, 20h44
xouzi

message d'erreur
"le transport a échoué dans sa connexion au serveur"

Ce qui correspond dans le code a :

Code:

msgbox Err.Description,16,"Erreur"

Il y avait pas quelque chose a faire avant de lancer le code ?
20/04/2011, 21h50
SfJ5Rpw8

Tu as bien accès directement à Internet depuis l'endroit ou tu exécute ton script ?
20/04/2011, 21h54
xouzi

oui
20/04/2011, 21h56
ProgElecT

Pour information avec VBS Factory, sur la première partie du code proposé.

Citation:

Envoyé par Message d'erreur

Ligne: 70
Caract.: 19
Erreur: constante chaîne non terminée
Code: 800A0409

Mauvais copier/coller ?
Pour le reste bon courage.
20/04/2011, 21h58
xouzi

il y aurait pas une configuration CDO a faire avant?

C'est ce qui est mentionné ici :
http://www.developpez.net/forums/d88...il-script-vbs/

J'ai du saisir le code est nom le copier/coller. Je tiens a rappeler que la requête a été testé et qu'il n'y a pas de problème avec.

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
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
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

21/04/2011, 10h26
loulag07

et le mail ?

Ta requête fonctionne OK mais est ce que tu a essayé d'envoyer un simple mail depuis ton serveur ?