errore invio mail

[power83]

Salve a tutti...utilizzo il seguente cosice per inviare una mail da un sito:

dim email
Set email=server.createObject("VSEmail.SMTPSendMail")
email.host="smtp.inet.it"
email.from="Info <info@sito.com>"
email.sentTo="pippo@iol.it"
email.subject= Mail
email.body= Messaggio
email.connect
email.send
set email = Nothing

Ma mi da questo errore:

Oggetto Server error 'ASP 0177 : 800401f3'

Impossibile eseguire il metodo Server.CreateObject

/mail.asp, line 33

cosa significa?

Grazie

p.s.: la linea 33 è
Set email=server.createObject("VSEmail.SMTPSendMail")

[viki1967]

vuol dire che non hai il componente richiesto installato sul server.

http://freeasp.html.it/script/view_script.asp?id=166

Ma poi che componente è ??? Non hai CDOSYS o CDONTS ???

Verifica con questo codice che componenete devi utilizzare per inviare la posta:

<%

 Dim theComponent(18)
Dim theComponentName(18)
Dim theComponentValue(18)
dim i, j

 theComponent(0) = "ABMailer.Mailman"
theComponent(1) = "Persits.MailSender"
theComponent(2) = "SMTPsvg.Mailer"
 theComponent(3) = "SMTPsvg.Mailer"
theComponent(4) = "CDONTS.NewMail"
theComponent(5) = "CDONTS.NewMail"
 theComponent(6) = "CDO.Message"
theComponent(7) = "dkQmail.Qmail"
theComponent(8) = "Dundas.Mailer"
 theComponent(9) = "Dundas.Mailer"
theComponent(10) = "Geocel.Mailer"
theComponent(11) = "iismail.iismail.1"
 theComponent(12) = "Jmail.smtpmail"
theComponent(13) = "MDUserCom.MDUser"
theComponent(14) = "ASPMail.ASPMailCtrl.1"
 theComponent(15) = "ocxQmail.ocxQmailCtrl.1"
theComponent(16) = "SoftArtisans.SMTPMail"
theComponent(17) = "SmtpMail.SmtpMail.1"
theComponent(18) = "VSEmail.SMTPSendMail"

 theComponentName(0) = "ABMailer v2.2+"
theComponentName(1) = "ASPEMail"
theComponentName(2) = "ASPMail"
 theComponentName(3) = "ASPQMail"
theComponentName(4) = "CDONTS (IIS 3/4/5)"
theComponentName(5) = "Chili!Mail (Chili!Soft ASP)"
theComponentName(6) = "CDOSYS (IIS 5/5.1/6)"
 theComponentName(7) = "dkQMail"
theComponentName(8) = "Dundas Mail (QuickSend)"
theComponentName(9) = "Dundas Mail (SendMail)"
 theComponentName(10) = "GeoCel"
theComponentName(11) = "IISMail"
 theComponentName(12) = "JMail"
theComponentName(13) = "MDaemon"
 theComponentName(14) = "OCXMail"
theComponentName(15) = "OCXQMail"
theComponentName(16) = "SA-Smtp Mail"
 theComponentName(17) = "SMTP"
theComponentName(18) = "VSEmail"

 j = 0
Response.Write "

" & vbNewLine
for i=0 to UBound(theComponent)
if IsObjInstalled(theComponent(i)) then
 Response.Write theComponentName(i) & " is installed and available for use.
" & vbNewline
j = j + 1
end if
next
 if j = 0 then
Response.Write "No Email Components found which are available to this server.
" & vbNewline
end if
 Response.Write "</p>" & vbNewLine
Response.End

 function IsObjInstalled(strClassString)
on error resume next

IsObjInstalled = false
Err = 0

dim xTestObj
set xTestObj = Server.CreateObject(strClassString)
if 0 = Err then
IsObjInstalled = true
end if

set xTestObj = nothing
Err = 0
 on error goto 0
end function

%>

[power83]

CDONTS (IIS 3/4/5) is installed and available for use.
Chili!Mail (Chili!Soft ASP) is installed and available for use.
CDOSYS (IIS 5/5.1/6) is installed and available for use.


Wow...con cdosys funziona perfettamente!!

Grazie

P.s.: convertiti..!!!!