Send Email code in VB.NET

最新推荐文章于 2025-04-29 12:33:55 发布

heziyun99

最新推荐文章于 2025-04-29 12:33:55 发布

阅读量815

点赞数 1

分类专栏： VB 文章标签： vb.net email exception string function 服务器

本文链接：https://blog.youkuaiyun.com/heziyun99/article/details/1821317

版权

VB 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个使用VB.NET实现的邮件发送功能，该功能可以向指定的电子邮件地址发送包含HTML格式正文及附件的邮件。代码详细展示了如何设置邮件的各项属性，包括收件人、发件人、主题、正文格式等，并且能够根据指定路径添加附件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Dim mailserver As String
mailserver ="test"
Private Function SendEmail(ByVal reportname As String, ByVal MailAddress As String, ByVal filename As String) As Boolean
        'Send Email到指定Email Address
        Try
            Dim mesbody As String 'MAIL主体
            mesbody = "   test<BR><BR>"
            mesbody += Errorinfo
            Dim Message As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage
            Message.To = MailAddress '接收人，多个用分号;隔开
            Message.From = "Admin" '发送者
            Message.Subject = reportname '标题
            Message.Body = mesbody
            Message.BodyFormat = MailFormat.Html '编码方式
            Try
                If System.IO.File.Exists(filename) Then '如果指定的附加文件存在，粘贴附件
                    Dim myAttachment As MailAttachment = New MailAttachment(filename)
                    Message.Attachments.Add(myAttachment)
                End If
                SmtpMail.SmtpServer = mailserver '设置MAIL服务器
                SmtpMail.Send(Message)
                Return True
            Catch ex As Exception
                StatusBar1.Panels(1).Text = "Error: " & ex.Message
                Return False
            End Try
        Catch ex As Exception
            Return False
        End Try
    End Function