Mandare Email da asp

**tabarto** · 31-10-2007, 08:39

Ciao vorrei mandare una email da asp, ho letto un po su internet ,ed ho trovato questo script che usa il CDONTS:
<%
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")

miaMail.From = "mittente@della.mail"
miaMail.To = "destinatario@della.mail"
miaMail.Subject = "Oggetto della mail"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 0
miaMail.Body = "Testo della mail"
miaMail.Send

Set miaMail = Nothing
%>
Sembra semplice e chiaro ma quando lo metto nella mia pagina per provarlo mi da il seguente errore:

Error Type:
Microsoft VBScript runtime (0x800A01AD)
ActiveX component can't create object: 'CDONTS.NewMail'
/SendEmailToContact.asp, line 14

Cosa significa? Devo abilitare qualcosa?
Grazie e ciao

**Roby140569** · 31-10-2007, 10:03

Forse il tuo server non usa più CDONTS, ma CDOSYS.
Verifica e, nel caso, cambia lo script.

Ci sono diverse altre discussioni nel forum che trattano questo argomento, ti suggerisco di cercarle.

**tabarto** · 31-10-2007, 13:50

grazie per la risposta come faccio a verificare se il mio server usa CDONTS? Ed eventualmente come posso abilitarlo?
E se usassi il CDOSYS come da te suggerito cosa cambia?
ciao e grazie

**francysonoio** · 31-10-2007, 18:16

Ciao Prima di tutto inddivdua i componenti supportati dal server, poi il seguito.

Usa questo codice, pubblica la pagina sul server che usi e poi la richiami, vedrai una lista trova i componenti installati per l'email.

codice:

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

	Dim comList(54)
		comList(0) = Array( "AB Mailer","ABMailer.Mailman" )
		comList(1) = Array( "ABC Upload","ABCUpload4.XForm" )
		comList(2) = Array( "ActiveFile","ActiveFile.Post" )
		comList(3) = Array( "ActiveX Data Object","ADODB.Connection" )
		comList(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )
		comList(5) = Array( "ASP HTTP","AspHTTP.Conn" )
		comList(6) = Array( "ASP Image","AspImage.Image" )
		comList(7) = Array( "ASP Mail","SMTPsvg.Mailer" )
		comList(8) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )
		comList(9) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )
		comList(10) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )
		comList(11) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )
		comList(12) = Array( "ASP Tear","SOFTWING.ASPtear" )
		comList(13) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )
		comList(14) = Array( "ASP WhoIs","WhoIs2.WhoIs" )
		comList(15) = Array( "ASPEmail","Persits.MailSender" )
		comList(16) = Array( "ASPSoft NT Object","ASPSoft.NT" )
		comList(17) = Array( "ASPSoft Upload","ASPSoft.Upload" )
		comList(18) = Array( "CDONTS","CDONTS.NewMail" )
		comList(19) = Array( "CDOSYS","CDO.Message" )
		comList(20) = Array( "Chestysoft Image","csImageFile.Manage" )
		comList(21) = Array( "Chestysoft Upload","csASPUpload.Process" )
		comList(22) = Array( "Chili!Mail","CDONTS.NewMail" )
		comList(23) = Array( "Dimac JMail","JMail.Message" )
		comList(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
		comList(25) = Array( "dkQMail","dkQmail.Qmail" )
		comList(26) = Array( "Dundas Mailer","Dundas.Mailer" )
		comList(27) = Array( "Dundas Upload","Dundas.Upload.2" )
		comList(28) = Array( "Dynu Encrypt","Dynu.Encrypt" )
		comList(29) = Array( "Dynu HTTP","Dynu.HTTP" )
		comList(30) = Array( "Dynu Mail","Dynu.Email" )
		comList(31) = Array( "Dynu Upload","Dynu.Upload" )
		comList(32) = Array( "Dynu WhoIs","Dynu.Whois" )
		comList(33) = Array( "Easy Mail","EasyMail.SMTP.5" )
		comList(34) = Array( "Emailtoolbox","ArclabEmailToolBox.Mailer" )
		comList(35) = Array( "File System Object","Scripting.FileSystemObject" )
		comList(36) = Array( "Geocel.Mailer","GeoCel" )
		comList(37) = Array( "IISMail","iismail.iismail.1" )
		comList(38) = Array( "JMail","Jmail.smtpmail" )
		comList(39) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
		comList(40) = Array( "Last Mod","LastMod.FileObj" )
		comList(41) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
		comList(42) = Array( "Persits ASP JPEG","Persits.Jpeg" )
		comList(43) = Array( "Persits ASPEmail","Persits.MailSender" )
		comList(44) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
		comList(45) = Array( "Persits File Upload","Persits.Upload.1" )
		comList(46) = Array( "SmartMail","aspSmartMail.SmartMail" )
		comList(47) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
		comList(48) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
		comList(49) = Array( "Image Size", "ImgSize.Check" )
		comList(50) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )
		comList(51) = Array( "Grafici Excel", "OWC.Chart" )
		comList(52) = Array( "ADODB Stream", "ADODB.Stream" )
		comList(53) = Array( "VSEmail1.0","VSEmail.SMTPSendMail" )
		comList(54) = Array( "VSEmail2.0","VSEmail.SMTPSendMailEx" )


	Function IsAvailable( comIdentity )
		On Error Resume Next
		IsAvailable = False
		Err = 0
		Set xTestObj = Server.CreateObject( comIdentity )
		If Err = 0 Then IsAvailable = True
		Set xTestObj = Nothing
		Err = 0
	End Function

	Public Function CheckCOM()
		Avail = 0
		strTxt = "<table cellpadding=""3"" cellspacing=""0"" border=""1"" bordercolor=""#000000"" align=""center"" width=""300"">" & vbNewLine
		strTxt = strTxt & "<tr><td align=""center"" bgcolor=""#3399ff""><font face=""tahoma"" size=""3"" color=""#000000"">COMPONENTE</font></td><td align=""center"" bgcolor=""#3399ff""><font face=""tahoma"" size=""3"" color=""#000000"">STATUS</font></td></tr>"
		For Idx = LBound( comList ) To UBound( comList )
			Provider = Idx
			strTxt = strTxt & vbTab & "<tr><td width=""150""><font face=""tahoma"" size=""2"" color=""#000000"">" & comList(Idx)(0) & "</font></td>"
			strTxt = strTxt & "<td align=""left""><font face=""tahoma"" size=""2"" color=""#000000"">[  "
			If IsAvailable( comList(Idx)(1) ) Then
				strTxt = strTxt & "<font face=""tahoma"" size=""2"" color=""blue"">Installato</font>"
				Avail = Avail + 1
			Else
				strTxt = strTxt & "Non Installato</font>"
			End If
			strTxt = strTxt & "  <font face=""tahoma"" size=""2"" color=""#000000"">]</font></td></tr>" & vbNewLine
		Next
		strTxt = strTxt & vbTab & "<tr><td colspan=4 height=30><font face=""tahoma"" size=""2"" color=""blue"">" & Avail & "</font><font face=""tahoma"" size=""2"" color=""#000000""> su "
	strTxt = strTxt & UBound( comList ) + 1 & " componenti installati.</font></td></tr>" & vbNewLine
		CheckCOM = strTxt & "</table>" & vbNewLine
	End Function

	Response.Write( CheckCOM() )
