form1.vb

电子邮件发送和接收程序,里面有实现代码的全过程

        Me.Label5.TabIndex = 8
        Me.Label5.Text = "抄送"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(16, 120)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(72, 24)
        Me.Label4.TabIndex = 7
        Me.Label4.Text = "附件"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(16, 88)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(88, 24)
        Me.Label3.TabIndex = 6
        Me.Label3.Text = "邮件主题"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(16, 56)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(88, 24)
        Me.Label2.TabIndex = 5
        Me.Label2.Text = "发件人地址"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(16, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(88, 24)
        Me.Label1.TabIndex = 4
        Me.Label1.Text = "收件人地址"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(408, 112)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(64, 24)
        Me.Button3.TabIndex = 3
        Me.Button3.Text = "关闭"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(408, 72)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(64, 24)
        Me.Button2.TabIndex = 2
        Me.Button2.Text = "附件"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(408, 32)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(64, 24)
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "发送"
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.ComboBox1)
        Me.GroupBox4.Controls.Add(Me.RadioButton2)
        Me.GroupBox4.Controls.Add(Me.RadioButton1)
        Me.GroupBox4.Controls.Add(Me.Label6)
        Me.GroupBox4.Location = New System.Drawing.Point(8, 176)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(504, 48)
        Me.GroupBox4.TabIndex = 0
        Me.GroupBox4.TabStop = False
        '
        'ComboBox1
        '
        Me.ComboBox1.Items.AddRange(New Object() {"正常", "紧急", "缓发"})
        Me.ComboBox1.Location = New System.Drawing.Point(88, 17)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(144, 20)
        Me.ComboBox1.TabIndex = 12
        '
        'RadioButton2
        '
        Me.RadioButton2.Location = New System.Drawing.Point(384, 16)
        Me.RadioButton2.Name = "RadioButton2"
        Me.RadioButton2.Size = New System.Drawing.Size(96, 24)
        Me.RadioButton2.TabIndex = 11
        Me.RadioButton2.Text = "HTML方式"
        '
        'RadioButton1
        '
        Me.RadioButton1.Checked = True
        Me.RadioButton1.Location = New System.Drawing.Point(272, 16)
        Me.RadioButton1.Name = "RadioButton1"
        Me.RadioButton1.TabIndex = 10
        Me.RadioButton1.TabStop = True
        Me.RadioButton1.Text = "文本方式"
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(16, 24)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(88, 16)
        Me.Label6.TabIndex = 9
        Me.Label6.Text = "优先级"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(544, 406)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "Form1"
        Me.Text = "电子邮件发送程序"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Dispose()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Me.ComboBox1.SelectedIndex = 0
            sendTo = Me.TextBox1.Text
            sendFrom = Me.TextBox2.Text
            If sendTo = "" Then
                MessageBox.Show("没有邮件目的地址，请重新输入，" & _
                "并注意格式的正确性。", "错误", _
                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Exit Sub
            End If
            '获取并判断目的地址是否为空
            message.To = sendTo
            message.From = sendFrom
            '设置邮件的发送目的地址和原址
            If Me.RadioButton1.Checked = True Then
                message.BodyFormat = MailFormat.Text
            End If
            If Me.RadioButton2.Checked = True Then
                message.BodyFormat = MailFormat.Text
            End If
            '选择邮件发送的格式
            message.BodyEncoding = System.Text.Encoding.UTF8
            '选择邮件发送的文本编码
            Subject = Me.TextBox3.Text
            Dim result As DialogResult
            If Subject = "" Then
                result = MessageBox.Show("该封邮件没有添加标题，不要标题吗？", _
                "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
            End If
            '判断该邮件是否具有标题
            If result = DialogResult.No Then Exit Sub
            '如果选择要添加标题，则退出过程等待添加标题
            message.Subject = Subject
            '设置邮件发送标题
            message.Body = Me.RichTextBox1.Text
            '获取邮件发送的内容
            If Me.TextBox4.Text = "" Then
            Else
                Attachs = New MailAttachment(Me.TextBox4.Text)
                message.Attachments.Add(Attachs)
                '判断是否具有附件，如果有则连带附件发送
            End If
            If Me.TextBox5.Text = "" Then
            Else
                message.Cc = Me.TextBox5.Text
            End If
            '判断是否有抄送地址
            SmtpMail.Send(message)
            '发送邮件
        Catch
            MessageBox.Show("邮件没有发送成功！原因是：" & Err.Description, _
            "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
            '获取可能发生意外的错误并通知用户
            Select Case Me.ComboBox1.SelectedIndex
                Case 0
                    proity = MailPriority.Normal
                Case 1
                    proity = MailPriority.High
                Case 2
                    proity = MailPriority.Low
            End Select
            message.Priority = proity
            '选择并设置邮件发送的优先级
            MessageBox.Show("邮件已经成功发送完毕。", "提示", _
            MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        With Me.OpenFileDialog1
            .Title = "打开"
            .Filter = "所有文件(*.*)|*.*"
            .ShowDialog()
            Me.TextBox4.Text = .FileName
        End With
        '获取邮件附件的文件名和完整路径
    End Sub
End Class