Group: Forum Members
Posts: 2,
Visits: 15
|
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
|