1 messaggio dal 19 aprile 2009
Salve!!!
Sono nuovo di qui!!!
POSSIBILE CHE NON ESISTE UN MAIL SENDER FUNZIONANTE E PERSONALIZZABILE???!!! LI HO PROVATI DI TUTTI ! MA CHE AVETE SU INTERNET?!!! SIETE TUTTI PAZZI?!!
Ho cercato un modo per spedire la mail di registrazione per il mio progetto di università.
Allora ho trovato questi due file che se li metto nella cartella wwwroot all'interno della directory inetpub in c:\ e lancio internet explorer o qualsiasi altro web browser con il comando localhost (ovviamente impostando i file iistart.asp e localstrt.asp come avvio della pagina di default la pagina codiceform.asp) parte e si vede tutto il form ma quando immetto i dati e la mail e clicco su invia mi dice:

La tua e-mail è stata ricevuta... Ti risponderemo al più presto! Grazie.

ma io vado nella mia mail per vedere se ho ricevuto veramente niente da fare!

E' falso o vero questo codice che ho trovato girovagando su internet?

Io ho scritto all'autore che è un codice di M***a e falso! Ho fatto bene?

Mi potete controllare cosa non va?

Ecco il codice in allegato!

codiceform.asp
<?xml version="1.0" encoding="UTF-8"?>
<!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" xml:lang="it" lang="it">

<head>
<meta http-equiv="Content-Language" content="it" />
<title>Contatti</title>
</head>

<body>

  <table border="2" cellspacing="0" style="border-collapse: collapse" width="80%" id="table1" cellpadding="4" align="center">
    <tr>
      <td>
      <table border="1" width="100%" style="border-width: 0px">
        <tr>
          <td style="border-style: none; border-width: medium">
      <p align="center"><font face="Verdana">IN QUESTO SPAZIO INSERISCI IL TITOLO DEL FORM</font></td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td bgcolor="#808080">
      <p align="right">
      &nbsp;</p></td>
    </tr>
    <tr>
      <td>
      <table border="1" cellspacing="0" style="border-collapse: collapse" width="100%" id="table3" cellpadding="6">
        <tr>
          <td valign="top">
          <p align="center"><font face="Verdana" size="2">In questo spazio descrivi la motivazione 
          del form, con la frase finale tipo - sarai contattato al piu'
          presto - </font></p></td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td>
      &nbsp;</td>
    </tr>
    <tr>
      <td>
      <div align="center">
      <table border="1" cellspacing="0" style="border-collapse: collapse" width="80%" id="table2" cellpadding="6">
        <tr>
          <td valign="top">
          <form method="POST" action="mail.asp">
            <table border="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" width="724" id="table4" cellpadding="3">
              <tr>
                <td width="362">
                <p align="right"><font face="Verdana" size="2">Nome e cognome:</font></p></td>
                <td width="362">
            <font face="Verdana">
            <input type="text" name="nome" size="30"></font></td>
              </tr>
              <tr>
                <td width="362">
                <p align="right"><font face="Verdana" size="2">Indirizzo E-mail:</font></p></td>
                <td width="362">
            <font face="Verdana">
            <input type="text" name="email" size="30"></font></td>
              </tr>
              <tr>
                <td width="362" valign="top">
                <p align="right"><font face="Verdana" size="2">Domande?</font></p></td>
                <td width="362">
                <font face="Verdana">
                <textarea rows="6" name="messaggio" cols="37"></textarea></font></td>
              </tr>
            </table>
            <p align="center"><font face="Verdana"><input type="submit" value="Invia" name="invia"><input type="reset" value="Reimposta" name="resetta"></font></p>
          </form>
&nbsp;</td>
        </tr>
      </table>
      </div>
      </td>
    </tr>
    </table>

  <p align="center"><font face="Verdana" size="2">2005 Copyright Nome del tuo dominio</font></p>

</body>

</html>


mail.asp
<%
Set link = CreateObject("CDONTS.Newmail")
link.From = request.form("email")
link.To = "tra queste virglette inserisci il tuo indirizzo mail"
link.Subject = request.form("nome")
link.Body = request.form("messaggio")
Set link = Nothing
%>


<?xml version="1.0" encoding="UTF-8"?>
<!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" xml:lang="it" lang="it">

<head>
<meta http-equiv="Content-Language" content="it" />
<title>Contatti</title>
</head>

