Inviare email con VB.NET

Inviare email con VB.NET

Per inviare email con VB.NET non dobbiamo installare librerie aggiuntive.

Abbiamo già tutto a disposizione; ma considerate che il codice qua sotto è generico, e l'invio dipende anche dal settaggio della vsotra casella email.

Ad esempio per Gmail dovete configurarla appositamente attivando le app meno sicure; sennò non riuscirete ad inviarle.

Detto ciò vediamo il codice di esempio:

Imports System.Net
Imports System.Net.Mail

Module Module1

    Sub Main()
        Try
            Dim smtpClient As New SmtpClient("SMTP_SERVER", PORTA_SMTP)
            smtpClient.Credentials = New NetworkCredential("TUA_EMAIL", "TUA_PWD")
            smtpClient.UseDefaultCredentials = False
            smtpClient.EnableSsl = True

            Dim mailMessage As New MailMessage()
            mailMessage.From = New MailAddress("TUA_EMAIL")
            mailMessage.To.Add("INDIRIZZO")
            mailMessage.Subject = "Invio da VB.NET"
            mailMessage.IsBodyHtml = True
            mailMessage.Body = "Ciao, questa è una email per testare VB.NET"

            smtpClient.Send(mailMessage)
            Console.WriteLine("Email inviata")
        Catch e As SmtpException
            Console.WriteLine("SMTP: " & e.Message)
            Console.WriteLine(e.ToString)
        Catch e As Exception
            Console.WriteLine("ERRORE: " & e.Message)
        End Try
    End Sub

End Module

Come già detto il codice è abbastanza generico, e più o meno vale per tutti gli indirizzi.

Ovviamente dovete andarvi a prendere il server SMTP e la porta della vostra casella.

Enjoy!




Share

Commentami!

About Mattepuffo.com

Blog dedicato all'informatica e alla programmazione!
Tutti i contenuti di questo blog, tranne casi particolari, sono sotto licenza Licenza Creative Commons Creative Commons Attribution-Noncommercial-Share Alike 2.5. .

2626 articoli
310 commenti
19 progetti
Altri link
  • About
  • Scrivimi
  • Copyright
  • Sitemap
  • matteo.ferrone@yahoo.it
  • GitHub
  • Privacy Policy