[VB.NET] errore invio mail

**wjzard** · 30-03-2012, 00:23

Ho un errore per questo programma per inviare mail
ho provato a usare si out.alice.it che mail.gmail.com ma non funziona come mai ?

codice:

Imports System.Net
Imports System.Net.Mail
Public Class Form5
    Dim openfile As New OpenFileDialog
    Dim posta As New MailMessage()
    Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        posta = New MailMessage
        posta.From = New MailAddress(TextBox4.Text)
        posta.To.Add("andrea.moro1989@gmail.com")
        posta.Subject = TextBox2.Text
        posta.Priority = MailPriority.High
        posta.Body = RichTextBox1.Text
        ' If TextBox4.Text = "" Then
        ' Else
        'posta.Attachments.Add(New Attachment(TextBox3.Text))
        'End If

        Dim smtp As New SmtpClient(ComboBox1.Text)
        smtp.Send(posta)
        MsgBox("La Mail è Stata Inviata!", MsgBoxStyle.Information, "Mail")
    End Sub

   

    Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        openfile.ShowDialog()
        Try
            TextBox3.Text = openfile.FileName
        Catch ex As Exception
        End Try

    End Sub

    Private Sub TextBox4_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub Form5_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("out.alice.it")
        ComboBox1.Items.Add("mail.gmail.com")
        ComboBox1.Items.Add("out.aliceposta.it")
        ComboBox1.Items.Add("smtp.teletu.it")
        ComboBox1.Items.Add("smtp.net.vodafone.it")
    End Sub
End Class

**oregon** · 30-03-2012, 02:01

Di quale errore parli in dettaglio?

**wjzard** · 30-03-2012, 10:58

L'errore Avviene solo quando cerco di inviare delle email e mi segnala questo:

Eccezione non gestita nell'applicazione. Fare clic su continua per ignorare l'errore a tentare di proseguire.Fare clic su esci per arrestare l'applicazione immediatamente.

Errore durante l'invio della posta

Dettagli errore

Le informazioni su come richiamare il debug JIT (Just-In-Time) anziché questa finestra sono riportate in fondo al messaggio.

