如何在Outlook（VBA）中查找和连接文本字符串

Question

我们有一个旧系统，向我们发送了这样的电子邮件

名称：名姓

[地址：街道

E-post： [email protected]

并且我们使用Outlook宏将信息传输到Excel，就像这样

        If InStr(1, vText(i), "Name: ") > 0 Then
            vItem = Split(vText(i), "Name: ")
            x1Sheet.Range("A" & lastrow) = Trim(vItem(1))
        End If
        If InStr(1, vText(i), "E-post: ") > 0 Then
            vItem = Split(vText(i), "E-post: ")
            x1Sheet.Range("D" & lastrow) = Trim(vItem(1))
        End If

但是，此系统较旧，我们不得不更改为另一个系统来发送像这样的电子邮件

客户信息：名字，姓氏，地址行1，地址行2，电子邮寄，不重要

而且我们仍然需要在列A的Excel中获取“姓氏名”，在列D的“电子邮寄”中。如何在逗号之间查找文本，并在需要时将它们连接为新的文本字符串？

Answer 1

Outlook允许电子邮件具有文本正文，HTML正文和/或RTF正文。我从未见过RTF正文，因此无法对其发表评论。我相信当今大多数电子邮件仅以HTML正文发送，然后Outlook根据一些简单规则从HTML正文创建文本正文。我之所以这样认为，是因为大多数文本正文都遵循相同的简单格式，但其中的一些文本外观却大不相同，并且显然已经构造为使用不处理HTML的电子邮件程序包看起来不错。