桌面邮件飞机源码——VB.NET网络编程简单实例

来源：互联网发布：switch case用法 java 编辑：程序博客网时间：2024/05/01 13:32

最近闲来无事，用VB.NET制作了一个快速发送邮件的小程序，关于界面的控件设计我就不再做过多的说明啦，关于VB.NET的新手来说，可以先学习一下控件的基本使用方法，然后对本代码进行修改和完善，希望大家都能改的愉快，改的开心，也希望大家给我提出意见或建议。

闲话少说，上代码：

Imports System.Net.MailImports System.Net.SocketsPublic Class Form1    '判断是否需要身份验证    Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged        If CheckBox1.Checked = True Then            txtName.Enabled = True            txtPassword.Enabled = True        Else            txtName.Enabled = False            txtPassword.Enabled = False        End If    End Sub    Private Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.Click        Dim mail As New MailMessage()        Try            mail.From = New MailAddress(txtFrom.Text.ToString.Trim) '设置发件人            mail.To.Add(txtTo.Text.ToString.Trim) '设置收件人        Catch ex As Exception            MsgBox(ex.Message, MsgBoxStyle.Critical, "貌似您的邮件没有发出去，您在试一下吧~如果还是不行，我们表示抱歉，我们将继续优化~")        End Try        '设置邮件内容        mail.Subject = txtSubject.Text        mail.Body = RichTextBox1.Text        '发送附件        If Txtattach.Text.Trim <> "" Then            mail.Attachments.Add(New Net.Mail.Attachment(Txtattach.Text))        End If        '设置邮件优先级别        If ComboBox1.Text.Trim = "紧急" Then            mail.Priority = MailPriority.High        End If        If ComboBox1.Text.Trim = "一般" Then            mail.Priority = MailPriority.Normal        End If        If ComboBox1.Text.Trim = "不着急" Then            mail.Priority = MailPriority.Low        End If        Dim smtp As New SmtpClient(txtSMTP.Text)        '验证帐号与密码        If CheckBox1.Checked = True Then            smtp.Credentials = New System.Net.NetworkCredential(txtName.Text, txtPassword.Text)        End If        Try            smtp.Send(mail)            MsgBox("恭喜您，您的邮件已经飞走了，即将到达指定位置。", MsgBoxStyle.Information, "桌面邮件飞机V1.0公测版")        Catch ex As Exception            MsgBox(ex.Message, MsgBoxStyle.Critical, "啊哦，貌似网络不通哦，检查一下网络，喝杯茶再试试吧~")        End Try    End Sub    Private Sub Butaddattach_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Butaddattach.Click        '设置允许添加的附件类型        OpenFileDialog1.filter = "文本文件 （*.txt）|*.txt|Word 文 档 (*.doc)|*.doc|图 像 文 件（*.BMP;*.JPG;*.GIF;*.PNG;*.JPEG)|*.BMP;*.JPG;*.GIF;*.PNG;*.JPEG|所有文件(*.*)|**"        OpenFileDialog1.showDialog()        Txtattach.Text = OpenFileDialog1.FileName.Trim    End Sub    '刚启动时候账号密码框不可用    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load        txtName.Enabled = False        txtPassword.Enabled = False        ComboBox1.Items.Add("紧急")        ComboBox1.Items.Add("一般")        ComboBox1.Items.Add("不着急")    End Sub    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)    End Sub    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click    End Sub    Private Sub 导入TXT文件IToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 导入TXT文件IToolStripMenuItem.Click        Dim f As New OpenFileDialog        If f.ShowDialog <> Windows.Forms.DialogResult.OK Then            Exit Sub        End If        Dim Inputdata As String        OpenFileDialog2.FileName = "*.txt"        OpenFileDialog2.InitialDirectory = "C:\ "        OpenFileDialog2.Filter = " Text files(*.Txt)| *.* | All files(*.*)| *.* "        OpenFileDialog2.FilterIndex = 2        OpenFileDialog2.ShowDialog()        FileOpen(1, OpenFileDialog2.FileName, OpenMode.Input)                 RichTextBox1.Text = ""            Do While Not EOF(1)                Inputdata = LineInput(1)                RichTextBox1.Text = RichTextBox1.Text + Inputdata + vbCrLf            Loop            FileClose(1)    End Sub           Private Sub 保存邮件草稿SToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 保存邮件草稿SToolStripMenuItem.Click        SaveFileDialog1.FileName = "DMFdefault.txt"        SaveFileDialog1.DefaultExt = "txt"        SaveFileDialog1.ShowDialog()        FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)        Print(1, RichTextBox1.Text)        FileClose(1)    End Sub    Private Sub 退出程序eToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 退出程序eToolStripMenuItem.Click        Dim i As Integer        i = MsgBox("您的最近编辑的邮件草稿未保存，是否保存？", 3, "友情提示")        If i = 2 Then        ElseIf i = 6 Then            SaveFileDialog1.FileName = "defalut.txt"            SaveFileDialog1.DefaultExt = "txt"            SaveFileDialog1.ShowDialog()            FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)            Print(1, RichTextBox1.Text)            FileClose(1)            End        ElseIf i = 7 Then            End        End If    End Sub    Private Sub 复制CToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 复制CToolStripMenuItem.Click        RichTextBox1.Copy()    End Sub    Private Sub 粘贴VToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 粘贴VToolStripMenuItem.Click        RichTextBox1.Paste()    End Sub        Private Sub 剪切ZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 剪切ZToolStripMenuItem.Click        RichTextBox1.Cut()    End Sub    Private Sub 全选SToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 全选SToolStripMenuItem.Click        RichTextBox1.SelectAll()    End Sub    Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening    End Sub    Private Sub 剪切XToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 剪切XToolStripMenuItem.Click        RichTextBox1.Cut()    End Sub    Private Sub 复制CToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 复制CToolStripMenuItem1.Click        RichTextBox1.Copy()    End Sub    Private Sub 粘贴VToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 粘贴VToolStripMenuItem1.Click        RichTextBox1.Paste()    End Sub    Private Sub 全选SToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 全选SToolStripMenuItem1.Click        RichTextBox1.SelectAll()    End Sub    Private Sub 字体FToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 字体FToolStripMenuItem.Click        FontDialog1.ShowDialog()        RichTextBox1.Font = FontDialog1.Font    End Sub    Private Sub 字体ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 字体ToolStripMenuItem.Click        FontDialog1.ShowDialog()        RichTextBox1.Font = FontDialog1.Font    End Sub    Private Sub 关于我们AToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 关于我们AToolStripMenuItem.Click        AboutBox1.ShowDialog()    End Sub    Private Sub 意见反馈LToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 意见反馈LToolStripMenuItem.Click        MsgBox("感谢您使用桌面邮件飞机V1.2正式版！在您的使用过程中, 如果您有问题, 想法, 意见或建议, 请您和我们取得联系!联系E -mail : lubianbianjibu@ 163.com 鸣谢:核心代码:阿丘；用户UI:昊洋；界面设计:林峰。感谢您的使用！ ", 1, "意见反馈")    End Sub    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        Me.ToolStripStatusLabel2.Text = "系统时间：" + TimeOfDay        Me.ToolStripStatusLabel3.Text = "系统日期：" + System.DateTime.Today    End SubEnd Class

最近自己做了四集VB.NET的最为基础的任务驱动教程，对于VB.NET不是很熟悉，想快速切入的童鞋可以看看，希望对大家有些帮助：

任务一：http://v.youku.com/v_show/id_XNjc4NTk1NzYw.html

任务二：http://v.youku.com/v_show/id_XNjc4NjM3ODA0.html

任务三：http://v.youku.com/v_show/id_XNjgxNTQxMzY4.html

任务四：http://v.youku.com/v_show/id_XNjkyMjAwMzMy.html

欢迎大家提出各种意见和建议，谢谢大家！

0 0