[VB.Net] Inviare email

[ginebell]

Ho il seguente codice in una pagina aspx

Dim da As MailAddress = New MailAddress("xxx@tiscali.it", "xxx")
Dim a As New MailAddress("destinatario@gmail.com", "destinatario")
Dim mail As MailMessage = New MailMessage(da, a)
mail.Subject = "Prenotazione campo da tennis"
mail.Body = "Conferma prenotazione"
Dim client As SmtpClient = New SmtpClient("smtp.tiscali.it", 465)
client.Credentials = New System.Net.NetworkCredential("username", "password")
client.Send(mail)

nelle declare della pagina ho messo

<%@ Import Namespace="System.Net.Mail"%>

Ma quando vado a fare il test per vedere come si comporta, il sistema mi segnala timeout.

Potete aiutarmi a dipanare la matassa?
Non trova l'host specificato

[djciko]

ti sei assicurato che tiscali fornisca il servizio ?
magari cerca gli smtp aperti e gratuiti...

intanto cambio il titolo, non è proprio da Visual Studio ma da una normale applicazione

[pietro09]

invece di:
Dim client As SmtpClient = New SmtpClient("smtp.tiscali.it", 465)
prova a mettere:
Dim client As SmtpClient = New SmtpClient("smtp.tiscali.it")

[djciko]

Con l'SMTP di Google comunque, è possibile e funziona bene.

Prima pero' devi impostare i permessi per le App meno sicure, da qui
https://myaccount.google.com/lesssecureapps

Ho un vecchio codice, dove c'e' "mittente", intendo il tuo indirizzo Gmail e la tua password. Puoi crearne uno apposta.

Le using:
using System;
using System.Net.Mail;
using System.Net;

[C#]

        protected void Page_Load(object sender, EventArgs e)
        {
            invioMailGoogle();
        }



        private void invioMailGoogle()
        {
            using (MailMessage mail = new MailMessage())
            {
                mail.From = new MailAddress("mittente@gmail.com");
                mail.To.Add("destinatario@yahoo.com");


                mail.Subject = "Test Google SMTP";
                mail.Body = "<h1>Ciao, questo è un test.</h1>";
                mail.IsBodyHtml = true;

                // Nel caso di Attachments
                //mail.Attachments.Add(new Attachment("C:\\file.zip"));


                using (SmtpClient smtp = new SmtpClient("smtp.gmail.com", 587))
                {
                    smtp.Credentials = new NetworkCredential("mittente@gmail.com", "passwordMittente");
                    smtp.EnableSsl = true;
                    try
                    {
                        smtp.Send(mail);
                        Response.Write("Mail inviata correttamente");
                    }
                    catch (Exception ex)
                    {
                        throw ex;
                    }
                    
                }
            }
        }

[djciko]

in VB.Net

Private Sub invioMailGoogle()
    Using mail As MailMessage = New MailMessage()
        mail.From = New MailAddress("mittente@gmail.com")
        mail.[To].Add("destinatario@yahoo.com")
        mail.Subject = "Test Google SMTP"
        mail.Body = "<h1>Ciao, questo è un test.</h1>"
        mail.IsBodyHtml = True


        Using smtp As SmtpClient = New SmtpClient("smtp.gmail.com", 587)
            smtp.Credentials = New NetworkCredential("mittente@gmail.com", "passwordMittente")
            smtp.EnableSsl = True


            Try
                smtp.Send(mail)
                Response.Write("Mail inviata correttamente")
            Catch ex As Exception
                Throw ex
            End Try
        End Using
    End Using
End Sub