VBA 从 Outlook 邮件中检索 HTMLBody-6ren

VBA 从 Outlook 邮件中检索 HTMLBody

转载作者：行者123 更新时间：2023-12-01 03:57:21

27

4

首先，我通过 Outlook 创建一封电子邮件:

Sub CreateHTMLMail()
'Creates a new e-mail item and modifies its properties.

Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application
'Create e-mail item
Set objMail = olApp.CreateItem(olMailItem)

Dim sHTML_Open              As String
Dim sHTML_Introduction      As String
Dim sHTML_Goodbye           As String
Dim sHTML_Close             As String
Dim sHTML_Process_Date      As String
Dim sHTML_Processor         As String
Dim sHTML_Issuer            As String
Dim sHTML_Details           As String

Dim sHTML_Body              As String

sHTML_Open = "<HTML><BODY>"
sHTML_Introduction = "Hi team,<BR/><BR/>" & _
                        "Data is ready to process. Please find details as below.<BR/>"
sHTML_Process_Date = "<P ID='PROCESSDATE'>28 February 2013</P>"
sHTML_Processor = "<P ID='PROCESSOR'>AKSHAY</ID></P>"
sHTML_Issuer = "<P ID='ISSUER'>DATAGROUP.COM</ID></P>"
sHTML_Details = "<P ID='DETAILS'>" & _
                    "<UL>" & _
                        "<LI>Fimta23456 09:00:00 flor345</LI>" & _
                        "<LI>Fimta23456 09:00:00 flor345</LI>" & _
                    "</UL>" & _
                "</P><BR/>"
sHTML_Goodbye = "Thanks"
sHTML_Close = "</BODY></HTML>"

sHTML_Body = sHTML_Open & sHTML_Introduction & sHTML_Process_Date & sHTML_Processor & sHTML_Issuer & _
          sHTML_Details & sHTML_Goodbye & sHTML_Close

With objMail
   'Set body format to HTML
   .BodyFormat = olFormatHTML
   .To = "Kim Gysen"
   .Subject = "data remit file"
   .HTMLBody = sHTML_Body
   .Display
End With
End Sub

通过代码，我想根据 ID 检索值。
这对我来说似乎是最干净的方式，我并不特别喜欢“拆分”方法，因为它是一种硬编码；不是很动态，有点不可靠。

不幸的是，当我检索 HTML 正文时，我无法检索原始 HTML，因为它被 Outlook 扭曲了:

Sub Get_OL()

Dim oFolder                 As MAPIFolder
Dim oItem                   As Variant

Dim sHTML_Body              As String
Dim sHTML_Process_Date      As String
Dim sHTML_Processor         As String
Dim sHTML_Issuer            As String
Dim sHTML_Details           As String

Dim oExcel              As Object
Dim oBook               As Workbook

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add


'Access the outlook inbox folder

Set oFolder = GetNamespace("MAPI").PickFolder

'On error resume next usually not to use, but feteching emails may give unexpected errors
On Error Resume Next
For Each oItem In oFolder.Items
    If TypeOf oItem Is Outlook.MailItem Then
        If oItem.Subject Like "*data remit file*" Then
            'Turn off on error resume next asap
            On Error GoTo 0
            sHTML_Body = oItem.HTMLBody
            Debug.Print sHTML_Body

            Exit For
        End If
    End If
Next oItem

End Sub

在 debug.print 上，这就是我得到的(只放置格式的最后一行):

</o:shapelayout></xml><![endif]--></head><body lang=EN-GB link=blue vlink=purple><div class=WordSection1><p class=MsoNormal>Hi team,<br><br>Data is ready to process. Please find details as below.<br><br><o:p></o:p></p><p>28 February 2013<o:p></o:p></p><p id=PROCESSOR>AKSHAY<o:p></o:p></p><p id=ISSUER>DATAGROUP.COM<o:p></o:p></p><ul type=disc><li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;mso-list:l0 level1 lfo1'>Fimta23456 09:00:00 flor345<o:p></o:p></li><li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;mso-list:l0 level1 lfo1'>Fimta23456 09:00:00 flor345<o:p></o:p></li></ul><p class=MsoNormal><br>Thanks<o:p></o:p></p></div></body></html>

我想检索我放在 HTMLBody 中的原始 HTML。

最佳答案

2种方式:

1) 解析文本 - 要做的几件事(不推荐:硬编码)

您只需要parse text ，但 MSDN 展示了如何使用指令功能。我强烈建议使用 RegEx解析html文本。注意:需要引用 MS VBScript 正则表达式 x.x。

Simple Regular Expression Tutorial for Excel VBA

2) 使用 UserProperites MailItem 对象(推荐)

如果 MailItem 不包含您的属性(y)ies，则无需执行任何操作；)

How to: Add custom property

关于VBA 从 Outlook 邮件中检索 HTMLBody，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/16144149/

27

4

0

文章推荐： javascript - .Map函数差异javascript typescript

