Send Password by Email
Private Sub SendPasswordByEmail(ByVal emailAddress As String, ByVal password As String, ByVal Msg As String)
'Get the information needed to construct and send the email
Dim fromAddress As String = "Iron Speed Technical Support"
Dim bccAddress As String = “firstname.lastname@example.org”
Dim subject As String = "Your Password"
Dim content As String = "Here is your information to sign into the Iron Speed online technical support site." & vbCrLf & _
vbCrLf & _
"URL: " & "http://www.ironspeed.com/support" & vbCrLf & _
"User Name: " & emailAddress & vbCrLf & _
"Password: " & password & vbCrLf & _
Msg & vbCrLf & vbCrLf & _
"After you sign in, you can change your password by going to the My Account page." & vbCrLf & _
"Sincerely," & vbCrLf & "Iron Speed Technical Support."
'Construct the email
Dim email As New BaseClasses.Utils.MailSender()
'Send the email
Catch e As System.Exception