如何使用帶有 VB.net 的 MailKit 發送電子郵件？

Question

我正在嘗試使用 MailKit 和 VB.net 代碼發送電子郵件。

電子郵件正在發送，但電子郵件的正文始終為空白。

這是我的代碼。 我懷疑問題出在這一行：

message.Body = New TextPart(TextFormat.Plain) With {
      .Text = "Test Message"
    }

我將代碼從 C# 轉換為 VB.net，不知道這是否是 VB.net 中設置 Text 屬性的正確語法？

    'Create email message
    Dim email As MimeMessage = New MimeMessage()
    email.From.Add(MailboxAddress.Parse(MyFromEmail))
    email.To.Add(MailboxAddress.Parse(MyToEmail))
    email.Subject = "Test Email Subject"

    Dim message As MimeMessage = New MimeMessage()
    message.Body = New TextPart(TextFormat.Plain) With {
      .Text = "Test Message"
    }

    'Send email
    Dim smtp As MailKit.Net.Smtp.SmtpClient = New MailKit.Net.Smtp.SmtpClient()

    smtp.Connect(MySmtpServer, MySmtpServerPort, MailKit.Security.SecureSocketOptions.SslOnConnect)
    smtp.Authenticate(MySendingEmail, MySendingPassword)
    smtp.Send(email)
    smtp.Disconnect(True)

Answer 1

對於設置身體，我會使用 BodyBuilder 類：

 Dim objBodyBuilder As New BodyBuilder
 objBodyBuilder.HtmlBody = "<b>HTML message</b>"
 objBodyBuilder.TextBody = "Plain text"
 objBodyBuilder.Attachments.Add("an attachment")
 message.Body = objBodyBuilder.ToMessageBody()