Отправлять электронную почту Outlook с помощью таблицы в VB.net

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.