VB .NET 复制网页内容并粘贴到新的 Outlook 回复

Question

我正在尝试在VB .NET中复制网站正文内容(文本，图像，超链接等(并将其粘贴到outlook中的新电子邮件中(一切都是自动化的(。

我遇到的问题是我可以复制内部html，但那将是一个HTML代码，当它将其粘贴到outlook时，您可以看到标签等。

内部文本仅复制文本，因此没有超链接，没有文本格式，也没有图像。

我正在尝试做的就像您在页面上执行 CTRL+A 并转到 Outlook 并选择粘贴(保留源格式(一样。

我还没有找到任何解决方案如何实现它......

Dim objIE = New InternetExplorer
With objIE
.Top = 0
.Left = 0
.Width = 800
.Height = 800
.Visible = visible
.Navigate(url)
End With
Dim content = objIE.Document.Body.InnerHTML

Answer 1

找到了解决方案:)

Dim ol As Object 'Outlook.Application
Dim olEmail As Object 'Outlook.MailItem
Dim signature As String 'string
'/* if outlook is running use GO, create otherwise */
ol = GetObject(Class:="Outlook.Application")
olEmail = ol.CreateItem(0) 'olMailItem
With olEmail
.Display
End With
signature = olEmail.HTMLBody
With olEmail
.To = ""
'/* bonus basic html */
.HTMLBody = signature & objIE.Document.all.item(0).outerhtml
.Display
End With