ASP: Errore 'CDO.Message'
[email protected] (Mailing List Manager) Sat, 13 May 2006 15:19:53 +0200
| Newsgroups | gmane.comp.security.italian.devel |
|---|---|
| Message-ID | <[email protected]> |
--===============1391452199==
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
----- Forwarded message from federosso <federosso(at)hypersphere.it> -----
From: federosso <federosso(at)hypersphere.it>
To: devel(at)sikurezza.org
Subject: ASP: Errore 'CDO.Message'
Ho un problema sul mio server locale (Windows 2003 Server Standard Edition)
Il problema si manifesta nel momento che tento di utilizzare il uno script
per l'invio di email attraverso il protocollo SMTP..
Quando mando in esecuzione lo script ottengo il seguente errore:
Errore di run-time di Microsoft VBScript error '800a01ad'
Il componente ActiveX non pu? creare l'oggetto: 'CDO.Message'
/xxxxxx mail/test-mysql.asp, line 19
La riga incriminata ? riportata con tutto lo script qui sotto e nello specifico ?:
Set iMsg = CreateObject("CDO.Message")
La cosa anomala ? che se il seguente script viene passato su un server web
presso il quale ho hosting, non ottengo nessun messaggio di errore e la mail arriva
correttamente al destinatario.
Il tutto si riduce a della modifice sul server locale, e a questo punto entra in gioco
il vostro aiuto.. avete idee a riguardo? oppure.. vi ? gi? capitato?
Su google ho trovato qualche informazione che consiglia di disinstallare Internet Explorer
e Outlook Express per vedere se il problema viene superato. Preferirei evitare di eseguire
questa operazione salvo non fosse l'unica possibilie.
Grazie in anticipo..
Federosso
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento senza titolo</title>
</head>
<body>
<%
host = Request.ServerVariables("HTTP_host")
mail = "federosso(at)hypersphere.it"
'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
' invio via mail alla camas dell'ordine
'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "info(at)hypersphere.it"
destinatario = mail
oggetto = "Cheese Rolling 2006 Invito Ufficiale"
messaggio = "<strong>Hello World</trong>"
With iMsg
'Assegnazione delle configurazioni
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
.CreateMHTMLBody ("http://"&host&"/mail-to-send.asp")
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
Response.Write("<br>Mail inviata correttamente<br>")
%>
</body>
</html>
----- End forwarded message -----
--===============1391452199==
Content-Type: text/plain; charset="iso-8859-1"
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline
________________________________________________________
http://www.sikurezza.org - Italian Security Mailing List
--===============1391452199==--