CreateObject error '80070008'

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:

---

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

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

Code:

---

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

---

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:

---

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:

---

Failed to create objectError #424 - Object required

---

Salut

1/ Essaye déjà :

Code:

---

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

---

2/ Pour le debuggage, vire la ligne :

Citation:

---

On Error Resume Next

---

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

Merci roro06,

j'ai testé avec :

Code:

---

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

---

Mais j'ai toujours une erreur :

Code:

---

1 2 3

Server object error 'ASP 0177 : 80070008'   Server.CreateObject Failed

---

As tu essayé de rebooter ton serveur ?

En fait je suis en entreprise et je n'ai pas le contrôle à ce niveau la.

J'ai demandé à ce qu'on reboote le serveur mais malheureusement ils ne veulent pas !!!!!

Mais je pense que cela doit venir de la parce que je ne vois pas pourquoi cela ne fonctionnerait pas !!!!

Car l'application tourne sur un autre serveur et cela fonctionne bien !!!!!

Merci Roro06