%>

<p align="center">
	<font face="Tahoma" size="2">Server Component Checker
Direttamente dal forum di html.it</font>
</p>

</body>
</html>

Ciao Ciao

**tabarto** · 01-11-2007, 02:04

ok grazie mille ho provato ed ecco il risultato:

COMPONENTE STATUS
AB Mailer [ Non Installato ]
ABC Upload [ Non Installato ]
ActiveFile [ Non Installato ]
ActiveX Data Object [ Installato ]
Adiscon SimpleMail [ Non Installato ]
ASP HTTP [ Non Installato ]
ASP Image [ Non Installato ]
ASP Mail [ Non Installato ]
ASP Simple Upload [ Non Installato ]
ASP Smart Cache [ Non Installato ]
ASP Smart Mail [ Non Installato ]
ASP Smart Upload [ Non Installato ]
ASP Tear [ Non Installato ]
ASP Thumbnailer [ Non Installato ]
ASP WhoIs [ Non Installato ]
ASPEmail [ Non Installato ]
ASPSoft NT Object [ Non Installato ]
ASPSoft Upload [ Non Installato ]
CDONTS [ Non Installato ]
CDOSYS [ Installato ]
Chestysoft Image [ Non Installato ]
Chestysoft Upload [ Non Installato ]
Chili!Mail [ Non Installato ]
Dimac JMail [ Non Installato ]
Distinct SMTP [ Non Installato ]
dkQMail [ Non Installato ]
Dundas Mailer [ Non Installato ]
Dundas Upload [ Non Installato ]
Dynu Encrypt [ Non Installato ]
Dynu HTTP [ Non Installato ]
Dynu Mail [ Non Installato ]
Dynu Upload [ Non Installato ]
Dynu WhoIs [ Non Installato ]
Easy Mail [ Non Installato ]
Emailtoolbox [ Non Installato ]
File System Object [ Installato ]
Geocel.Mailer [ Non Installato ]
IISMail [ Non Installato ]
JMail [ Non Installato ]
Ticluse Teknologi HTTP [ Non Installato ]
Last Mod [ Non Installato ]
Microsoft XML Engine [ Installato ]
Persits ASP JPEG [ Non Installato ]
Persits ASPEmail [ Non Installato ]
Persits ASPEncrypt [ Non Installato ]
Persits File Upload [ Non Installato ]
SmartMail [ Non Installato ]
SMTP Mailer [ Non Installato ]
Soft Artisans File Upload [ Non Installato ]
Image Size [ Non Installato ]
Microsoft XML HTTP [ Installato ]
Grafici Excel [ Non Installato ]
ADODB Stream [ Installato ]
VSEmail1.0 [ Non Installato ]
VSEmail2.0 [ Non Installato ]
6 su 55 componenti installati.

effettivamente CDONTS non e' installato mentre CDOSYS si, allora ho provato cosi':

Dim miaMail
Set miaMail = CreateObject("CDOSYS.NewMail")

miaMail.From = "prova@prova.com"
miaMail.To = "prova@prova.com"
miaMail.Subject = "Oggetto mail"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 0
miaMail.Body = "prova email"
miaMail.Send

Set miaMail = Nothing

ma mi da il seguente errore, che e' il solito del CDONTS
Error Type:
Microsoft VBScript runtime (0x800A01AD)
ActiveX component can't create object: 'CDOSYS.NewMail'
/SendEmailToContact.asp, line 15

da cosa dipende?

**tabarto** · 01-11-2007, 02:18

sono riuscito ad installare il CDONTS ed ora funziona alla perfezione grazie....
Domanda: ma quale e' la differenza fra CDONTS e CDOSYS?
Buona giornata

Discussione: Mandare Email da asp

Strumenti discussione

Ricerca discussione

Visualizza

Mandare Email da asp

Re: Mandare Email da asp

Permessi di invio