拆分字符串並存儲到Outlook宏中的列表/數組中

Question

我在寫一個宏來讀取電子郵件並解析正文。爲此，我需要用換行符分割。

我寫 -

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

但它說類型不匹配。我如何解決它？

Answer 1

• 不要使用Set由Split()函數返回的數組分配給您的stringList變量。 Set關鍵字用於assign an object reference。

• 因爲您已經知道要分配的值的類型，所以最好將stringList聲明爲String的數組而不是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 

希望有所幫助。