在 VB.net 中发送带有表格的 Outlook 电子邮件

Question

我正在使用以下代码生成并打开 Outlook 电子邮件。但是我需要能够插入一个带有一些变量的表格，而我当前的方法只允许基本文本，有人可以建议一种我可以整合表格的方法吗？

  Try
       lblStatus.Text = "Opening OutLook Mail, Please Wait..."
        My.Application.DoEvents
        Dim Outl As Object
        Outl = CreateObject("Outlook.Application")
        If Outl IsNot Nothing Then
            Dim omsg As Object
            omsg = Outl.CreateItem(0)
            omsg.body = "Table should go here"
            omsg.To = "*address goes here"
            omsg.subject = SubjectLine
            'set message properties here...'
            omsg.Display(false) 'will display message to user
            lblStatus.Text = "Outlook Mail Template Opened."
            My.Application.DoEvents
        End If
    Catch ex As Exception
        lblStatus.Text = "Opening OutLook Mail | Error Encountered"
           My.Application.DoEvents
        'log error
    End Try

下面是表格的示例：

显然 Outlook 使用了格式化代码，但我不知道如何将它从 Visual Basic 发送到电子邮件中。

Answer 1

首先从您的代码中获取 DoEvents()。他们没有任何帮助。

对于表格，最简单的方法是将消息正文构建为包含表格的 HTML 字符串。当然，这需要电子邮件集的接收者接受 HTML。