Email con Register.it

Imports System.IO
Imports System.Net.Mail

Partial Class Admin_TestEmail
    Inherits System.Web.UI.Page

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

        Try

            Dim mail As New MailMessage()

            mail.From = New MailAddress("no-reply@miodominio.com")


            mail.To.Add("indirizzoTo@miodominio.com")

            mail.Bcc.Add("indirizzoBcc@miodominio.com")

            mail.Subject = "TEST"

            Dim sb As New StringBuilder

            sb.AppendLine("PROVA")

            mail.IsBodyHtml = True
            mail.Body = sb.ToString

            Dim smtp As New SmtpClient("smtp.miodominio.com", 25)

            smtp.Send(mail)

            lblMessage.Text = "Il messaggio è stato inviato."

        Catch ex As Exception

            lblMessage.Text = "Errore: " & ex.Message

        End Try

    End Sub

End Class

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

          
Dim mail As New MailMessage()
SmtpServer.Credentials = New _
Net.NetworkCredential("username@gmail.com", "password")
SmtpServer.Port = 25
SmtpServer.Host = "smtp.dominio.it"
mail = New MailMessage()
mail.From = New MailAddress("YOURusername@gmail.com")
mail.To.Add("TOADDRESS")
mail.Subject = "Test Mail"
mail.Body = "This is for testing SMTP"
SmtpServer.Send(mail)

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra