如何使用VB.NET通过MailKit发送邮件？排查正文空白问题

你的邮件正文空白和VB.NET的With对象初始化语法无关，核心错误是创建了两个互不关联的MimeMessage实例：

• 名为email的实例仅配置了发件人、收件人、邮件主题，未设置任何正文内容
• 名为message的实例虽然正确配置了正文，但从未被传入发送方法，最终smtp.Send()调用时传入的是无正文的email实例，自然收到的邮件内容为空。

你写的TextPart赋值语法本身完全符合VB.NET规范，不存在语法错误。

' 创建邮件消息实例
Dim email As MimeMessage = New MimeMessage()
email.From.Add(MailboxAddress.Parse(MyFromEmail))
email.To.Add(MailboxAddress.Parse(MyToEmail))
email.Subject = "Test Email Subject"

' 直接给待发送的email实例赋值正文，无需额外新建第二个MimeMessage对象
email.Body = New TextPart(TextFormat.Plain) With {
    .Text = "Test Message"
}

' 发送邮件
Using smtp As New MailKit.Net.Smtp.SmtpClient()
    smtp.Connect(MySmtpServer, MySmtpServerPort, MailKit.Security.SecureSocketOptions.SslOnConnect)
    smtp.Authenticate(MySendingEmail, MySendingPassword)
    smtp.Send(email)
    smtp.Disconnect(True)
End Using

注：代码中使用Using块包裹SmtpClient是推荐的资源管理写法，可以确保客户端连接资源被正确释放，不影响邮件发送的核心逻辑。

内容的提问来源于stack exchange，提问作者MatthewNYC