如何使用vb.net中的默认电子邮件客户端发送带有附件的电子邮件

Imports System.Net
Imports System.Net.Mail

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim mail As New MailMessage()
            Dim SmtpServer As New SmtpClient("smtp.example.com") ' 替换为您的SMTP服务器地址

            mail.From = New MailAddress("sender@example.com") ' 替换为发件人的电子邮件地址
            mail.[To].Add("recipient@example.com") ' 替换为收件人的电子邮件地址
            mail.Subject = "邮件主题"
            mail.Body = "邮件正文"

            Dim attachment As New Attachment("C:\path\to\attachment.txt") ' 替换为附件的路径
            mail.Attachments.Add(attachment)

            SmtpServer.Port = 587 ' 替换为您的SMTP服务器端口
            SmtpServer.Credentials = New NetworkCredential("username", "password") ' 替换为您的SMTP服务器的用户名和密码
            SmtpServer.EnableSsl = True ' 如果SMTP服务器要求SSL连接，请设置为True

            SmtpServer.Send(mail)
            MessageBox.Show("邮件发送成功")
        Catch ex As Exception
            MessageBox.Show("邮件发送失败：" + ex.Message)
        End Try
    End Sub
End Class