Imports System.Net.Mail
Partial Class Contact
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(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
Public Sub sendEmail(ByVal EmailAddress As String, ByVal Subject As String, ByVal EmailBody As String, ByVal FromAddress As String)
Dim Message As New MailMessage(FromAddress, EmailAddress, Subject, EmailBody)
Dim smtp As New SmtpClient("127.0.0.1")
Dim NetworkCredentials As New System.Net.NetworkCredential
NetworkCredentials.UserName = "UserName"
NetworkCredentials.Password = "Password"
smtp.Credentials = NetworkCredentials
smtp.Send(Message)
End Sub
End Class