在 VB.NET 中，你可以使用 System.Net.Mail 命名空间中的 MailMessage 类来创建和发送带附件的电子邮件。以下是一个示例代码，演示如何发送带有附件的电子邮件：
Imports System.NetImports System.Net.MailPublic Class Form1Private Sub btnSendEmail_Click(sender As Object, e As EventArgs) Handles btnSendEmail.ClickTryDim fromAddress As New MailAddress("your_email@example.com", "Your Name")Dim toAddress As New MailAddress("recipient@example.com", "Recipient Name")Dim subject As String = "Email with Attachment"Dim body As String = "This email contains an attachment."Dim smtpClient As New SmtpClient()smtpClient.Host = "smtp.example.com"smtpClient.Port = 587smtpClient.EnableSsl = TruesmtpClient.UseDefaultCredentials = FalsesmtpClient.Credentials = New NetworkCredential("your_email@example.com", "your_password")Dim message As New MailMessage(fromAddress, toAddress)message.Subject = subjectmessage.Body = body' 添加附件Dim attachment As New Attachment("C:\path\to\attachment.txt")message.Attachments.Add(attachment)smtpClient.Send(message)MessageBox.Show("Email sent successfully.")Catch ex As ExceptionMessageBox.Show("An error occurred: " & ex.Message)End TryEnd SubEnd Class在上述代码中，你需要替换以下部分：
"your_email@example.com"：发送电子邮件的邮箱地址
"Your Name"：发送者的名字
"recipient@example.com"：接收电子邮件的邮箱地址
"Recipient Name"：接收者的名字
"smtp.example.com"：SMTP 服务器的主机名
587：SMTP 服务器的端口号
"your_password"：发送电子邮件的邮箱密码
"C:\path\to\attachment.txt"：附件的路径
通过修改这些参数，你可以在 VB.NET 中发送带有附件的电子邮件。
