Visualizzazione dei risultati da 1 a 5 su 5
  1. #1

    problema nell'invio di mail tramite form

    Buongiorno,


    ho un problema nell'inviare una mail contenente i dati di un form che aggiornano una tabella sql server.


    la compilazione e l'aggiornamento della tabella funzionava perfettamente fino a quando ho inserito il codice per l'invio di una mail
    contenente gli stessi dati.


    questo è l'errore segnalato:


    The transport failed to connect to the server.


    102: SmtpMail.Send(msg)


    ...e questo è il codice...




    If Page.IsValid Then
    Dim strconn As String

    Dim strdiv As String
    Dim strsql As String
    Dim strprivacy As String
    strprivacy = Messaggio.Text
    strsql = ""
    strdiv = ""


    Dim msg As New System.Web.Mail.MailMessage()
    msg.Subject = "invio iscrizione al corso"
    msg.Body = "iscrizione corso " & nomecorso.Text & " Cognome " & cognome.Text & " Nome " & nome.Text & " nascita " & nascita.Text & " codice fiscale " & codfis.Text & " e-mail " & posta.Text & " cellulare " & telefono.Text & ""
    msg.To = "contatti@dominio.it"
    msg.From = posta.Text
    SmtpMail.SmtpServer = "smtps.aruba.it"
    SmtpMail.Send(msg)


    Dim conn As SqlConnection
    Dim command As SqlCommand
    Dim datagiorno As String
    datagiorno = DateTime.Now.ToString()
    strconn = "Data Source......



    strsql = "insert into iscrizioni(isc_cognome, isc_nome, isc_nascita, isc_codfis, isc_indirizzo, isc_cap, isc_citta, isc_provincia, isc_cellulare, isc_mail, isc_descricorso, isc_data, isc_privacy)" & _
    "values ('" & cognome.Text & "', '" & nome.Text & "', '" & nascita.Text & "', '" & codfis.Text & "', '" & indirizzo.Text & "', '" & cap.Text & "','" & citta.Text & "','" & provincia.Text & "','" & telefono.Text & "','" & posta.Text & "','" & nomecorso.Text & "','" & datagiorno & "', '" & strprivacy & "')"
    strdiv = "<strong>DATI INSERITI CORRETTAMENTE - SARETE CONTATTATI AL PIU' PRESTO <br /><a href='https://www.dominio.htm'>CLICCARE QUI PER TORNARE ALLA HOME PAGE</strong></a>"


    conn = New SqlConnection(strconn)
    command = New SqlCommand(strsql, conn)
    command.Connection.Open()
    command.ExecuteNonQuery()
    command.Connection.Close()
    risultato.Visible = True
    risultato.InnerHtml = strdiv
    form_blocco.Visible = False






    Else
    risultato.InnerHtml = "Form non valido"
    End If
    End Sub




    grazie e saluti, Maurizio

  2. #2

    timed out in invio mail da form

    Buongiorno,

    aggiorno il thread inserito ieri su un problema che riscontro relativo all'invio di una mail da un form
    che aggiorna una tabella di un database msql.
    l'aggiornamento dei dati non presenta alcun problema ma il sistema di invio della mail mi segnala
    un "timed out" e quindi non riesce ad effettuare l'invio..posto il codice relativo alla sub che effettua invio mail e aggiornamento tabella.

    il server di posta è di XXX

    Sub esegui(ByVal sender As Object, ByVal e As EventArgs)


    If Page.IsValid Then
    Dim strconn As String
    Dim strdiv As String
    Dim strsql As String
    Dim strprivacy As String
    strprivacy = Messaggio.Text
    strsql = ""
    strdiv = ""

    Dim msgposta As New MailMessage()
    Dim smtpServer As New SmtpClient()
    msgposta = New MailMessage
    msgposta.From = New MailAddress(posta.Text)
    msgposta.To.Add("contatti@dominio.it")
    msgposta.Subject = "invio iscrizione al corso" & nomecorso.Text & " Cognome " & cognome.Text & " Nome " & nome.Text & " "
    msgposta.Priority = MailPriority.High
    msgposta.Body = "iscrizione corso " & nomecorso.Text & " Cognome " & cognome.Text & " Nome " & nome.Text & " nascita " & nascita.Text & " codice fiscale " & codfis.Text & " e-mail " & posta.Text & " cellulare " & telefono.Text & ""
    smtpServer.Credentials = New Net.NetworkCredential("contatti@dominio.it", "password")
    smtpServer.Port = 465
    smtpServer.Host = "smtps.XXXXX.it"
    smtpServer.EnableSsl = True
    smtpServer.Send(msgposta)




    Dim conn As SqlConnection
    Dim command As SqlCommand
    Dim datagiorno As String
    datagiorno = DateTime.Now.ToString()
    strconn = "Data Source=......



    strsql = "insert into iscrizioni(isc_cognome, isc_nome, isc_nascita, isc_codfis, isc_indirizzo, isc_cap, isc_citta, isc_provincia, isc_cellulare, isc_mail, isc_descricorso, isc_data, isc_privacy)" & _
    "values ('" & cognome.Text & "', '" & nome.Text & "', '" & nascita.Text & "', '" & codfis.Text & "', '" & indirizzo.Text & "', '" & cap.Text & "','" & citta.Text & "','" & provincia.Text & "','" & telefono.Text & "','" & posta.Text & "','" & nomecorso.Text & "','" & datagiorno & "', '" & strprivacy & "')"
    strdiv = "<strong>DATI INSERITI CORRETTAMENTE - SARETE CONTATTATI AL PIU' PRESTO <br /><a href='https://www.dominio.it>CLICCARE QUI PER TORNARE ALLA HOME PAGE</strong></a>"


    Grazie e saluti, Maurizio
    Ultima modifica di djciko; 24-10-2018 a 11:48

  3. #3
    Moderatore di ASP.net L'avatar di djciko
    Registrato dal
    Nov 2002
    Messaggi
    6,886
    per favore usa i tag per il codice, selezionandolo e poi premendo il tasto "#" nell'editor.

    Maurizio pure io

  4. #4
    Utente di HTML.it L'avatar di pietro09
    Registrato dal
    Jan 2002
    Messaggi
    10,116
    smtpServer.Port = 465
    smtpServer.Host = "smtps.xxxxxx.it"
    smtpServer.EnableSsl = True
    non credo che funzioni col framework .NET
    Prova a usare la libreria AegisImplicitMail
    Ultima modifica di djciko; 24-10-2018 a 11:47
    Pietro

  5. #5
    Moderatore di ASP.net L'avatar di djciko
    Registrato dal
    Nov 2002
    Messaggi
    6,886
    bussa devi leggere il regolamento

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 © 2024 vBulletin Solutions, Inc. All rights reserved.