************** Testo dell'eccezione**************
System.Net.Mail.SmtpException: Errore durante l'invio della posta. ---> System.Net.WebException: Impossibile effettuare la connessione al server remoto. ---> System.Net.Sockets.SocketException: Impossibile stabilire la connessione. Risposta non corretta della parte connessa dopo l'intervallo di tempo oppure mancata risposta dall'host collegato 82.57.200.132:25 in System.Net.Sockets.Socket.DoConnect(EndPoint endPointSnapshot, SocketAddress socketAddress) in System.Net.ServicePoint.ConnectSocketInternal(Bool ean connectFailure, Socket s4, Socket s6, Socket& socket, IPAddress& address, ConnectSocketState state, IAsyncResult asyncResult, Int32 timeout, Exception& exception) --- Fine della traccia dello stack dell'eccezione interna --- in System.Net.ServicePoint.GetConnection(PooledStream PooledStream, Object owner, Boolean async, IPAddress& address, Socket& abortSocket, Socket& abortSocket6, Int32 timeout) in System.Net.PooledStream.Activate(Object owningObject, Boolean async, Int32 timeout, GeneralAsyncDelegate asyncCallback) in System.Net.PooledStream.Activate(Object owningObject, GeneralAsyncDelegate asyncCallback) in System.Net.ConnectionPool.GetConnection(Object owningObject, GeneralAsyncDelegate asyncCallback, Int32 creationTimeout) in System.Net.Mail.SmtpConnection.GetConnection(Servi cePoint servicePoint) in System.Net.Mail.SmtpTransport.GetConnection(Servic ePoint servicePoint) in System.Net.Mail.SmtpClient.GetConnection() in System.Net.Mail.SmtpClient.Send(MailMessage message) --- Fine della traccia dello stack dell'eccezione interna --- in System.Net.Mail.SmtpClient.Send(MailMessage message) in WindowsApplication1.Form5.Button1_Click(Object sender, EventArgs e) in C:\Users\Andrea\Documents\Visual Studio 2010\Projects\WindowsApplication1\WindowsApplicati on1\Form5.vb:riga 25 in System.Windows.Forms.Control.OnClick(EventArgs e) in System.Windows.Forms.Button.OnClick(EventArgs e) in System.Windows.Forms.Button.OnMouseUp(MouseEventAr gs mevent) in System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) in System.Windows.Forms.Control.WndProc(Message& m) in System.Windows.Forms.ButtonBase.WndProc(Message& m) in System.Windows.Forms.Button.WndProc(Message& m) in System.Windows.Forms.Control.ControlNativeWindow.O nMessage(Message& m) in System.Windows.Forms.Control.ControlNativeWindow.W ndProc(Message& m) in System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) ************** Assembly caricati ************** mscorlib Versione assembly: 4.0.0.0 Versione Win32: 4.0.30319.261 (RTMGDR.030319-2600) Base di codice: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll ---------------------------------------- WindowsApplication1 Versione assembly: 1.0.0.0 Versione Win32: 1.0.0.0 Base di codice: file:///C:/Users/Andrea/Documents/Visual%20Studio%202010/Projects/WindowsApplication1/WindowsApplication1/bin/Debug/WindowsApplication1.exe ---------------------------------------- Microsoft.VisualBasic Versione assembly: 10.0.0.0 Versione Win32: 10.0.30319.1 built by: RTMRel Base di codice: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll ---------------------------------------- System Versione assembly: 4.0.0.0 Versione Win32: 4.0.30319.261 built by: RTMGDR Base di codice: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll ---------------------------------------- System.Core Versione assembly: 4.0.0.0 Versione Win32: 4.0.30319.233 built by: RTMGDR Base di codice: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll ---------------------------------------- System.Windows.Forms Versione assembly: 4.0.0.0 Versione Win32: 4.0.30319.235 built by: RTMGDR Base di codice: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll ---------------------------------------- System.Drawing Versione assembly: 4.0.0.0 Versione Win32: 4.0.30319.1 built by: RTMRel Base di codice: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll ---------------------------------------- System.Configuration Versione assembly: 4.0.0.0 Versione Win32: 4.0.30319.1 (RTMRel.030319-0100) Base di codice: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll ---------------------------------------- System.Xml Versione assembly: 4.0.0.0 Versione Win32: 4.0.30319.233 built by: RTMGDR Base di codice: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll ---------------------------------------- System.Runtime.Remoting Versione assembly: 4.0.0.0 Versione Win32: 4.0.30319.1 (RTMRel.030319-0100) Base di codice: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll ---------------------------------------- Microsoft.VisualBasic.PowerPacks.Vs Versione assembly: 10.0.0.0 Versione Win32: 10.0.40219.1 Base di codice: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic.PowerPacks.Vs/10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.PowerPacks.Vs.dll ---------------------------------------- mscorlib.resources Versione assembly: 4.0.0.0 Versione Win32: 4.0.30319.235 (RTMGDR.030319-2300) Base di codice: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_it_b77a5c561934e089/mscorlib.resources.dll ---------------------------------------- System.resources Versione assembly: 4.0.0.0 Versione Win32: 4.0.30319.1 built by: RTMRel Base di codice: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.resources/v4.0_4.0.0.0_it_b77a5c561934e089/System.resources.dll ---------------------------------------- System.Windows.Forms.resources Versione assembly: 4.0.0.0 Versione Win32: 4.0.30319.1 built by: RTMRel Base di codice: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_it_b77a5c561934e089/System.Windows.Forms.resources.dll ---------------------------------------- ************** Debug JIT ************** Per abilitare il debug JIT, è necessario impostare il valore jitDebugging nella sezione system.windows.forms del file di configurazione dell'applicazione o del computer (machine.config). L'applicazione inoltre deve essere compilata con il debug abilitato. Ad esempio: <configuration> <system.windows.forms jitDebugging="true" /> </configuration> Quando il debug JIT è abilitato, tutte le eccezioni non gestite vengono inviate al debugger JIT registrato nel computer, anziché essere gestite da questa finestra di dialogo.

