将字符串拆分并存储到Outlook Macro中的列表/数组中

Question

我正在编写一个宏来阅读电子邮件并解析身体。为此，我需要按newline角色分开。

我写了 -

Dim stringList As Variant
Set stringList = Split(myMessage.Body, vbLf)
Debug.Print stringList(0)

，但它说类型不匹配。我该如何修复？

Answer 1

• 不要使用Set将Split()函数返回的数组分配给您的stringList变量。Set关键字用于分配对象引用。

• 最好将stringList声明为字符串的数组而不是Variant，因为您已经知道要分配的值的类型。

• 另外一件事，您可能需要使用vbNewLine而不是vbLf。

这应该有效：

Sub SplitMsgBody()
    Dim stringList() As String
    stringList = Split(myMessage.Body, vbNewLine) 'or vbLf depending on your requirements.
    For Each s In stringList
        Debug.Print s
    Next
End Sub

希望有帮助。