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() ' 此<a href="/tag/diaoyong/" target="_blank" class="keywords">调用</a>是 Windows 窗体设计器所必需的。 InitializeComponent() ' 在 InitializeComponent() <a href="/tag/diaoyong/" target="_blank" class="keywords">调用</a>之后<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>任何初始化。 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 Msg<a href="/tag/Box/" target="_blank" class="keywords">Box</a>("<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a>：" & vbCrLf & fileadr & vbCrLf & "已经被<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>过了",Msg<a href="/tag/Box/" target="_blank" class="keywords">Box</a>Style.Information,"<a href="/tag/tishi/" target="_blank" class="keywords">提示</a>") 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 <a href="/tag/MysqL/" target="_blank" class="keywords">MysqL</a> As New Class<a href="/tag/sql/" target="_blank" class="keywords">sql</a> If <a href="/tag/MysqL/" target="_blank" class="keywords">MysqL</a>.SETconn Then ds = <a href="/tag/MysqL/" target="_blank" class="keywords">MysqL</a>.select<a href="/tag/sql/" target="_blank" class="keywords">sql</a>(selstr,"mail") Dim count As Int16 = ds.Tables(0).Rows.Count If count <= 0 Then Msg<a href="/tag/Box/" target="_blank" class="keywords">Box</a>("您还没有完全设置您的帐号信息，请单击‘设置’按钮设置") 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 = "可以<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>多个，请用分号;隔开" 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 = "可以<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>多个，请用分号;隔开" 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 = "可以<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>多个，请用分号;隔开" 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 = "可以<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>多个，请用分号;隔开" 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 ' <a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>抄送() Try message.CC.Clear() message.Bcc.Clear() If txtBCC.Text <> "可以<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>多个，请用分号;隔开" 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 <> "可以<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>多个，请用分号;隔开" 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 Msg<a href="/tag/Box/" target="_blank" class="keywords">Box</a>(ex.Message) Exit Sub End Try ' <a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>附件() 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) ' <a href="/tag/tianjia/" target="_blank" class="keywords">添加</a><a href="/tag/wenjian/" target="_blank" class="keywords">文件</a>的相关信息() 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) '<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>验证信息 Try client.Send(message) frmPro.sucess = True Catch ex As Exception Msg<a href="/tag/Box/" target="_blank" class="keywords">Box</a>(ex.Message & "请确认您所填写的信息正确","<a href="/tag/youjian/" target="_blank" class="keywords">邮件</a>发送<a href="/tag/cuowu/" target="_blank" class="keywords">错误</a>。") 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 <a href="/tag/MysqL/" target="_blank" class="keywords">MysqL</a> As New Class<a href="/tag/sql/" target="_blank" class="keywords">sql</a> If <a href="/tag/MysqL/" target="_blank" class="keywords">MysqL</a>.SETconn() Then If <a href="/tag/MysqL/" target="_blank" class="keywords">MysqL</a>.update<a href="/tag/sql/" target="_blank" class="keywords">sql</a>(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 窗体设计器<a href="/tag/xiugai/" target="_blank" class="keywords">修改</a>它。 '不要使用<a href="/tag/daima/" target="_blank" class="keywords">代码</a>编辑器<a href="/tag/xiugai/" target="_blank" class="keywords">修改</a>它。 <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.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Me.labrecman = New System.Windows.Forms.Label Me.txtto = New System.Windows.Forms.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Me.labtitle = New System.Windows.Forms.Label Me.txttitle = New System.Windows.Forms.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1 = New System.Windows.Forms.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a> 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.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Me.txtpassword = New System.Windows.Forms.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Me.txthost = New System.Windows.Forms.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> 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.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Me.Label4 = New System.Windows.Forms.Label Me.txtCC = New System.Windows.Forms.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2 = New System.Windows.Forms.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Me.TV = New System.Windows.Forms.TreeView Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3 = New System.Windows.Forms.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Me.Label5 = New System.Windows.Forms.Label Me.txtBCC = New System.Windows.Forms.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> 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.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.SuspendLayout() Me.Pansetinf.SuspendLayout() Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.SuspendLayout() Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.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 = "<a href="/tag/zhuti/" target="_blank" class="keywords">主题</a>:" ' '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 ' 'Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1 ' Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.BackColor = System.Drawing.Color.Transparent Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.Controls.Add(Me.btndeleteAttacg) Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.Controls.Add(Me.LVattach) Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.Controls.Add(Me.btnaddfile) Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.Location = New System.Drawing.Point(32,255) Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.Name = "Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1" Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.Size = New System.Drawing.Size(542,117) Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.TabIndex = 3 Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.TabStop = False Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.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 = "<a href="/tag/shanchu/" target="_blank" class="keywords">删除</a>" 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 = "<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a>名" 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 = "<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>附件" 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 = "<a href="/tag/yonghuming/" target="_blank" class="keywords">用户名</a>:" ' '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 = "可以<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>多个，请用分号;隔开" ' 'Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2 ' Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.BackColor = System.Drawing.Color.Transparent Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.Controls.Add(Me.TV) Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.Location = New System.Drawing.Point(719,99) Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.Name = "Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2" Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.Size = New System.Drawing.Size(173,<a href="/tag/502/" target="_blank" class="keywords">502</a>) Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.TabIndex = 13 Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.TabStop = False Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.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 ' 'Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3 ' Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.BackColor = System.Drawing.Color.Transparent Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.Controls.Add(Me.txtbody) Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.Location = New System.Drawing.Point(33,384) Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.Name = "Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3" Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.Size = New System.Drawing.Size(539,220) Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.TabIndex = 14 Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.TabStop = False Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.Text = "<a href="/tag/neirong/" target="_blank" class="keywords">内容</a>：" ' '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 = "可以<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>多个，请用分号;隔开" ' '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 = "<a href="/tag/tuichu/" target="_blank" class="keywords">退出</a>" 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.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3) Me.Controls.Add(Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2) 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.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1) 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.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1.ResumeLayout(False) Me.Pansetinf.ResumeLayout(False) Me.Pansetinf.PerformLayout() Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2.ResumeLayout(False) Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.ResumeLayout(False) Me.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3.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.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Friend WithEvents labrecman As System.Windows.Forms.Label Friend WithEvents txtto As System.Windows.Forms.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Friend WithEvents labtitle As System.Windows.Forms.Label Friend WithEvents txttitle As System.Windows.Forms.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Friend WithEvents Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1 As System.Windows.Forms.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a> 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.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Friend WithEvents Pansetinf As System.Windows.Forms.Panel Friend WithEvents txtloginname As System.Windows.Forms.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Friend WithEvents txtpassword As System.Windows.Forms.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> 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.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents txtCC As System.Windows.Forms.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Friend WithEvents Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2 As System.Windows.Forms.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Friend WithEvents LVattach As System.Windows.Forms.ListView Friend WithEvents btndeleteAttacg As System.Windows.Forms.Button Friend WithEvents Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a>3 As System.Windows.Forms.Group<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents txtBCC As System.Windows.Forms.Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> 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