<body>

  <table border="2" cellspacing="0" style="border-collapse: collapse" width="80%" id="table1" cellpadding="4" align="center">
    <tr>
      <td>
      <p align="center"><font face="Verdana">nometuodominio.com</font></td>
    </tr>
    <tr>
      <td bgcolor="#808080">
      <p align="right">
      &nbsp;</p></td>
    </tr>
    <tr>
      <td>
      <table border="1" cellspacing="0" style="border-collapse: collapse" width="100%" id="table3" cellpadding="6">
        <tr>
          <td valign="top">
          <p align="center"><font face="Verdana">La tua e-mail &egrave; stata ricevuta... Ti 
          risponderemo al pi&ugrave; presto&#33; Grazie.</font></p></td>
        </tr>
      </table>
      </td>
    </tr>
    </table>

  <p align="center"><font face="Verdana" size="2">2006 Copyright
  <a target="_blank" href="http://www.prolocovarallo.com" rel="nofollow">
  http://www.dominioweb.org</a></font></p>

</body>

</html>

Cosa c'è che non va? Grazie ciao ciao
Ciao Ciao!!
Modificato da crislovestefy_4e il 19 aprile 2009 08.06 -
87 messaggi dal 31 luglio 2001
semplice questo componente CDONTS nn si usa da anni!!!!!!!!! adesso c'è il cdo...
16 messaggi dal 09 ottobre 2001
Per prima cosa devi sapere cosa usa il tuo provider, oppure se nel tuo pc come prova ti consiglio di installare il modulo MySmartMail.dll
viene usato anche sui siti registrati con register.it

-----------------------------------------------------------
dopo aver installato la dll

<%
' Invio mail con aspSmartMail
'In questa pagine viene presentato un esempio di utilizzo di aspSmartMail per l'invio di email dalle soluzioni Winhost.
'Per maggiori informazioni sui metodi e le proprietà dell'oggetto aspSmartMail.SmartMail consultare
'il sito del produttore http://www.aspsmart.com/aspSmartMail/ alla sezione "Documentation".

On error resume next

Dim mySmartMail
Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")

'From
'In questa sezione inserire i dati del mittente del messaggio
'E' necessario inserire il nome del mittente (SenderName) e l'indirizzo del mittente (SenderAddress)
'****
mySmartMail.SenderName = "Your Name"
mySmartMail.SenderAddress = "youremail@yourdomain.com"

'To
'In questa sezione inserire i dati dei destinatari del messaggio
'Ad ogni riga è possibile inserire un destinatario inserendo l'indirizzo e il nome.
'**
mySmartMail.Recipients.Add "yourfriend0@anydomain.com", "Friend0's name"
mySmartMail.Recipients.Add "yourfriend1@anydomain.com", "Friend1's name"

'Carbon Copy
'E' possibile inserire un destinatario in copia carbone.
'Ad ogni riga è possibile inserire un destinatario inserendo l'indirizzo e il nome.
'***********
mySmartMail.CCs.Add "yourfriend2@anydomain.com", "Friend2's name"

'Blind Carbon Copy
'E' possibile inserire un destinatario in copia carbone che non verrà visualizzato dagli altri destinatari
'Ad ogni riga è possibile inserire un destinatario inserendo l'indirizzo e il nome.
'*****************
mySmartMail.BCCs.Add "yourfriend3@anydomain.com", "Friend3's name"

'Reply To
'E' possibile inserire l'indirizzo e il nome per le risposte.
'********
mySmartMail.ReplyTos.Add "yourfriend4@anydomain.com", "Friend4's name"

'Message
'In questa sezione inserire il proprio messaggio completo di Oggetto (Subject) e Testo (Body)
'*******
mySmartMail.Subject = "aspSmartMail Sample 5"
mySmartMail.Body = "This mail which has been sent with aspSmartMail."

'Parameters
'E' possibile inserire le proprietà del messaggio email.
'**********
mySmartMail.DateTime = "Wed, 23 febr 2000 12:00 +0600"
mySmartMail.Organization = "your Society Inc."
mySmartMail.XMailer = "Your Web Application"
mySmartMail.Priority = 1
mySmartMail.ReturnReceipt = false
mySmartMail.ConfirmRead = true
mySmartMail.ContentType = "text/plain"
mySmartMail.Charset = "us-ascii"
mySmartMail.Encoding = "base64"

'Attached file
'E' possibile allegare un file al messaggio email
'*************
mySmartMail.Attachments.Add Server.MapPath("\aspSmartMail\sample.txt"), false

'Send the message
'Questa parte è necessaria per l'invio del messaggio e per il debug degli errori.
'****************
mySmartMail.SendMail

if err.number <> 0 then

response.write("Error n° " & err.number - vbobjecterror & " = " & err.description & "<br>")

else

Response.Write "aspSmartMail has sent your message with this file as attachment : <br>"
Response.Write mySmartMail.Attachments.Item(1).FilePathName

end if

set mySmartMail = nothing

%>


ciao
buon lavoro

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.