[code=vbnet]
<summary>
Sends an mail message
</summary>
<param name="from">Sen der address</param>
<param name="recepient ">Recepient address</param>
<param name="subject"> Subject of mail message</param>
Public Shared Sub SendMailMessage (ByVal from As String, ByVal recepient As String, ByVal subject As String)
Dim mMailMessage As New MailMessage()
mMailMessage.Fr om = New MailAddress(fro m)
mMailMessage.To .Add(New MailAddress(rec epient))
mMailMessage.Su bject = subject
mMailMessage.Bo dy = "Hai"
mMailMessage.Is BodyHtml = True
mMailMessage.Pr iority = MailPriority.No rmal
Dim mSmtpClient As New SmtpClient("Gur 436smail1.inter globetechnologi es.copm")
mSmtpClient.Sen d(mMailMessage)
End Sub
<summary>
</summary>
<param name="sender"></param>
<param name="e"></param>
<remarks></remarks>
Protected Sub BtnSubmit_Click (ByVal sender As Object, ByVal e As System.Web.UI.I mageClickEventA rgs) Handles BtnSubmit.Click
Try
objEmployee.fnE mpPersonelInfor mationUpdate()
Dim strSubject As String = "Username and Password"
SendMailMessage (Me.txtOMailID1 .Text, Me.txtOMailID2. Text, strSubject)
Catch ex As Exception
Throw ex
End Try 'End of try catch block
End Sub 'End of BtnSubmit_Click[/code]
<summary>
Sends an mail message
</summary>
<param name="from">Sen der address</param>
<param name="recepient ">Recepient address</param>
<param name="subject"> Subject of mail message</param>
Public Shared Sub SendMailMessage (ByVal from As String, ByVal recepient As String, ByVal subject As String)
Dim mMailMessage As New MailMessage()
mMailMessage.Fr om = New MailAddress(fro m)
mMailMessage.To .Add(New MailAddress(rec epient))
mMailMessage.Su bject = subject
mMailMessage.Bo dy = "Hai"
mMailMessage.Is BodyHtml = True
mMailMessage.Pr iority = MailPriority.No rmal
Dim mSmtpClient As New SmtpClient("Gur 436smail1.inter globetechnologi es.copm")
mSmtpClient.Sen d(mMailMessage)
End Sub
<summary>
</summary>
<param name="sender"></param>
<param name="e"></param>
<remarks></remarks>
Protected Sub BtnSubmit_Click (ByVal sender As Object, ByVal e As System.Web.UI.I mageClickEventA rgs) Handles BtnSubmit.Click
Try
objEmployee.fnE mpPersonelInfor mationUpdate()
Dim strSubject As String = "Username and Password"
SendMailMessage (Me.txtOMailID1 .Text, Me.txtOMailID2. Text, strSubject)
Catch ex As Exception
Throw ex
End Try 'End of try catch block
End Sub 'End of BtnSubmit_Click[/code]
Comment