Question

我希望获得链邮件中包含的所有主题。

场景：我们收到一封电子邮件（假设有10人收到），然后有人回复所有人，然后另一个人回复所有人。因此，在收到的最后或最后一封电子邮件中，将在一封邮件中合并3封邮件。父邮件，然后两个回复。我想要的是获取谁回复该电子邮件的信息，然后是第二个和他们的回复。或者如果我们可以将该电子邮件分成3个单独的电子邮件。请建议从哪里开始。

Answer 1

测试以下代码。它是一个以MailItem为参数的函数，并返回包含主题的数组。

<div class="parent">
  <div class="childbg"></div>
  <div class="child"></div>
</div>

Answer 2

我找到了一种方法，通过将邮件正文拆分为选项卡，然后通过将其传递给循环来搜索“主题：”，将邮件正文传递到数组中。我用的代码是下面的。

此代码首先获取所选邮件，然后传递它。

Set olapp = GetObject(, "Outlook.Application")
Set olmail = olapp.ActiveExplorer.Selection(1)



msg_body = Split(olmail.Body, Chr(13))

MsgBox UBound(msg_body)

For i = 0 To UBound(msg_body)

If InStr(msg_body(i), "Subject:") <> 0 Then
MsgBox msg_body(i)
End If
Next i

您可以打印或使用这些数量来确定链中有多少邮件。

打破单个电子邮件信息并检索所有包含的邮件

2 个答案: