VB.Net -以html和纯文本的形式发送邮件

Imports System.Net.Mail

Module Module1
    Sub Main()
        Dim fromAddress As New MailAddress("your-email@example.com", "Your Name")
        Dim toAddress As New MailAddress("recipient-email@example.com", "Recipient Name")
        Dim subject As String = "Hello"
        Dim body As String = "<h1>This is an HTML email</h1><p>This is the content of the email.</p>"

        Dim smtpClient As New SmtpClient()
        smtpClient.Host = "smtp.example.com"
        smtpClient.Port = 587
        smtpClient.EnableSsl = True
        smtpClient.Credentials = New System.Net.NetworkCredential("your-email@example.com", "your-password")

        Dim mailMessage As New MailMessage(fromAddress, toAddress)
        mailMessage.Subject = subject
        mailMessage.Body = body
        mailMessage.IsBodyHtml = True

        smtpClient.Send(mailMessage)
    End Sub
End Module