' Sub to send the email(s)

Private Sub SendEmail( _
ByVal emailAddress As String, _
ByVal name As String)

' start showing wait cursor while email(s) are being sent

Me.Cursor = Cursors.WaitCursor
'scrape site and incert strRecName

Dim strMailBody As String = ScreenScrapeHtml(CStr(cbSelectEmail.Text))
strMailBody = strMailBody.Replace("SoNso", name)
'create the mail message

Dim mail As New System.Net.Mail.MailMessage()
'set the addresses

mail.From = New System.Net.Mail.MailAddress(my.Settings.EmailAccount)
mail.To.Add(emailAddress)
'set the content

mail.IsBodyHtml = True
mail.Subject = CStr(cbEmailSubject.Text)
mail.Body = strMailBody
'send the message(s)

Dim smtp As New System.Net.Mail.SmtpClient(CStr(My.Settings.SMPT))
'Set the port number to use

smtp.Port = My.Settings.Port
'Set credentials if checked

If My.Settings.UseAuthentication = True Then
smtp.Credentials = New System.Net.NetworkCredential( _
My.Settings.UserName, My.Settings.Password)
End If
'enable ssl if checked

If My.Settings.SSL = True Then
smtp.EnableSsl = True
End If
' send 

smtp.Send(mail)
' Stop wait cursor

Me.Cursor = Cursors.Arrow
End Sub