VB.NET 下使用.NET类库（非WEB中的mail）发送邮件

Imports System.Net.Mail Imports System.Net.Mime Imports System.Net Imports System.Text Imports System Public Class frmMail_send Friend remID As String Sub New() ' 此调用是 Windows 窗体设计器所必需的。 InitializeComponent() ' 在 InitializeComponent() 调用之后添加任何初始化。 SkinEngine1.SkinStream = New System.IO.MemoryStream(My.Resources.SL22_L) End Sub Private Sub frmMail_send_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load addinf() AddTreenod() End Sub Private Sub btninfset_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btninfset.Click If btninfset.Tag = 0 Then Pansetinf.Visible = True btninfset.Tag = 1 Else Pansetinf.Visible = False btninfset.Tag = 0 End If End Sub Private Sub btnaddfile_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnaddfile.Click Dim OP As New OpenFileDialog LVattach.SmallImageList = imgList_LVfile If OP.ShowDialog = Windows.Forms.DialogResult.OK Then Dim fileadr As String = OP.FileName Dim isexit As Boolean For Each item As ListViewItem In LVattach.Items Dim name As String = item.SubItems(0).Text Dim name1 As String = item.SubItems(1).Text If name1 = fileadr Then MsgBox("文件：" & vbCrLf & fileadr & vbCrLf & "已经被添加过了",MsgBoxStyle.Information,"提示") isexit = True Exit Sub End If Next If isexit = False Then Dim it As New ListViewItem it.Text = OP.SafeFileName it.Name = LVattach.Items.Count it.SubItems.Add(OP.FileName) it.ImageKey = it.Name Dim ico As Icon ico = ClassGETfileICO.GetSmallIcon(fileadr) imgList_LVfile.Images.Add(it.Tag,ico) LVattach.Items.Add(it) End If End If End Sub Sub addinf() Dim selstr As String = "select * from mail" Dim ds As New DataSet Dim mysql As New ClassSQL If mysql.SETconn Then ds = mysql.selectsql(selstr,"mail") Dim count As Int16 = ds.Tables(0).Rows.Count If count <= 0 Then MsgBox("您还没有完全设置您的帐号信息，请单击‘设置’按钮设置") Pansetinf.Visible = True Exit Sub End If With ds.Tables(0).Rows(0) mymailinf.mhost = .Item("mhost").ToString mymailinf.mloginname = .Item("mID").ToString mymailinf.mpassword = .Item("mpw").ToString If mymailinf.mhost = "" Or mymailinf.mloginname = "" Or mymailinf.mpassword = "" Then Pansetinf.Visible = True End If End With End If txthost.Text = mymailinf.mhost txtloginname.Text = mymailinf.mloginname txtpassword.Text = mymailinf.mpassword txtto.Text = Uinflist(Fid(remID)).umail & ";" txtfrom.Text = Uinflist(0).umail End Sub Private Sub AddTreenod() TV.ImageList = ImgList_TV For index = 0 To Uinflist.Count - 1 Dim nod As New TreeNode With Uinflist(index) nod.Text = .uname nod.Tag = .uID nod.ToolTipText = .umail Dim isexit As Boolean For i = 0 To ImgList_TV.Images.Keys.Count - 1 If .uID = ImgList_TV.Images.Keys(i) Then nod.ImageKey = .uID isexit = True End If Next If isexit = False Then ImgList_TV.Images.Add(.uID,.uimg) End If nod.ImageKey = .uID nod.SelectedImageKey = nod.ImageKey TV.Nodes.Add(nod) TV.ShowNodeToolTips = True End With Next End Sub Private Sub btndeleteAttacg_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btndeleteAttacg.Click If LVattach.SelectedItems.Count > 0 Then LVattach.Items.Remove(LVattach.SelectedItems(0)) End If End Sub Private Sub txtCC_GotFocus(ByVal sender As Object,ByVal e As System.EventArgs) Handles txtCC.GotFocus If txtCC.Text = "可以添加多个，请用分号;隔开" Then txtCC.Text = "" End If End Sub Private Sub txtCC_LostFocus(ByVal sender As Object,ByVal e As System.EventArgs) Handles txtCC.LostFocus If txtCC.Text = "" Then txtCC.Text = "可以添加多个，请用分号;隔开" End If End Sub Private Sub txtCC_TextChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles txtCC.TextChanged End Sub Private Sub txtBCC_GotFocus(ByVal sender As Object,ByVal e As System.EventArgs) Handles txtBCC.GotFocus If txtBCC.Text = "可以添加多个，请用分号;隔开" Then txtBCC.Text = "" End If End Sub Private Sub txtBCC_LostFocus(ByVal sender As Object,ByVal e As System.EventArgs) Handles txtBCC.LostFocus If txtBCC.Text = "" Then txtBCC.Text = "可以添加多个，请用分号;隔开" End If End Sub #Region "发送" Private Sub btnsend_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnsend.Click Dim th As New Threading.Thread(AddressOf send) frmPro = New frmProcesing frmPro.Show() message.Subject = txttitle.Text message.BodyEncoding = Encoding.UTF8 message.Body = txtbody.Text message.From = New MailAddress(txtfrom.Text,Uinflist(0).uname) message.To.Clear() If txtto.Text <> "" Then Dim toadr() As String = txtto.Text.Split(";") For i = 0 To toadr.Count - 2 message.To.Add(toadr(i)) Next End If ' 添加抄送() Try message.CC.Clear() message.Bcc.Clear() If txtBCC.Text <> "可以添加多个，请用分号;隔开" Then Dim bccadr() As String = txtBCC.Text.Split(";") For i = 0 To bccadr.Count - 1 message.Bcc.Add(bccadr(i)) Next End If If txtCC.Text <> "可以添加多个，请用分号;隔开" Then Dim ccadr() As String = txtCC.Text.Split(";") For i = 0 To ccadr.Count - 1 message.CC.Add(ccadr(i)) Next End If Catch ex As Exception MsgBox(ex.Message) Exit Sub End Try ' 添加附件() message.Attachments.Clear() For i = 0 To LVattach.Items.Count - 1 Dim fileadr As String = LVattach.Items(i).SubItems(1).Text Dim data As New Attachment(fileadr,MediaTypeNames.Application.Octet) ' 添加文件的相关信息() Dim disposition As ContentDisposition = data.ContentDisposition disposition.CreationDate = System.IO.File.GetCreationTime(fileadr) disposition.ModificationDate = System.IO.File.GetLastWriteTime(fileadr) disposition.ReadDate = System.IO.File.GetLastAccessTime(fileadr) message.Attachments.Add(data) 'data.Dispose() Next th.Start() End Sub Dim message As New MailMessage Dim frmPro As frmProcesing Sub send() Dim client As New SmtpClient(txthost.Text) client.Credentials = New NetworkCredential(txtloginname.Text,txtpassword.Text) '添加验证信息 Try client.Send(message) frmPro.sucess = True Catch ex As Exception MsgBox(ex.Message & "请确认您所填写的信息正确","邮件发送错误。") End Try End Sub #End Region Private Sub TV_AfterSelect(ByVal sender As System.Object,ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TV.AfterSelect If TV.SelectedNode.ToolTipText = "" Then Exit Sub End If Dim i As Int16 Dim MADR As String = TV.SelectedNode.ToolTipText.Trim Dim mailstrS As String = txtto.Text i = txtto.Text.IndexOf(MADR) If i = -1 Then txtto.Text &= TV.SelectedNode.ToolTipText & ";" End If End Sub Private Sub btnSetMailOK_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnSetMailOK.Click Dim upstr As String = "update mail set mhost='" & txthost.Text.Trim & "',mid='" & txtloginname.Text.Trim & "',mpw='" & txtpassword.Text.Trim & "'" Dim mysql As New ClassSQL If mysql.SETconn() Then If mysql.updatesql(upstr) Then Pansetinf.Visible = False mymailinf.mhost = txthost.Text.Trim mymailinf.mloginname = txtloginname.Text.Trim mymailinf.mpassword = txtpassword.Text.Trim End If End If End Sub End Class

