Inviare una email mediante una form

**Orgasm4you!** · 17-12-2008, 14:15

Ciao a tutti!
Qualcuno mi saprebbe indicare uno script in grado di inviare una email mediante una form?

non voglio utilizzare il classico <a href mailto: ecc ecc </a> per motivi di eleganza.

Sarei lieto se mi rispondereste!

Saluti.
Roberto

**Mizushi** · 17-12-2008, 14:18

Dipende da quale componente per l'invio delle email supporta il tuo hosting.

Prova questo script:

codice:

<html>
<head>
<title>Server Component Checker</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>

**Orgasm4you!** · 18-12-2008, 01:49

Ciao,
innanzitutto ti ringrazio, comunque sia non mi funziona, mi da una tabella componente (es ASPSoft NT Object ASPsoft upoload) e status (installao o non installato).

Nient'altro!!

Resto sempre in attesa di una risposta :-)

Saluti,
Roberto.

**Mizushi** · 18-12-2008, 16:35

Originariamente inviato da Orgasm4you!
Ciao,
innanzitutto ti ringrazio, comunque sia non mi funziona, mi da una tabella componente (es ASPSoft NT Object ASPsoft upoload) e status (installao o non installato).

Nient'altro!!

Resto sempre in attesa di una risposta :-)

Saluti,
Roberto.

Guarda che lo script che ti ho postato non serve ad inviare le email tramite il server, ma soltanto a stabilire quale dei componenti necessari per inviare le email hai installato sul server dove hai il servizio web... pensavo fosse chiaro...

Posta il risultato restituito dallo script...

**Orgasm4you!** · 18-12-2008, 17:27

Ciao,
ti spiego meglio qual'è il mio obiettivo, forse non sono stato molto chiaro.

In praticavoglio inviareun'email da una form avendo a disposizione tipo una textarea e un una inputo type text per l'indirizzo email.

<form method="get" action="" name="modulo">

<input type="text" name="indirizzo">
<textarea></textarea>
<input type ="submit">
</form>

Detto in arole povere avendo a disposizione questo.

Innanzitutto è possibile inviarla così l'email? In pratica mi hanno detto ce si può fare, ma non ho capito come! ^_^ ecco perchè mi sonorivolto ad html.it.

Ad ogni modo ti ringrazio ancora perla pazienza!

Saluti.
Roberto.

**Mizushi** · 18-12-2008, 17:31

Ti sei spiegato benissimo e ti ho risposto cercando di aiutarti ma fai orecchie da mercante e non rispondi alle domande.... per cui studiati questo link:

http://www.aspitalia.com/articoli/cdonts.aspx

**Orgasm4you!** · 22-12-2008, 12:59

Ciao,
ho letto attentamente la pagine che mi hai mandat circa l'invio delle mail mediante form e mi sono schiarito parecchio le idee a riguardo!

Dunque visto e considerato che lo script che mi hai mandato è un "server checker" ti do subito il risultato, ma ci tengo prima a precisare che il sito che sto costruendo, non è su di un server in internet ma su un pc (che funge da server) nella rete locale di casa mia.

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.

Ti ringrazio sempre per la pazienza e resto in attesa di tue notizie.

saluti.
Roberto.

**Mizushi** · 22-12-2008, 13:18

Questo è il componente che devi usare per l'invio di email tramite form:

CDOSYS [ Installato ]

Discussione: Inviare una email mediante una form

Strumenti discussione

Ricerca discussione

Visualizza

Inviare una email mediante una form

Permessi di invio