Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub emailTeacher()
- Try
- Dim Server As New SmtpClient
- Dim email As New MailMessage()
- Server.UseDefaultCredentials = False
- Server.Port = 465
- Server.EnableSsl = True
- Server.Host = "smpt.gmail.com"
- email = New MailMessage()
- email.From = New MailAddress(fromEmail)
- email.To.Add(emailAddress)
- email.Subject = subjectEmail
- email.IsBodyHtml = False
- email.Body = emailBody
- Server.Send(email)
- MsgBox("Mail Sent")
- Catch error_t As Exception
- MsgBox(error_t.ToString)
- End Try
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement