function to send email

Public Function SendEmail(ByVal pToEmail As String, ByVal pPassword As String, ByVal pSubject As String, ByVal pBody As String) As Boolean

Dim mailMessage As New MailMessage() mailMessage.From = New MailAddress(“mail@site.com”)

mailMessage.To.Add(New MailAddress(pToEmail))

mailMessage.Subject = pSubject

mailMessage.Body = pBody

mailMessage.IsBodyHtml = True Dim client As New SmtpClient client.UseDefaultCredentials = False

client.Credentials = New System.Net.NetworkCredential(“mail@site.com”, pPassword)

client.Port = “25″

client.Host = “mail.digitise.com”

Try

client.Send(mailMessage)

Catch ex As Exception

Response.Write(ex)

End Try

End Function

Advertisement

Tags: , ,

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Connecting to %s


Follow

Get every new post delivered to your Inbox.