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

Imports System.Net
Imports System.Net.Mail

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)

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