Javascript - 邮件
我想在文本区域中向许多其他用户发送电子邮件。在名为内容的文本区域中，如果我键入星号包围的“用户”，我想让它们填写每个电子邮件的用户名(“@”之前的文本)。每封电子邮件中的每个用户名都会产生很多不同。然
使用模板的 php 邮件
这个问题在这里已经有了答案: 关闭 10 年前。 Possible Duplicate: Problem when loading php file into variable (Load resu
带有中断数据库的 PHP 邮件
我正在从数据库中提取信息，并尝试将其作为电子邮件发送。将从数据库中拉取多行数据。这就是我的代码的样子... 所有的信息邮件都很好。我的问题是，我想保留中断。例如，在标题之后，我想中断一下，然后开始备
Java 邮件 |消息异常
当我使用我们使用 java 邮件的门户发送 TEXT 电子邮件时没有问题，但是，当我选择放置 HTML 内容并发送电子邮件时，会引发以下警报。花了几个小时搜索但没有有用的答案! 谁能帮忙电子邮件主题
Java 邮件。如何检查登录是否成功？
我有这个类，它处理 gmail 的登录。无论我输入什么电子邮件和密码，程序都会返回 session 。我不明白如何在返回 session 对象之前检查登录是否成功。 package mailActio
Java 邮件。回复消息分为消息和附件
我设置的短信作为文本文件附在信中。我不明白为什么会这样。 replied letter example public void sendEmail(MimeMessage message, Strin
非事件用户时的 PHP 邮件
所以我正在制作一个网络系统，这个想法是当用户关闭浏览器时它会向我发送一封电子邮件。目前，用户正在使用 Javascript Ajax 来让 PHP 更新数据库的当前时间。当时间超过 5 分钟时，我希望
产品过期时发送 PHP 邮件
我想发送邮件，当产品从之前、日期和之后过期时，在 php 中，我在 php 中使用了 datediff mysql 函数，但如果产品过期日期类似于 31-1-2012 ，则不同值是不适合我的编码，请帮
带变量的 php 邮件
我正在尝试设置一个邮件脚本，该脚本将首先从 mysql 运行一个简单的选择，并在消息中使用这些数组变量。然而，所有的变量并没有输出到消息体，只有一行变量。这是我的脚本: $sql1 = "SE
Android 邮件 API
我最近一直在努力研究这个问题。是否有我可以使用并添加到其中的 android API？我想为电子邮件应用程序制作一个插件，但我不想制作整个电子邮件应用程序。我非常想要一些已经可以处理发送和接收电子邮
php 邮件 - 特殊字符
嗨我有一个 PHP 西类牙文网站。在此邮件正文中包含一个主题“Solicitud de cotización”，但该主题出现在热门邮箱中，如 Solicitud de cotización 。但它在
php - 邮件()与PHP
我想写一个脚本，使用 php 自动向我的客户发送电子邮件我如何自动发送它，例如，如果他们输入他们的电子邮件。然后点击提交我想自动发送这封邮件其次，我的主机上是否需要 smtp 服务器？我可以在任
Java 邮件 - 附件和内联图像
今天早上我已经解决了一个问题: Java Mail, sending multiple attachments not working 这次我遇到了一个稍微复杂一点的问题:我想将附件和图片结合起来。
Java 邮件 : Session
下面是用于连接 IMAP 文件夹并对其执行操作的代码。所以我的问题是关于 javax.mail.Session 的，在这种情况下它会每秒重新创建一次(取决于 checkInbox() 的 hibern
Java 邮件 - 无法连接到主机
我正尝试按照 http://www.tutorialspoint.com/java/java_sending_email.htm 上的指南发送电子邮件 Java 应用程序当我尝试运行它时，从上面的链
Mysql 匹配 "Same"邮件
我有一个包含 2 列 email 和 id 的表格。我需要找到密切相关的电子邮件。例如: john.smith12@example.com 和 john.smith12@some.subdomains
PHP 邮件() 超时
首先是一些信息: Debian 压缩 PHP 5.3.3 带有 mod_cgi 的 PHP 在这种情况下，我绝对必须使用 mail()。对于我所有的其他项目，我已经使用 SMTP 邮件。我已将站点超
PHP 邮件 : What does -f do?
在对电子邮件主机的联系表单进行故障排除时，他们告诉我在 php 邮件功能的发件人地址中使用“-f”。 “-f”标志的作用是什么？为什么它可以解决允许发送电子邮件的问题？我阅读了一些文档，但不是很清楚。
PHP:邮件()与发送邮件
一个简单的问题:群发邮件哪个性能好？ mail() 函数或sendmail 流行的 PHP 列表管理器包使用哪个？最佳答案嗯，mail() 函数并不适合批量发送电子邮件，因为它会为您发送的每封
附件上传完成前发送的 PHP 邮件
我正在制作一个 PHP 表单，允许用户上传附件并将其发送到我的电子邮件。我一直在寻找很长一段时间才能做到。最后，我找到了这个。 http://www.shotdev.com/php/php-mail/

首页

博学

6Ren·AI

商城

VBA 从 Outlook 邮件中检索 HTMLBody