使用VB.net发送带有附件的电子邮件

可以通过以下步骤实现：

导入必要的命名空间：

Imports System.Net
Imports System.Net.Mail

创建一个MailMessage对象，并设置发送方、接收方、主题和正文：

Dim message As New MailMessage()
message.From = New MailAddress("sender@example.com")
message.To.Add("recipient@example.com")
message.Subject = "邮件主题"
message.Body = "邮件正文"

添加附件：

Dim attachment As New Attachment("文件路径")
message.Attachments.Add(attachment)

创建一个SmtpClient对象，并设置SMTP服务器的相关信息：

Dim smtpClient As New SmtpClient()
smtpClient.Host = "smtp.example.com"
smtpClient.Port = 587
smtpClient.EnableSsl = True
smtpClient.Credentials = New NetworkCredential("username", "password")

请注意，这里的SMTP服务器地址、端口号、用户名和密码需要根据实际情况进行设置。

发送邮件：

smtpClient.Send(message)

完整的代码示例：

Imports System.Net
Imports System.Net.Mail

Module Module1

    Sub Main()
        Dim message As New MailMessage()
        message.From = New MailAddress("sender@example.com")
        message.To.Add("recipient@example.com")
        message.Subject = "邮件主题"
        message.Body = "邮件正文"

        Dim attachment As New Attachment("文件路径")
        message.Attachments.Add(attachment)

        Dim smtpClient As New SmtpClient()
        smtpClient.Host = "smtp.example.com"
        smtpClient.Port = 587
        smtpClient.EnableSsl = True
        smtpClient.Credentials = New NetworkCredential("username", "password")

        smtpClient.Send(message)
    End Sub

End Module

附加说明：