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

Question

我正在写一个宏来读电子邮件和解析身体。为此，我需要用换行符来分割。

我写了-

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

希望这能有所帮助。