Discussion :

[bambino13]

bonjour,

voila je dois envoyer des mails en asp, hier matin tout fonctionnait bien mais depuis hier apreès midi j'ai une erreur qui n'est pas commentée j'ai juste un code !!!

et je vois pas ce que cela veut dire !!!!!

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
Dim  objMail
 
	Set objMail = CreateObject("CDO.Message") 
	objMail.Subject = sujetMail
	objMail.From = expediteurMail
	objMail.To = destiMail
	objMail.Cc = copieExped
	objMail.HTMLBody  = HTML
	objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	'Nom du serveur SMTP 
    objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dj.sncf.fr"
	'Port du serveur SMTP
    objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
    objMail.Configuration.Fields.Update 
	objMail.Send 
	set objMail=nothing
	if (error = 0) then
	%>

l'erreur est à cette ligne :Set objMail = CreateObject("CDO.Message")

et le code erreur est : error '80070008'

merci de votre aide

[le_ben]

peut être que ça vient de ton fournisseur de mail
essai sendusing avec 1 comme valeur

Code :

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

objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

[bambino13]

Non je ne pense pas je suis en entreprise je ne passe pas par un fournisseur de mail


quand j'utilise ce code j'ai ce résultat :

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
<%
 
On Error Resume Next
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
If ObjSendMail Is Nothing Then
  response.write "Failed to create object"
Else
  response.write "ObjSendMail created OK"
  Set ObjSendMail = Nothing
End If
 
If Err.Number <> 0 Then
  response.write "Error #" & Err.Number & " - " & Err.Description
End if
%>

voila le résultat :

Code :

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

Failed to create objectError #424 - Object required

[roro06]

Salut

1/ Essaye déjà :

Code :

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

    Set objMail = Server.CreateObject("CDO.Message")

2/ Pour le debuggage, vire la ligne :

On Error Resume Next

(Règle quasi-absolue en phase de dev)

[bambino13]

Merci roro06,

j'ai testé avec :

Code :

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

 Set objMail = Server.CreateObject("CDO.Message")

Mais j'ai toujours une erreur :

Code :

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

1
2
3
Server object error 'ASP 0177 : 80070008' 
 
Server.CreateObject Failed

[roro06]

As tu essayé de rebooter ton serveur ?