☰

将 HTML 代码注入 Outlook 电子邮件

tag-icon • tag-icon email microsoft-outlook html source-code
将 HTML 代码注入 Outlook 电子邮件

有没有比使用如上所示的宏更简单（或者可能更用户友好）的方法将几行 HTML 源代码注入 Outlook 电子邮件：

在 Outlook 中撰写邮件时编辑 HTML 源代码

上述宏的 Outlook HTML 源代码窗口： 上述宏的 HTML 源代码窗口

编辑1：这里还有一些关于此问题的链接。看来网络上没有更简单的解决方法了。

https://www.outlook-apps.com/insert-html-to-outlook-emails https://www.howto-outlook.com/howto/edit-html-source-code-email.htm#quickinstall https://www.werockyourweb.com/community/edit-source-in-outlook-emails/#comment-18745

最后一个链接中的代码（见下文）非常简洁。它在 Outlook 消息窗口本身内切换 HTML 源代码和所见即所得。但是，切换回所见即所得时似乎存在问题，Outlook 显然会将部分代码解释为邮件文本（或其他内容）。

2008 年 5 月 23 日上午 9:07 另一种方式

使用这些宏可以在源视图和 HTML 视图之间切换当前电子邮件。

第一个将获取 HTML 消息并将其转换为文本消息，保留标签。

一旦您编辑完毕并准备发送，第二个程序会将文本消息转换回 HTML。

邪恶霸主

Sub HTML2Text()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatHTML) Then
strBody = objItem.HTMLBody
objItem.HTMLBody = ""
objItem.Body = strBody
objItem.BodyFormat = olFormatPlain
End If
End Sub

Sub Text2HTML()
Dim objApp As Application
Dim objItem As MailItem
Dim strBody As String
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.ActiveInspector.CurrentItem
If (objItem.BodyFormat = olFormatPlain) Then
strBody = objItem.Body
objItem.Body = ""
objItem.HTMLBody = strBody
objItem.BodyFormat = olFormatHTML
End If
End Sub

答案1

这里是一种出奇简单的方法：

我在 notepad++ 中编写了代码，在 Chrome 中查看，然后将其复制到我的电子邮件中。效果很好！

我修改了这个使用蓝狮鹫而不必编辑 Outlook 电子邮件草稿的任何部分的源代码。这样做的好处是，您可以从 Outlook 双向复制 WYSIWYG 部分。此外，它是一个可移植的程序。

相关内容