Imports System.Net.Mail

Partial Class systemnetmail
    Inherits System.Web.UI.Page

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

        ' Skapa nytt meddelande och ny SMTP-klient
        Dim mail As New MailMessage()
        Dim smtp As New SmtpClient("127.0.0.1")

        Try

            ' Adressat
            mail.From = New MailAddress("exempel@domän.se")
            mail.To.Add("mottagare@domän.se")

            ' Blind copy (kan tas bort om den ej behövs)
            mail.Bcc.Add("mottagare2@domän.se")

            ' Innehåll
            mail.Subject = "Ämne för meddelande"
            mail.Body = "Huvudmeddelande"
            mail.IsBodyHtml = True

            ' Information för SMTP-klienten (verifiering krävs)
            smtp.Host = "127.0.0.1"
            smtp.Credentials = New Net.NetworkCredential("exempel@domän.se", "lösenord")
            smtp.Port = 25
            smtp.Send(mail)

        Catch ex As Exception

        End Try

    End Sub
End Class