Private Sub SendEmail( _
ByVal emailAddress As String, _
ByVal name As String)
Me.Cursor = Cursors.WaitCursor
Dim strMailBody As String = ScreenScrapeHtml(CStr(cbSelectEmail.Text))
strMailBody = strMailBody.Replace("SoNso", name)
Dim mail As New System.Net.Mail.MailMessage()
mail.From = New System.Net.Mail.MailAddress(my.Settings.EmailAccount)
mail.To.Add(emailAddress)
mail.IsBodyHtml = True
mail.Subject = CStr(cbEmailSubject.Text)
mail.Body = strMailBody
Dim smtp As New System.Net.Mail.SmtpClient(CStr(My.Settings.SMPT))
smtp.Port = My.Settings.Port
If My.Settings.UseAuthentication = True Then
smtp.Credentials = New System.Net.NetworkCredential( _
My.Settings.UserName, My.Settings.Password)
End If
If My.Settings.SSL = True Then
smtp.EnableSsl = True
End If
smtp.Send(mail)
Me.Cursor = Cursors.Arrow
End Sub