Public Class Mailatest
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    'Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    '    Dim mailer As Object
    '    Mailer = Server.CreateObject("SMTPsvg.Mailer")
    '    mailer.FromName = "BWP Bülach"
    '    mailer.FromAddress = Me.txtfrom.Text
    '    mailer.RemoteHost = Me.txtmailserver.Text
    '    mailer.AddRecipient(Me.txtto.Text)
    '    mailer.Subject = Me.txtSubject.Text
    '    mailer.BodyText = Me.txtbody
    '    If Mailer.SendMail Then
    '        Response.Write("Mail sent...")
    '    Else
    '        Response.Write("Mail send failure. Error was " & Mailer.Response)
    '    End If

    'End Sub

    'Protected Sub btnclick(sender As Object, e As EventArgs) Handles Button1.Click

    'End Sub

End Class