EMail come fare?

**Lan** · 21-03-2006, 16:23

Ciao a tutti,

Ho un problemino...
Devo far si che, una volta che un utente si registra sul mio sito, in automatico, venga generata una mail di avviso per il cliente di avvenuta registrazione con allegato i dati che il cliente ha inserito nel percorso di registrazione...

Ho provato con vari pezzi di codice, anche presi dalla rete, ma niente da fare...

Qui sotto vi posto l'ultimo codice su cui sto lavorando, mi potete dare qualche dritta?

codice:

Response.Write("<center><h3>Invio messaggi in corso</h3></center>")

invioA = "xx@xx.it"

invioDa = "yy@yy.it"

DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = strfrom
.Sender = invioDa
.Subject = strsubject
.textBody = "Testo del messaggio: " & vbCrLf & strbody & ""
.Send
End With
Set iMsg = nothing
Set iConf = nothing

Response.Write("<center><h3>Messaggi inviati!</h3><center>") 
%>

**fraude** · 21-03-2006, 16:24

Errore?

**fly82** · 21-03-2006, 16:25

ciao io ho il tuo stesso problema cerco di provarlo in locale sembra che funziona ma poi non arriva nessuna mail...aiutiamoci..

**Lan** · 21-03-2006, 16:42

mi da questo errore:

codice:

ADODB.Fields error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

sulla righa:

Flds(cdoSendUsingMethod) = cdoSendUsingPort

non so che fare!?!?

**fraude** · 21-03-2006, 16:44

Sei sicuro di essere su un winserver 2003?

E se stai su aruba, questo è il codice corretto.

**Lan** · 21-03-2006, 16:45

il mio problema è che anche usando un server "free" non mi invia la mail ma neanche a pregare in aramaico antico...

non so, sicuramente non vedo un errore sul codice o non ho settato bene qualcosa sul server...

che dite?

ps: x fly82: tu che codice usi? postalo cosi vediamo di fare un check insieme...

**fraude** · 21-03-2006, 16:46

Verifica quale componente utilizza il tuo server per l'invio delle email con questo script (che si trova con la ricerca e si chiama comchecker):

codice:

<html>
<head>
<title>Check Components</title>
</head>
<body>
<%

	REM	Project:		COM Checker
	REM	Creator:		James Lindën
	REM	Date:		6/25/2001 12:14am

 	'**************************************
***************************

	'	COM Checker version 1.0
	'	© 2001 Ticluse Teknologi, All rights reserved.

	'	This class may be redistributed, as long as copyright and development
	'	information remain intact with class source code. Bug reports and / or
	'	comments may be directed to jlinden@intelidev.com.

 	'**************************************
***************************

	Dim comList(43)
		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( "ASPSoft NT Object","ASPSoft.NT" )
		comList(16) = Array( "ASPSoft Upload","ASPSoft.Upload" )
		comList(17) = Array( "CDONTS","CDONTS.NewMail" )
		comList(18) = Array( "Chestysoft Image","csImageFile.Manage" )
		comList(19) = Array( "Chestysoft Upload","csASPUpload.Process" )
		comList(20) = Array( "Dimac JMail","JMail.Message" )
		comList(21) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
		comList(22) = Array( "Dundas Mailer","Dundas.Mailer" )
		comList(23) = Array( "Dundas Upload","Dundas.Upload.2" )
		comList(24) = Array( "Dynu Encrypt","Dynu.Encrypt" )
		comList(25) = Array( "Dynu HTTP","Dynu.HTTP" )
		comList(26) = Array( "Dynu Mail","Dynu.Email" )
		comList(27) = Array( "Dynu Upload","Dynu.Upload" )
		comList(28) = Array( "Dynu WhoIs","Dynu.Whois" )
		comList(29) = Array( "Easy Mail","EasyMail.SMTP.5" )
		comList(30) = Array( "File System Object","Scripting.FileSystemObject" )
		comList(31) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
		comList(32) = Array( "Last Mod","LastMod.FileObj" )
		comList(33) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
		comList(34) = Array( "Persits ASP JPEG","Persits.Jpeg" )
		comList(35) = Array( "Persits ASPEmail","Persits.MailSender" )
		comList(36) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
		comList(37) = Array( "Persits File Upload","Persits.Upload.1" )
		comList(38) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
		comList(39) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
		comList(40) = Array( "Image Size", "ImgSize.Check" )
		comList(41) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )
		comList(42) = Array( "Grafici Excel", "OWC.Chart" )
		comList(43) = Array( "ADODB Stream", "ADODB.Stream" )

	'This function was modified from the work of Rob Risner.
	'http://www.planetsourcecode.com/xq/ASP/txtCodeId.6731/lngWId.4/qx/vb/scripts/ShowCode.htm

	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=3 border=0 align=center width=300>" & vbNewLine
		For Idx = LBound( comList ) To UBound( comList )
			Provider = Idx
			strTxt = strTxt & vbTab & "<tr><td width=200><font class=norm>" & comList(Idx)(0) & "</font></td>"
			strTxt = strTxt & "<td align=right width=20><font class=norm>[</font></td>"
			If IsAvailable( comList(Idx)(1) ) Then
				strTxt = strTxt & "<td align=center><font face=tahoma size=2 color=blue>Available</font></td>"
				Avail = Avail + 1
			Else
				strTxt = strTxt & "<td align=center><font class=norm>Unavailable</font></td>"
			End If
			strTxt = strTxt & "<td align=left width=20><font class=norm>]</font></td></tr>" & vbNewLine
		Next
		strTxt = strTxt & vbTab & "<tr><td colspan=4 height=30><font class=norm><font color=blue>" & Avail & "</font> of "
		strTxt = strTxt & UBound( comList ) + 1 & " supported components are available.</font></td></tr>" & vbNewLine
		CheckCOM = strTxt & "</table>" & vbNewLine
	End Function

	Response.Write( CheckCOM() )
