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