Expand|Select|Wrap|Line Numbers
- Imports System.Web.Mail
- Partial Class _Default
- Inherits System.Web.UI.Page
- Protected Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.Click
- Dim emailBody As String = txtBody.Text
- Dim emailMessage As New Mail.MailMessage()
- emailMessage.BodyFormat = Mail.MailFormat.Text
- emailMessage.To = txtTo.Text
- emailMessage.From = "mturner64@student.sosu.edu"
- emailMessage.Subject = txtSubject.Text
- emailMessage.Body = txtBody.Text
- Label1.Text = "Your message has been sent!"
- emailMessage.Attachments.Add(New MailAttachment(AttachmentFile.PostedFile.InputStream, AttachmentFile.FileName))
- SmtpMail.SmtpServer = "webmail.student.sosu.edu"
- SmtpMail.Send(emailMessage)
- End Sub