Imports
Public
MsgBox(
MyMailMessage.From =
MyMailMessage.To.Add(TxtTo.Text)
MyMailMessage.Subject =
MyMailMessage.Body = BodyText.Text
MyMailMessage.CC.Add(
MyMailMessage.Bcc.Add(
SMTPServer.Port = 587
SMTPServer.Credentials =
SMTPServer.EnableSsl =
MyMailMessage.Attachments.Add(oAttch)
SMTPServer.Send(MyMailMessage)
MessageBox.Show(ex.Message)
OpenFileDialog1.ShowDialog()
Attachment.Text = OpenFileDialog1.InitialDirectory
From.Text =
TxtTo.Text =
CC.Text =
BCC.Text =
Attachment.Text =
BodyText.Text =
Subject.Text =
End