文字列を分割してOutlookマクロのリスト/配列に格納する

Question

メールを読んで本文を解析するマクロを作成しています。このために、改行文字で分割する必要があります。

私が書いた -

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

をしかし、それは不一致を入力しますと言います。どうすれば修正できますか？

Answer 1

• は、あなたのstringList変数にSplit()関数によって返された配列を割り当てるためにSetを使用しないでください。キーワードSetはassign an object referenceに使用されています。

• 割り当てられる値の型をすでに知っているので、をVariantの代わりにStringの配列として宣言することをお勧めします。

• もう1つのことは、vbLfの代わりにvbNewLineを使用して文字列を分割したい場合があります。

  これは動作するはず

：

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 

お役に立てば幸いです。