Send Mail
Imports system.net.mail
Public Sub ErrorTracking(ByVal Userid As String, ByVal CompanyID As String, ByVal Page As String, ByVal ErrorMessage As String, ByRef objGoleadsError As GoleadsError)
Try
Dim sBodyText As String = ""
Dim oMail As New MailMessage()
oMail.From = New MailAddress("FromID")
oMail.To.Add(New MailAddress("ToID"))
oMail.To.Add(New MailAddress("ToID "))
oMail.Subject = "Subject"
sBodyText = "<body>"
sBodyText += "<Center><table>"
sBodyText += "<tr style='background-color:#dcdcdc;'>"
sBodyText += "<td>User ID</td>"
sBodyText += "<td>" + Userid + "</td>"
sBodyText += "</tr>"
sBodyText += "<tr>"
sBodyText += "<td>Company ID</td>"
sBodyText += "<td>" + CompanyID + "</td>"
sBodyText += "</tr>"
sBodyText += "<tr style='background-color:#dcdcdc;'>"
sBodyText += "<td>Error Message</td>"
sBodyText += "<td>" + ErrorMessage + "</td>"
sBodyText += "</tr>"
sBodyText += "<tr>"
sBodyText += "<td>Time of Error</td>"
sBodyText += "<td>" + DateTime.Now.ToString + "</td>"
sBodyText += "</tr>"
sBodyText += "<tr>"
sBodyText += "<td style='background-color:#dcdcdc;'>Page</td>"
sBodyText += "<td>" + Page + "</td>"
sBodyText += "</tr>"
sBodyText += "<tr>"
sBodyText += "<td></td>"
sBodyText += "<td></td>"
sBodyText += "</tr>"
sBodyText += "</table></Center>"
sBodyText += "</body>"
oMail.Body = sBodyText
oMail.IsBodyHtml = True
SendMail(oMail)
Catch ex As Exception
End Try
End Sub
Function SendMail(ByVal oMail As MailMessage) As Boolean
Dim ObjSMTP As New System.Net.Mail.SmtpClient
Dim ObjMessage As New System.Net.Mail.MailMessage
If System.Configuration.ConfigurationManager.AppSettings("ServerNo") = "8" Then
ObjSMTP.Host = "Host IP"
Else
ObjSMTP.Host = "Host IP"
End If
Dim Auth As New System.Net.NetworkCredential("UserName", "Password")
ObjSMTP.Credentials = Auth
ObjSMTP.Send(oMail)
SendMail = True
End Function
Imports System.Net.Mail
Imports System.Net.Mail.SmtpClient
Try
Dim sBodyHTML As String = ""
Dim mailMessage As New MailMessage()
mailMessage.From = New MailAddress("FromID")
mailMessage.To.Add(New MailAddress("ToID"))
mailMessage.Subject = "Goleads Backup Engine - Error"
sBodyHTML = "<BODY>"
sBodyHTML = sBodyHTML & "<TABLE border=1>"
- - -
- - -
sBodyHTML = sBodyHTML & "</TABLE>"
sBodyHTML = sBodyHTML & "</BODY>"
mailMessage.Body = sBodyHTML
mailMessage.IsBodyHtml = True
Dim oSmtpClient As SmtpClient
oSmtpClient = New SmtpClient
oSmtpClient.Host = "HostAddress"
oSmtpClient.Port = 25
Dim Auth As New System.Net.NetworkCredential("UserName", "Password")
oSmtpClient.Credentials = Auth
oSmtpClient.Send(mailMessage)
Catch ex As Exception
sMessage = ex.Message
End Try