%>

<p align=center>
	<font class=arial size=2><a href=http://www.intelidev.com/goto.asp?comchecker>COMChecker</a> version 1.1 - by James Lindën
© 2001 Ticluse Teknologi, All rights reserved.</font>
</p>
</body>
</html>

Dopodichè stabilito quale componente devi utilizzare ti sarà risposto di conseguenza.

Ciao

**fly82** · 21-03-2006, 16:56

io ho scoperto che il provider ha win 2000 quindi devo usare cdonts,ma come posso prendere anche altri dati dalla form?aggiungendo delle righe su questo codice?vi posto sia la versione originale che quella modificata da me per prendere altri dati...

<%
// Recupero i dati dal modulo
var nome = new String(Request.Form("nome"));
var email = new String(Request.Form("email"));
var messaggio = new String(Request.Form("messaggio"));

// Effettuo un banale controllo sulla validità dei campi
if (nome == "" || email == "" || messaggio == "") {
Response.Write("ERRORE: Tutti i cami sono obbligatori");
Response.End;
}

// Creo l'oggetto (o classe) CDONTS.NewMail
var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
OggettoCDONTS.From = email; // Mittente
OggettoCDONTS.To = "lucaruggiero@email.it";
// Destinatario (inserisci la tua email)
OggettoCDONTS.Subject = "Messaggio da " + nome;
// Oggetto
OggettoCDONTS.Body = messaggio; // Corpo
OggettoCDONTS.Send(); // Invio la mail

Response.Write("Email inviata con successo!");
%>

quella modificata da me è questa:

<%
// Recupero i dati dal modulo
var nome = new String(Request.Form("nome"));
var email = new String(Request.Form("email"));
var cognome = new String(Request.Form("cognome"));
var telefono = new String(Request.Form("telefono"));
var cap = new String(Request.Form("cap"));
var indirizzo = new String(Request.Form("indirizzo"));
var citta = new String(Request.Form("citta"));
var nazionalita = new String(Request.Form("nazionalita"));
var club = new String(Request.Form("club"));
var card = new String(Request.Form("card"));
var identita = new String(Request.Form("identita"));
var numero_identita = new String(Request.Form("numero_identita"));
var scadenza = new String(Request.Form("scadenza"));
var cellulare = new String(Request.Form("cellulare"));
var card_richiesta = new String(Request.Form("card_richiesta"));

// Effettuo un banale controllo sulla validità dei campi
if (nome == "" || email == "" || cognome == "" || cellulare == "") {
Response.Write("ERRORE: Tutti i campi sono obbligatori");
Response.End;
}

// Creo l'oggetto (o classe) CDONTS.NewMail
var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
OggettoCDONTS.From = email; // Mittente
OggettoCDONTS.To = "info@miodominioovviamente.it";

OggettoCDONTS.Subject = "Iscrizione" + nome;

OggettoCDONTS.Body = messaggio;
OggettoCDONTS.Send();

Response.Write("Email inviata con successo!");
%>

mi da errore sul request nome

**Lan** · 21-03-2006, 17:06

allora mi dice che è Cdonts è attivo però il server è win 2003
come faccio ad installare cdosys??

**fraude** · 21-03-2006, 19:22

Originariamente inviato da Lan
allora mi dice che è Cdonts è attivo però il server è win 2003
come faccio ad installare cdosys??

se hai CDONTS utilizza CDONTS

Discussione: EMail come fare?

Strumenti discussione

Ricerca discussione

Visualizza

EMail come fare?

Permessi di invio