窗体设计代码

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class frmMail_send Inherits System.Windows.Forms.Form 'Form 重写 Dispose，以清理组件列表。 <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Windows 窗体设计器所必需的 Private components As System.ComponentModel.IContainer '注意: 以下过程是 Windows 窗体设计器所必需的 '可以使用 Windows 窗体设计器修改它。 '不要使用代码编辑器修改它。 <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMail_send)) Me.labsend = New System.Windows.Forms.Label Me.txtfrom = New System.Windows.Forms.TextBox Me.labrecman = New System.Windows.Forms.Label Me.txtto = New System.Windows.Forms.TextBox Me.labtitle = New System.Windows.Forms.Label Me.txttitle = New System.Windows.Forms.TextBox Me.GroupBox1 = New System.Windows.Forms.GroupBox Me.btndeleteAttacg = New System.Windows.Forms.Button Me.LVattach = New System.Windows.Forms.ListView Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader Me.btnaddfile = New System.Windows.Forms.Button Me.Panel3 = New System.Windows.Forms.Panel Me.Panel4 = New System.Windows.Forms.Panel Me.Panel5 = New System.Windows.Forms.Panel Me.Pansetinf = New System.Windows.Forms.Panel Me.btnSetMailOK = New System.Windows.Forms.Button Me.txtloginname = New System.Windows.Forms.TextBox Me.txtpassword = New System.Windows.Forms.TextBox Me.txthost = New System.Windows.Forms.TextBox Me.Label3 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.txtbody = New System.Windows.Forms.TextBox Me.Label4 = New System.Windows.Forms.Label Me.txtCC = New System.Windows.Forms.TextBox Me.GroupBox2 = New System.Windows.Forms.GroupBox Me.TV = New System.Windows.Forms.TreeView Me.GroupBox3 = New System.Windows.Forms.GroupBox Me.Label5 = New System.Windows.Forms.Label Me.txtBCC = New System.Windows.Forms.TextBox Me.ImgList_TV = New System.Windows.Forms.ImageList(Me.components) Me.imgList_LVfile = New System.Windows.Forms.ImageList(Me.components) Me.Panel1 = New System.Windows.Forms.Panel Me.Button4 = New System.Windows.Forms.Button Me.btninfset = New System.Windows.Forms.Button Me.Button3 = New System.Windows.Forms.Button Me.Button2 = New System.Windows.Forms.Button Me.btnsend = New System.Windows.Forms.Button Me.SkinEngine1 = New Sunisoft.IrisSkin.SkinEngine(CType(Me,System.ComponentModel.Component)) Me.GroupBox1.SuspendLayout() Me.Pansetinf.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.GroupBox3.SuspendLayout() Me.Panel1.SuspendLayout() Me.SuspendLayout() ' 'labsend ' Me.labsend.AutoSize = True Me.labsend.BackColor = System.Drawing.Color.Transparent Me.labsend.Location = New System.Drawing.Point(31,105) Me.labsend.Name = "labsend" Me.labsend.Size = New System.Drawing.Size(47,12) Me.labsend.TabIndex = 1 Me.labsend.Text = "发件人:" ' 'txtfrom ' Me.txtfrom.Location = New System.Drawing.Point(93,102) Me.txtfrom.Name = "txtfrom" Me.txtfrom.Size = New System.Drawing.Size(266,21) Me.txtfrom.TabIndex = 2 ' 'labrecman ' Me.labrecman.AutoSize = True Me.labrecman.BackColor = System.Drawing.Color.Transparent Me.labrecman.Location = New System.Drawing.Point(31,132) Me.labrecman.Name = "labrecman" Me.labrecman.Size = New System.Drawing.Size(47,12) Me.labrecman.TabIndex = 1 Me.labrecman.Text = "收件人:" ' 'txtto ' Me.txtto.Location = New System.Drawing.Point(93,129) Me.txtto.Name = "txtto" Me.txtto.Size = New System.Drawing.Size(372,21) Me.txtto.TabIndex = 2 ' 'labtitle ' Me.labtitle.AutoSize = True Me.labtitle.BackColor = System.Drawing.Color.Transparent Me.labtitle.Location = New System.Drawing.Point(31,231) Me.labtitle.Name = "labtitle" Me.labtitle.Size = New System.Drawing.Size(35,12) Me.labtitle.TabIndex = 1 Me.labtitle.Text = "主题:" ' 'txttitle ' Me.txttitle.Location = New System.Drawing.Point(93,228) Me.txttitle.Name = "txttitle" Me.txttitle.Size = New System.Drawing.Size(372,21) Me.txttitle.TabIndex = 2 ' 'GroupBox1 ' Me.GroupBox1.BackColor = System.Drawing.Color.Transparent Me.GroupBox1.Controls.Add(Me.btndeleteAttacg) Me.GroupBox1.Controls.Add(Me.LVattach) Me.GroupBox1.Controls.Add(Me.btnaddfile) Me.GroupBox1.Location = New System.Drawing.Point(32,255) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(542,117) Me.GroupBox1.TabIndex = 3 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "附件" ' 'btndeleteAttacg ' Me.btndeleteAttacg.Location = New System.Drawing.Point(463,81) Me.btndeleteAttacg.Name = "btndeleteAttacg" Me.btndeleteAttacg.Size = New System.Drawing.Size(74,30) Me.btndeleteAttacg.TabIndex = 2 Me.btndeleteAttacg.Text = "删除" Me.btndeleteAttacg.UseVisualStyleBackColor = True ' 'LVattach ' Me.LVattach.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1,Me.ColumnHeader2}) Me.LVattach.Location = New System.Drawing.Point(23,14) Me.LVattach.Name = "LVattach" Me.LVattach.Size = New System.Drawing.Size(432,97) Me.LVattach.TabIndex = 1 Me.LVattach.UseCompatibleStateImageBehavior = False Me.LVattach.View = System.Windows.Forms.View.Details ' 'ColumnHeader1 ' Me.ColumnHeader1.Text = "文件名" Me.ColumnHeader1.Width = 81 ' 'ColumnHeader2 ' Me.ColumnHeader2.Text = "路径" Me.ColumnHeader2.Width = 105 ' 'btnaddfile ' Me.btnaddfile.Location = New System.Drawing.Point(463,36) Me.btnaddfile.Name = "btnaddfile" Me.btnaddfile.Size = New System.Drawing.Size(75,30) Me.btnaddfile.TabIndex = 0 Me.btnaddfile.Text = "添加附件" Me.btnaddfile.UseVisualStyleBackColor = True ' 'Panel3 ' Me.Panel3.BackColor = System.Drawing.Color.Black Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left Me.Panel3.Location = New System.Drawing.Point(0,0) Me.Panel3.Name = "Panel3" Me.Panel3.Size = New System.Drawing.Size(1,620) Me.Panel3.TabIndex = 6 ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.CornflowerBlue Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel4.Location = New System.Drawing.Point(1,610) Me.Panel4.Name = "Panel4" Me.Panel4.Size = New System.Drawing.Size(903,10) Me.Panel4.TabIndex = 7 ' 'Panel5 ' Me.Panel5.BackColor = System.Drawing.Color.Black Me.Panel5.Dock = System.Windows.Forms.DockStyle.Right Me.Panel5.Location = New System.Drawing.Point(903,0) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1,610) Me.Panel5.TabIndex = 8 ' 'Pansetinf ' Me.Pansetinf.BackColor = System.Drawing.Color.Transparent Me.Pansetinf.Controls.Add(Me.btnSetMailOK) Me.Pansetinf.Controls.Add(Me.txtloginname) Me.Pansetinf.Controls.Add(Me.txtpassword) Me.Pansetinf.Controls.Add(Me.txthost) Me.Pansetinf.Controls.Add(Me.Label3) Me.Pansetinf.Controls.Add(Me.Label2) Me.Pansetinf.Controls.Add(Me.Label1) Me.Pansetinf.Location = New System.Drawing.Point(471,105) Me.Pansetinf.Name = "Pansetinf" Me.Pansetinf.Size = New System.Drawing.Size(210,144) Me.Pansetinf.TabIndex = 1 Me.Pansetinf.Visible = False ' 'btnSetMailOK ' Me.btnSetMailOK.Location = New System.Drawing.Point(112,115) Me.btnSetMailOK.Name = "btnSetMailOK" Me.btnSetMailOK.Size = New System.Drawing.Size(75,23) Me.btnSetMailOK.TabIndex = 12 Me.btnSetMailOK.Text = "确定" Me.btnSetMailOK.UseVisualStyleBackColor = True ' 'txtloginname ' Me.txtloginname.Location = New System.Drawing.Point(63,13) Me.txtloginname.Name = "txtloginname" Me.txtloginname.Size = New System.Drawing.Size(100,21) Me.txtloginname.TabIndex = 2 ' 'txtpassword ' Me.txtpassword.Location = New System.Drawing.Point(64,40) Me.txtpassword.Name = "txtpassword" Me.txtpassword.Size = New System.Drawing.Size(99,21) Me.txtpassword.TabIndex = 1 ' 'txthost ' Me.txthost.Location = New System.Drawing.Point(19,83) Me.txthost.Name = "txthost" Me.txthost.Size = New System.Drawing.Size(149,21) Me.txthost.TabIndex = 11 ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(12,40) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(35,12) Me.Label3.TabIndex = 0 Me.Label3.Text = "密码:" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(12,64) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(35,12) Me.Label2.TabIndex = 0 Me.Label2.Text = "SMTP:" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(12,19) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(47,12) Me.Label1.TabIndex = 0 Me.Label1.Text = "用户名:" ' 'txtbody ' Me.txtbody.Dock = System.Windows.Forms.DockStyle.Fill Me.txtbody.Location = New System.Drawing.Point(3,17) Me.txtbody.Multiline = True Me.txtbody.Name = "txtbody" Me.txtbody.Size = New System.Drawing.Size(533,200) Me.txtbody.TabIndex = 10 ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.BackColor = System.Drawing.Color.Transparent Me.Label4.Location = New System.Drawing.Point(31,166) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(35,12) Me.Label4.TabIndex = 1 Me.Label4.Text = "抄送:" ' 'txtCC ' Me.txtCC.Location = New System.Drawing.Point(93,163) Me.txtCC.Name = "txtCC" Me.txtCC.Size = New System.Drawing.Size(372,21) Me.txtCC.TabIndex = 2 Me.txtCC.Text = "可以添加多个，请用分号;隔开" ' 'GroupBox2 ' Me.GroupBox2.BackColor = System.Drawing.Color.Transparent Me.GroupBox2.Controls.Add(Me.TV) Me.GroupBox2.Location = New System.Drawing.Point(719,99) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(173,502) Me.GroupBox2.TabIndex = 13 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "联系人列表" ' 'TV ' Me.TV.Dock = System.Windows.Forms.DockStyle.Fill Me.TV.Location = New System.Drawing.Point(3,17) Me.TV.Name = "TV" Me.TV.Size = New System.Drawing.Size(167,482) Me.TV.TabIndex = 0 ' 'GroupBox3 ' Me.GroupBox3.BackColor = System.Drawing.Color.Transparent Me.GroupBox3.Controls.Add(Me.txtbody) Me.GroupBox3.Location = New System.Drawing.Point(33,384) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(539,220) Me.GroupBox3.TabIndex = 14 Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "内容：" ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.BackColor = System.Drawing.Color.Transparent Me.Label5.Location = New System.Drawing.Point(31,195) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(35,12) Me.Label5.TabIndex = 1 Me.Label5.Text = "密送:" ' 'txtBCC ' Me.txtBCC.Location = New System.Drawing.Point(93,192) Me.txtBCC.Name = "txtBCC" Me.txtBCC.Size = New System.Drawing.Size(372,21) Me.txtBCC.TabIndex = 2 Me.txtBCC.Text = "可以添加多个，请用分号;隔开" ' 'ImgList_TV ' Me.ImgList_TV.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit Me.ImgList_TV.ImageSize = New System.Drawing.Size(16,16) Me.ImgList_TV.TransparentColor = System.Drawing.Color.Transparent ' 'imgList_LVfile ' Me.imgList_LVfile.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit Me.imgList_LVfile.ImageSize = New System.Drawing.Size(16,16) Me.imgList_LVfile.TransparentColor = System.Drawing.Color.Transparent ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.SystemColors.InactiveCaptionText Me.Panel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.Panel1.Controls.Add(Me.Button4) Me.Panel1.Controls.Add(Me.btninfset) Me.Panel1.Controls.Add(Me.Button3) Me.Panel1.Controls.Add(Me.Button2) Me.Panel1.Controls.Add(Me.btnsend) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Location = New System.Drawing.Point(1,0) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(902,72) Me.Panel1.TabIndex = 9 ' 'Button4 ' Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.Font = New System.Drawing.Font("宋体",14.25!,System.Drawing.FontStyle.Bold,System.Drawing.GraphicsUnit.Point,CType(134,Byte)) Me.Button4.ForeColor = System.Drawing.SystemColors.ActiveCaption Me.Button4.Image = Global.DIYclient.My.Resources.Resources.gif_48_016 Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button4.Location = New System.Drawing.Point(399,8) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(107,55) Me.Button4.TabIndex = 0 Me.Button4.Text = "退出" Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button4.UseVisualStyleBackColor = True ' 'btninfset ' Me.btninfset.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btninfset.Font = New System.Drawing.Font("宋体",Byte)) Me.btninfset.ForeColor = System.Drawing.SystemColors.ActiveCaption Me.btninfset.Image = Global.DIYclient.My.Resources.Resources.SETTing Me.btninfset.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btninfset.Location = New System.Drawing.Point(526,8) Me.btninfset.Name = "btninfset" Me.btninfset.Size = New System.Drawing.Size(107,55) Me.btninfset.TabIndex = 0 Me.btninfset.Tag = "0" Me.btninfset.Text = "设置" Me.btninfset.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btninfset.UseVisualStyleBackColor = True ' 'Button3 ' Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.Font = New System.Drawing.Font("宋体",Byte)) Me.Button3.ForeColor = System.Drawing.SystemColors.ActiveCaption Me.Button3.Image = Global.DIYclient.My.Resources.Resources.gif_47_084 Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button3.Location = New System.Drawing.Point(276,8) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(107,55) Me.Button3.TabIndex = 0 Me.Button3.Text = "清空" Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button3.UseVisualStyleBackColor = True ' 'Button2 ' Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.Font = New System.Drawing.Font("宋体",Byte)) Me.Button2.ForeColor = System.Drawing.SystemColors.ActiveCaption Me.Button2.Image = Global.DIYclient.My.Resources.Resources.new1 Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button2.Location = New System.Drawing.Point(163,8) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(107,55) Me.Button2.TabIndex = 0 Me.Button2.Text = "新建" Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button2.UseVisualStyleBackColor = True ' 'btnsend ' Me.btnsend.BackColor = System.Drawing.Color.Transparent Me.btnsend.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnsend.Font = New System.Drawing.Font("宋体",Byte)) Me.btnsend.ForeColor = System.Drawing.SystemColors.ActiveCaption Me.btnsend.Image = CType(resources.GetObject("btnsend.Image"),System.Drawing.Image) Me.btnsend.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnsend.Location = New System.Drawing.Point(31,8) Me.btnsend.Name = "btnsend" Me.btnsend.Size = New System.Drawing.Size(107,55) Me.btnsend.TabIndex = 0 Me.btnsend.Text = "发送" Me.btnsend.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnsend.UseVisualStyleBackColor = False ' 'SkinEngine1 ' Me.SkinEngine1.SerialNumber = "" Me.SkinEngine1.SkinFile = Nothing ' 'frmMail_send ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!,12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.AliceBlue Me.ClientSize = New System.Drawing.Size(904,620) Me.Controls.Add(Me.GroupBox3) Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.Pansetinf) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Panel5) Me.Controls.Add(Me.Panel4) Me.Controls.Add(Me.Panel3) Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.txttitle) Me.Controls.Add(Me.labtitle) Me.Controls.Add(Me.txtBCC) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.txtCC) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.txtto) Me.Controls.Add(Me.labrecman) Me.Controls.Add(Me.txtfrom) Me.Controls.Add(Me.labsend) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon) Me.Name = "frmMail_send" Me.Text = "frmMail_send" Me.GroupBox1.ResumeLayout(False) Me.Pansetinf.ResumeLayout(False) Me.Pansetinf.PerformLayout() Me.GroupBox2.ResumeLayout(False) Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.PerformLayout() Me.Panel1.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents labsend As System.Windows.Forms.Label Friend WithEvents txtfrom As System.Windows.Forms.TextBox Friend WithEvents labrecman As System.Windows.Forms.Label Friend WithEvents txtto As System.Windows.Forms.TextBox Friend WithEvents labtitle As System.Windows.Forms.Label Friend WithEvents txttitle As System.Windows.Forms.TextBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Public WithEvents btnaddfile As System.Windows.Forms.Button Friend WithEvents Panel3 As System.Windows.Forms.Panel Friend WithEvents Panel4 As System.Windows.Forms.Panel Friend WithEvents Panel5 As System.Windows.Forms.Panel Friend WithEvents txtbody As System.Windows.Forms.TextBox Friend WithEvents Pansetinf As System.Windows.Forms.Panel Friend WithEvents txtloginname As System.Windows.Forms.TextBox Friend WithEvents txtpassword As System.Windows.Forms.TextBox Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents txthost As System.Windows.Forms.TextBox Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents txtCC As System.Windows.Forms.TextBox Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents LVattach As System.Windows.Forms.ListView Friend WithEvents btndeleteAttacg As System.Windows.Forms.Button Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents txtBCC As System.Windows.Forms.TextBox Friend WithEvents TV As System.Windows.Forms.TreeView Friend WithEvents ImgList_TV As System.Windows.Forms.ImageList Friend WithEvents btnSetMailOK As System.Windows.Forms.Button Friend WithEvents btnsend As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents btninfset As System.Windows.Forms.Button Friend WithEvents Button4 As System.Windows.Forms.Button Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader Friend WithEvents imgList_LVfile As System.Windows.Forms.ImageList Friend WithEvents SkinEngine1 As Sunisoft.IrisSkin.SkinEngine End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!