**URANIO** · 30-03-2012, 11:40

L'errore parlante è questo:
System.Net.Sockets.SocketException: Impossibile stabilire la connessione. Risposta non corretta della parte connessa dopo l'intervallo di tempo oppure mancata risposta dall'host collegato 82.57.200.132:25

Non riesce a collegarsi
Il problema potrebbe essere un firewall o che il server non esiste.

Che io sappia l'smtp di google è smtp.gmail.com e richiede una connessione sicura (quindi non la porta 25) ma non l'ho mai usato.

**wjzard** · 30-03-2012, 11:55

Ho provato ad usare smtp.gmail.com per inviare la mail ma non funziona lo stesso cosa posso fare ?

**wjzard** · 30-03-2012, 12:28

ho risolto cosi però vorrei sapere una cosa visto che ho dovuto mettere la mia password della mail c'è rischio che venga letta da qualcuno ?

codice:

Imports System.Net
Imports System.Net.Mail
Public Class Form5
    Dim openfile As New OpenFileDialog
    Dim posta As New MailMessage()
    Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim smtpServer As New SmtpClient()
        posta = New MailMessage
        posta.From = New MailAddress(TextBox4.Text)
        posta.To.Add("andrea.moro1989@gmail.com")
        posta.Subject = TextBox2.Text
        posta.Priority = MailPriority.High
        posta.Body = RichTextBox1.Text
        smtpServer.Credentials = New Net.NetworkCredential("andrea.moro1989@gmail.com", "PASSWORD")
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True
        If TextBox3.Text = "" Then

        Else
            posta.Attachments.Add(New Attachment(TextBox3.Text))
        End If


        smtpServer.Send(posta)
        MsgBox("La Mail è Stata Inviata!", MsgBoxStyle.Information, "Mail")
    End Sub

   

    Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        openfile.ShowDialog()
        Try
            TextBox3.Text = openfile.FileName
        Catch ex As Exception
        End Try

    End Sub

**oregon** · 30-03-2012, 14:01

Sì ... la password è in chiaro nel codice vb.net ... puoi usare un offuscatore ma non mi fiderei.

**URANIO** · 30-03-2012, 14:04

Originariamente inviato da wjzard
ho risolto cosi però vorrei sapere una cosa visto che ho dovuto mettere la mia password della mail c'è rischio che venga letta da qualcuno ?

SICURAMENTE devi metterci user e password, gli smtp anonimi ormai sono pochi causa spam.
C'è il rischio? ....si
Se la connessione non è cifrata possono intercettare la comunicazione e la password usata.
Ma anche se è cifrata dato che è un applicazione in mano all'utente possono benissimo fare in modo di leggere i dati che sui (modificando il DNS, decompilando, etc... )

E poi le email inviate sarebbero inviate a tuo nome.

**oregon** · 30-03-2012, 14:10

Originariamente inviato da URANIO
E poi le email inviate sarebbero inviate a tuo nome.

La cosa curiosa è che lui le voglia anche ricevere ...

posta.To.Add("andrea.moro1989@gmail.com")

... come fanno molti programmi che inviano informazioni a certe caselle ...

**URANIO** · 30-03-2012, 14:41

Originariamente inviato da oregon
La cosa curiosa è che lui le voglia anche ricevere ...

posta.To.Add("andrea.moro1989@gmail.com")

... come fanno molti programmi che inviano informazioni a certe caselle ...

Ah, non avevo letto.
Come sei prevenuto, sarà semplicemente una form nel programma che permette agli utenti di mandare feedback.

Discussione: [VB.NET] errore invio mail

Strumenti discussione

Ricerca discussione

Visualizza

[VB.NET] errore invio mail

Permessi di invio