I can't easily want to edit a mail sender.
It has also encountered difficulties. Search for almost all the way online.
Finally found a solution to a complete solution, it should also be the sentence, there is no difficulty in the world, I am afraid that there are people.
It also shows that there is no perfect thing in the world!
I have installed micro-software IIS, I want to use its SMTP to send an email, but how can I don't have?
Under the helplessness, I have to use a way to introduce online, I hope to share with you.
The complete code is as follows:
Imports SystemImports System.drawingImports System.Collectionsimports System.ComponentModelimports System.Windows.FormSimports System.Webimports System.Web.mail
Public class form1 inherits system.windows.Forms.form
#Region "Windows Form Designer Generated Code"
Public Sub new () mybase.new ()
'This call is required for the Windows Form Designer. InitializeComponent ()
'Add any initialization after INITIALIZECOMPONENT ()
End Sub
'Form rewriting Dispose to clean up the list of components. Protected overloads overrides sub dispose (byval disposing as boolean) ing disponation kiln (Components Is Nothing) Then components.dispose () end if endiffs) End sub
'Windows Form Designer Supply Private Components as System.comPonentModel.icontainer
'Note: The following procedure is necessary to use the Windows Form Designer to modify this process using the Windows Form Designer. 'Don't modify it using the code editor.
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System. Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents MessageTextBox As System.Windows.Forms.RichTextBox Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog Friend WithEvents FromTextBox As System.Windows.Forms.TextBox Friend WithEvents ToTextBox As System.Windows.Forms.TextBox Friend WithEvents CCTextBox As System.Windows.Forms.TextBox Friend WithEvents BCCTextBox As System.Windows.Forms.TextBox Friend WithEvents SubjectTextBox As System.Windows .Forms.textbox friend withevents attachmentTextBox as system.windows.Forms.TextBox friend Withevents Browsebutton as system.windows.f orms.Button Friend WithEvents SendButton As System.Windows.Forms.Button
New System.Windows.Forms.OpenFileDialog Me.BrowseButton = New System.Windows.Forms.Button Me.FromTextBox = New System.Windows.Forms.TextBox Me.ToTextBox = New System.Windows.Forms.TextBox Me.CCTextBox = New System .Windows.Forms.TextBox Me.BCCTextBox = New System.Windows.Forms.TextBox Me.SubjectTextBox = New System.Windows.Forms.TextBox Me.AttachmentTextBox = New System.Windows.Forms.TextBox Me.SuspendLayout () '' Label1 'Me.label1.autosize = true me.label1.Location = new system.drawing.point (32, 8) me.label1.name = "label1" me.label1.size = new system.drawing.size (54, 17 ) Me.Label1.tabindex = 0 me.label1.text = "Sender:" '' label2 'me.label2.autosize = true me.label2.location = new system.drawing.point (32, 48) Me.Label2 .Name = "label2" me.label2.size = new system.drawing.size (54, 17) me.label2.tabindex = 1 me .Label2.text = "Recident:" '' Label3 'me.label3.autosize = true me.label3.location = new system.drawing.point (32, 88) me.label3.name = "label3" me.label3 .Size = new system.drawing.size (42, 17) me.label3.tabindex = 2 me.label3.text = "Cc:" '' Label4 'me.label4.autosize = true me.label4.location = New System.drawing.point (32, 128) me.label4.name = "label4" me.label4.size =
New system.drawing.size (42, 17) me.label4.tabindex = 3 me.label4.text = "Delivery:" 'Label5' me.label5.Autosize = true me.label5.location = new system.drawing .Point (32, 168) me.label5.name = "label5" me.label5.size = new system.drawing.size (42, 17) me.label5.tabINDEX = 4 me.label5.text = "topic:" '' Label6 'me.label6.autosize = true me.label6.location = new system.drawing.point (32, 208) me.label6.name = "label6" me.label6.size = new system.drawing.size 42, 17) Me.Label6.TabINDEX = 5 me.label6.text = "Accessories:" '' 'MesextBox' me.MessageTextBox.AcceptStab = true me.MessageTextBox.location = new system.drawing.point (32, 240) ME .MessageTextBox.Name = "MessagetextBox" me.MessageTextBox.size = new system.drawing.size (384, 160) me.MessageTextBox.TabINDEX = 6 me.MessageTextBox.text = "" 'Sendbutton' me.sendbutton.location = new system.drawing.point (72, 416) me.sendbutton.name = "sendbutton" me.sendbutton.size = new system.drawing.size (88, 32) me.sendbutton. TabINDEX = 7 me.sendbutton.text = "Send Mail" '' Button2 'Me.Button2.Location = New System.drawing.Point (248, 416) Me.Button2.name = "Button2" me.button2.size =
New system.drawing.size (88, 32) me.button2.tabindex = 8 me.button2.text = "Exit program" '' BrowseButton 'me.browsebutton.location = new system.drawing.point (328, 192) ME .BrowseButton.Name = "BrowseButton" Me.BrowseButton.Size = New System.Drawing.Size (88, 32) Me.BrowseButton.TabIndex = 9 Me.BrowseButton.Text = "file browser" '' FromTextBox 'Me.FromTextBox. Location = New System.Drawing.Point (80, 8) Me.FromTextBox.Name = "FromTextBox" Me.FromTextBox.Size = New System.Drawing.Size (296, 21) Me.FromTextBox.TabIndex = 10 Me.FromTextBox. TEXT = "" '' TotextBox 'me.totextbox.location = new system.drawing.point (80, 40) me.totextbox.name = "TotextBox" me.totextbox.size = new system.drawing.size (296, 21 ) Me.TotextBox.tabindex = 11 me.totextbox.text = "" 'ccTextBox' me.cctextbox.location = new system. Drawing.point (80, 80) me.cctextbox.name = "ccTextBox" me.cctextbox.size = new system.drawing.size (296, 21) me.cctextbox.tabindex = 12 me.cctextbox.text = "" " 'BCCTextBox' Me.BCCTextBox.Location = New System.Drawing.Point (80, 120) Me.BCCTextBox.Name = "BCCTextBox" Me.BCCTextBox.Size = New System.Drawing.Size (296, 21) Me.BCCTextBox. TabINDEX = 13 me.bcctextbox.text = "" ''
SubjectTextBox 'Me.SubjectTextBox.Location = New System.Drawing.Point (80, 160) Me.SubjectTextBox.Name = "SubjectTextBox" Me.SubjectTextBox.Size = New System.Drawing.Size (296, 21) Me.SubjectTextBox.TabIndex = 14 Me.SubjectTextBox.Text = "" '' AttachmentTextBox 'Me.AttachmentTextBox.Location = New System.Drawing.Point (80, 200) Me.AttachmentTextBox.Name = "AttachmentTextBox" Me.AttachmentTextBox.ReadOnly = True Me.AttachmentTextBox .Size = new system.drawing.size (176, 21) me.attachmentTextBox.tabindex = 15 me.attachmentTextBox.text = "" 'Form1' me.doscalebasesize = new system.drawing.size (6, 14) me. ClientSize = New System.Drawing.Size (440, 461) Me.Controls.Add (Me.AttachmentTextBox) Me.Controls.Add (Me.SubjectTextBox) Me.Controls.Add (Me.BCCTextBox) Me.Controls.Add (Me .CcTextBox) me.controls.add (me.totextbox) Me.Controls.add (Me.FromTextBox) Me.Controls.add (me.button) me.controls.add (me.sendbutton) me.controls.add (me.MessageTextbox) Me.controls.add (me.label6) me.controls.add (me.label5) me.controls.add (me.label4) me.controls.add (me.label3) Me.Controls.add (me.label2) Me.controls.add (me.label1) me.name = "form1" me.text = "Send Mail" me.ResumeLayout (false) End Sub
#End region
Private Sub BrowseButton_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowseButton.Click If OpenFileDialog1.ShowDialog () = DialogResult.OK Then AttachmentTextBox.Text = OpenFileDialog1.FileName End If End Sub
Private subsenetton_click (byval e as system.EventArgs) Handles sendbutton.click if (me.fromtextbox.text = ") The msgbox (" The sender's address is not empty! ", MsgboxStyle. Exclamation, "Mail Send Program" EXIT SUB End IF (Me.TotextBox.Text = ") THEN MSGBOX (" Recipient's address can not be empty! ", MSGBoxStyle.exclamation," Mail Send Program "EXIT SUB End if if (me.subjecttextbox.text = ") THEN MSGBOX (" The Topics cannot be empty! ", MsgboxStyle.exclamation," Mail Sender ") EXIT SUB End if if (me.MessageTextBox.Text =" ") THEN MsgBox ( "Mail can not be empty!", MsgBoxStyle.Exclamation, "mailer") Exit Sub End If Dim aMessage as New MailMessage aMessage.From = FromTextBox.Text aMessage.To = ToTextBox.Text aMessage.Cc = CCTextBox. Text amessage.bcc = bcctextBox.text amessage.subject = SubjectTextBox.text amessage.body = messagetextBox.text if attachmentTextBox.Text.l ength> 0 Then aMessage.Attachments.Add (New MailAttachment (AttachmentTextBox.Text, MailEncoding.Base64)) End If SmtpMail.SmtpServer = "smtp.163.com" aMessage.Fields.Add ( "http://schemas.microsoft. COM / CDO / Configuration / SMTPAUTHENTICATE "," 1 ") '// Basic Authentication Amessage.fields.add (" http://schemas.microsoft.com/cdo/configuration/sendusername "," nmanszx ")' // username AMessage.fields.add ("http://schemas.microsoft.com/cdo/configuration/sendpassword", "123456"
) '// password try smtpmail.send ("mail delivery failed." & vbcrf & err.description & "Please check if the sender address or the recipient address is correct.", msgboxStyle.critical _, "Mail Transfer") EXIT SUB End Try MessageBox.show ("Mail Successfully Send to" & TotextBox.Text, "Mail Send Program" End Subprivate Sub Button2_Click (Byval E AS System.Object, ByVal E AS System.EventArgs) Handles Button2.Click Msgbox ("Thank you for this mail sending system!", MsgboxStyle.information, "Mail Send Program" Application.exit () End Subend Class
The shortcomings of the above code are that the sender can only fill in the 163 website users set. But the recipient is still not limited. It is a small small to ask.
