• User

    Invio mail da sito. Dove sbaglio?

    Questo è l'errore:

    CDO.Message.1 error '80040213'
    The transport failed to connect to the server.
    /mail.asp, line 70

    Il codice della mia pagina ".asp" è questo

    <html>

    <head>
        <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
        <title>Complimenti! Messaggio inviato.</title>
    </head>
    

    <%
    If Request.Form("mail") = "" or Request.Form("cognome") = "" Then
    Response.Write("<body bgcolor='FFFF99'</body> <center><b><font face='Verdana' size='2'>Ricompila il modulo facendo attenzione <br> ai campi contrassegnati dall'asterisco.<br> Premi <A href=" & "'javascript:history.back()'" & "> Indietro </a>.</font><BR></b></center>")
    Else

    %>

    <body bgcolor="#99CCFF" leftmargin="0" topmargin="0">
    <table width="730" border="0" cellpadding="0" cellspacing="0">
    <tr>
    <td width="117"> </td>
    <td width="153"> </td>
    <td width="460" valign="top"> </td>
    </tr>
    </table>
    <table border="0" cellpadding="10" cellspacing="0" width="730" height="300">
    <tr>
    <td>
    <%
    x = "Nome: " & request.form("nome") & chr(10)
    x = x & "Cognome: " & request.form("cognome") & chr(10) & chr(10)
    x = x & "Indirizzo E-mail: " & request.form("mail") & chr(10) & chr(10)
    x = x & "Oggetto: " & request.form("oggetto") & chr(10) & chr(10)
    x = x & "Messaggio: " & request.form("messaggio") & chr(10)

    //testo mail

    dim objConfig

    set objConfig = Server.createObject("CDO.Configuration")
    
    With objConfig
    
        .Fields("...schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.axiomenet.com"
    
        .Fields("...schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    
        .Fields("...schemas.microsoft.com/cdo/configuration/sendusing") = 2
    
        .Fields("...schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    
        .Fields.update
    
    End With
    
    Dim objMail
    
    Set objMail = Server.createObject("CDO.Message")
    
    Set objMail.Configuration = objConfig
    
    objMail.From = "[email protected]"
    
    objMail.To = " [email protected]; [email protected] "
    
    objMail.Subject = "Oggetto"
    
    objMail.Fields("urn:schemas:httpmail:importance").Value = 1
    
    objMail.Fields.update()
    
    objMail.HTMLBody = "Testo"
    
    objMail.Send
    
    Set objMail = Nothing 
    

    %><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Egregio signore/a</b></font><b><br>
    <%Response.Write(request.Form ("cognome"))%><br>
    </b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Abbiamo ricevuto la Sua e-mail.<br>
    Sarà ricontattato al più presto.</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
    <br>
    <b>RIEPILOGO DATI INVIATI</b></font><br>
    <br>
    <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome:</font> <b><%Response.Write(request.Form ("nome"))%></b><br>
    <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Cognome:</font> <b><%Response.Write(request.form("cognome"))%></b><br>
    <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Indirizzo E-mail:</font> <b><%Response.Write(request.Form ("mail"))%></b><br>
    <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Oggetto:</font> <b><%Response.Write(request.form ("oggetto"))%></b><br>
    <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Messaggio:</font> <b><%Response.Write(request.Form ("messaggio")) end if
    %></b><br>

                </td>
            </tr>
        </table>
        </body>
    

    </html>

    Dove sbaglio?
    aiutoooooo!!!
    grazie
    momotata


  • User

    devi innanzitutto vedere se il tuo hosting ha l'oggetto CDO.Message, in genere è win 2003 che ha questo oggetto per inviare email.

    Informati su questo


  • User

    Sì, è stato lui che mi ha fornito questo codice, ma non riesco a farlo funzionare!!!!!!!!!!!!!:(


  • User

    Prova con questo script se invia l'email

    Set myMail=CreateObject("CDO.Message")
    myMail.Subject="Contatto"
    myMail.From=email
    myMail.To="[email protected]"
    myMail.TextBody = "nome: " & nome & vbCrLf & _
    "email: " & email"
    myMail.Configuration.Fields.Item ("http:**schemas.microsoft.com/cdo/configuration/sendusing")=2
    'Name or IP of remote SMTP server
    myMail.Configuration.Fields.Item ("http:schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.tuosito.com"
    'Server port
    myMail.Configuration.Fields.Item ("http:
    schemas.microsoft.com/cdo/configuration/smtpserverport") =25
    myMail.Configuration.Fields.Update
    myMail.Send
    set myMail=nothing