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("宋體", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, 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("宋體", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, 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("宋體", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, 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("宋體", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, 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
![十大酷炫屌的圖像懸停特效[圖]](data:image/gif;base64,R0lGODlhAQABAIAAAP///wAAACwAAAAAAQABAAACAkQBADs=)