Pagina 1 di 3 1 2 3 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 22

Discussione: Form con CDO

  1. #1

    Form con CDO

    NOn riesco più a capire cosa debba fare per inviare un form da un server windows 2003 che utilizza l'oggetto CDO.

    Ecco il mio codice per il form con lo script per l'invio.
    Help me!
    Grazie mille.

    <%
    'Controlla invio
    If Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

    Dim objMail, objConfig
    'Crea l'oggetto email
    Set objMail = CreateObject("CDO.Message")
    'Dimensiona l'oggetto configurazione
    Set objConfig = Server.CreateObject("CDO.Configuration")

    'Imposta le configurazioni
    With objConfig

    'Server SMTP di uscita
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" ' server SMTP

    'Porta SMTP
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 8025

    'Porta CDO
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    .Fields.Update
    End With

    'Assegna le configurazioni
    Set objMail.Configuration = objConfig

    'Assegna all'oggetto le proprietà necessarie
    objMail.To = "webmaster@xxxxx.com" '<---------- EMAIL Destinatario
    objMail.From = Request.Form("email") '<---------- Mittente
    objMail.Subject = Request.Form("oggetto") '<----------- Oggetto
    objMail.HTMLBody = Request.Form("messaggio") '<-------- Messaggio

    'Invia l'email
    objMail.Send()
    Set objMail = Nothing
    Response.Write("Email inviata correttamente")
    Else
    %>
    <form name="formail" method="post" action="email.asp?invia=true">
    <table align="center" cellpadding="3" cellspacing="1">
    <tr>
    <td>Email</td>
    <td><input type="text" name="email" /></td>
    </tr> <tr>
    <td>Oggetto</td>
    <td><input type="text" name="oggetto" /></td>
    </tr> <tr>
    <td>Messaggio</td>
    <td><textarea name="messaggio"></textarea></td>
    </tr> <tr>
    <td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
    </tr> </table>
    </form>
    <%
    End If
    %>

  2. #2
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    da errori?
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  3. #3
    urca!
    Internal Server Error

  4. #4
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    Originariamente inviato da help.scrivimi
    urca!
    Internal Server Error
    hai disabilitato sul browser i messaggi di errore brevi?
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  5. #5
    yes, non cambia nulla!

  6. #6
    qualcuno puà consigliarmi dove scaricare un modulo web che spedisce in casella email i dati raccolti???
    tks

  7. #7
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    il server è gestito da te?

    io uso questo codice:

    codice:
    'invio email
    
    Dim MiaMail
    Set MiaMail = Server.CreateObject("CDO.Message")
    MiaMail.From = strEmailda
    MiaMail.To = strEmaila
    MiaMail.Cc = ""
    MiaMail.Bcc = ""
    MiaMail.Subject = strTitolo
    MiaMail.HTMLBody = strBody
    if strAllegato <> "" then
    dim allegato
    allegato=Server.MapPath("/cartella/strAllegato)
    MiaMail.AddAttachment (allegato)
    end if
    MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
    MiaMail.Fields.Update()
    MiaMail.Send()
    Set MiaMail = Nothing
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  8. #8
    Il problema è collegare questo codice ad un modulo

  9. #9
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    nella pagina A fai un form con i campi interessati

    nella pagina B fai tutti i request.form che ti servono, e li inserisci nelle apposite variabili che saranno poi inviate nella mail tramite il codice che ti ho scritto.
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  10. #10
    Scusate tutti se posto il codice ma proprio sto
    L'errore è sempre Internal Server Error
    file 1.html
    <form name="modulo" method="post" action="2.asp">
    <table align="center" cellpadding="3" cellspacing="1">
    <tr>
    <td>Email</td>
    <td><input type="text" name="strEmailda" /></td>
    </tr> <tr>
    <td>Soggetto</td>
    <td><input type="text" name="strTitolo" /></td>
    </tr> <tr>
    <td>Messaggio</td>
    <td><textarea name="strBody"></textarea></td>
    </tr> <tr>
    <td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
    </tr> </table>
    </form>

    File 2.asp
    <%
    If Request.Form("submit") = "invia" then
    Set Config = Server.CreateObject("CDO.Configuration")
    Set Fields = Config.Fields
    Fields.Item("http://schemas.microsoft.com/cdo/configuration/SendUsing") = 2
    Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
    Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverPort") = 8025
    Fields.Update
    Dim MiaMail
    Set MiaMail = Server.CreateObject("CDO.Message")
    MiaMail.From = strEmailda
    MiaMail.To = "webmaster@xxxxx.com"
    MiaMail.Cc = ""
    MiaMail.Bcc = ""
    MiaMail.Subject = strTitolo
    MiaMail.HTMLBody = strBody
    if strAllegato <> "" then
    dim allegato
    allegato=Server.MapPath("/cartella/strAllegato)
    MiaMail.AddAttachment (allegato)
    end if
    MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
    MiaMail.Fields.Update()
    MiaMail.Send()
    Set MiaMail = Nothing
    Else
    %>
    <%
    End If
    %>

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.