如何使用带有 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()