Kratos

A responsible theme for WordPress

vb.net发邮件源码

Imports System.net.Mail '包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类
Imports System.Net.Sockets

Public Class Form1
'判断是否需要身份验证
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.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 System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
Dim mail As New MailMessage()  '定义可以使用 SmtpClient 类发送的电子邮件
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 = txtContent.Text
mail.IsBodyHtml = True'邮件是否以html格式发送

'发送附件
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.Low
End If
If ComboBox1.Text.Trim = "一般" Then
mail.Priority = MailPriority.Normal
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, "邮件发送示例")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "邮件发送失败")
End Try

End Sub

Private Sub Butaddattach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butaddattach.Click
'设置允许添加的附件的类型
OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件(*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF|所有文件(*.*)|**"
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
End Sub
End Class

vb.net邮件发送实例: vb.net mail_29528

 

点赞

发表评论

电子邮件地址不会被公开。 必填项已用*标注