如何使用vb.net使用mailkit发送电子邮件？

Question

我正在尝试使用MailKit和vb.net代码发送电子邮件。

电子邮件发送了电子邮件，除了电子邮件的正文始终为空白。

这是我的代码。我怀疑这一行的问题是：

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

我将代码从c＃转换为vb.net，不知道这是否是vb.net中的正确语法来设置文本属性？

    '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

对于身体的设置，我将使用健美运动员：

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