Imports
SystemImports
System.DataImports
System.Net.MailPublic
Class Form8Implements IDisposableDim an As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)If From.Text = "" Or TxtTo.Text = "" Or BodyText.Text = "" Or Subject.Text = "" ThenMsgBox(
"Please Fill All Fields")End IfDim MyMailMessage As New MailMessage()MyMailMessage.From =
New MailAddress("tmlife@stardocs.net")MyMailMessage.To.Add(TxtTo.Text)
MyMailMessage.Subject =
"From: " + From.Text + "To: " + TxtTo.Text + "Subject:" + Subject.TextMyMailMessage.Body = BodyText.Text
MyMailMessage.CC.Add(
"")MyMailMessage.Bcc.Add(
"")MyMailMessage.Subject =
""'Create the SMTPClient object and specify the SMTP Mail serverDim SMTPServer As SmtpClient = New SmtpClientSMTPServer.Port = 587
SMTPServer.Credentials =
New System.Net.NetworkCredential("tmlife", "TmLife123")SMTPServer.EnableSsl =
TrueIf TxtTo.Text = "" ThenElseDim oAttch As Attachment = New Attachment(Attachment.Text)MyMailMessage.Attachments.Add(oAttch)
End IfTrySMTPServer.Send(MyMailMessage)
MsgBox(
"Sent")Catch ex As SmtpExceptionMessageBox.Show(ex.Message)
End TryEnd SubPrivate Sub Attachments_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles Attachments.LinkClickedOpenFileDialog1.ShowDialog()
End SubPrivate Sub FolderBrowserDialog1_HelpRequest(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FolderBrowserDialog1.HelpRequestAttachment.Text = OpenFileDialog1.InitialDirectory
End SubPrivate Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOkAttachment.Text = OpenFileDialog1.InitialDirectory
End SubPrivate Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickFrom.Text =
""TxtTo.Text =
""CC.Text =
""BCC.Text =
""Attachment.Text =
""BodyText.Text =
""Subject.Text =
""End SubPrivate Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubEnd
Class