Visual Basic 2008 - Advanced Email Sender скачать в хорошем качестве

Visual Basic 2008 - Advanced Email Sender

please subscribe!!!!!!!!! Code : Button 1 : ProgressBar1.Value = 5 Dim message As System.Net.Mail.MailMessage ProgressBar1.Value = 10 Dim smtp As New System.Net.Mail.SmtpClient(TextBox3.Text, 587) ProgressBar1.Value = 24 message = New System.Net.Mail.MailMessage(TextBox1.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text) ProgressBar1.Value = 43 smtp.EnableSsl = True ProgressBar1.Value = 59 smtp.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text) ProgressBar1.Value = 70 ProgressBar1.Value = 80 Try smtp.Send(message) ProgressBar1.Value = 100 MessageBox.Show("Message Sent Successfully", " Sent", MessageBoxButtons.OK, MessageBoxIcon.Information) ProgressBar1.Value = 0 Catch exc As Net.Mail.SmtpException MessageBox.Show("An Error Occured Please try again", " Error", MessageBoxButtons.OK, MessageBoxIcon.Error) MessageBox.Show("Try Entering your password again or maybe your not connected to the internet", " Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try If CheckBox1.Checked = True Then My.Settings.username = TextBox1.Text My.Settings.Save() My.Settings.Reload() End If If CheckBox2.Checked = True Then My.Settings.password = TextBox2.Text My.Settings.Save() My.Settings.Reload() End If form 1 : TextBox1.Text = My.Settings.username TextBox2.Text = My.Settings.password Forget me : My.Settings.password = "" My.Settings.username = "" My.Settings.Save() My.Settings.Reload() TextBox1.Text = "" TextBox2.Text = "" Subscribe