Problema nell'invio di mail tramite form

di
bussa1961
il
1 risposte
B
bussa1961
Pochi posts
Iscritto da
mar, 2018
Messaggi:
11

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 = ""
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

1 Risposte

  • B
    bussa1961
    Pochi posts
    Iscritto da
    mar, 2018
    Messaggi:
    11

    Re: Problema nell'invio di mail tramite 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 aruba.

    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("")
    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("", "password")
    smtpServer.Port = 465
    smtpServer.Host = "smtps.aruba.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
Devi accedere o registrarti per scrivere nel forum
1 risposte