剥离电子邮件正文时出现 VBA Outlook 错误答案

【问题标题】：VBA outlook error when stripping email body剥离电子邮件正文时出现 VBA Outlook 错误
【发布时间】：2016-04-13 07:34:07
【问题描述】：

我正在使用 VBA 脚本来剥离电子邮件的正文，我已经成功地剥离了 90% 的电子邮件，但是当我到达最后的“查询”部分时，我遇到了一个无法修复的错误。这是电子邮件正文。

Ref: 1993
Business Headline: bla bka
Name: A Name
Email: email@email.com
Tel: 0777777777

Address Line: 123
Address Line 2: someroad
Town: sometown
County: lancashire
Postcode: APOS TCDE

Enquiry:
Please send me more information about this business. Regards, Gary.

当它试图查找查询时，问题出在邮政编码处。在我的代码中，它似乎找到了 Inquiry 的位置，但没有将整数分配给变量。请查看屏幕截图以了解我的意思。

finds correct positon

The variable is just staying at 0

这是邮政编码剥离代码：

Dim pstcodee As Integer
            pstcodee = InStr(1, b4, "Postcode: ")

        Dim enqui As Integer
            enqui = InStr(1, b4, "Enquiry:")

        Dim pstenquire As String
             pstenquire = Mid(b4, pstcodee, enqui - pstcodee)

        Dim bup2222() As String
        bup2222 = Split(pstenquire, ":")

        postcode = bup2222(1)

【问题讨论】：

代码运行正常，提取："APOS TCDE"。您必须更详细地描述确切的问题是什么。屏幕截图不显示当前执行的行（在调试期间标记为黄色）。

标签： vba excel email outlook

【解决方案1】：

postcode = Trim$(Mid$(b4, 8 + Len("Enquiry:" & vbNewLine), Len(b4)))

【讨论】：