NotesMIMEEntity::Headers プロパティを各ヘッダフィールドごとに分割する

今回のネタは全然たいしたものではありません。ただ、個人的に毎回書くのが面倒なのと 13 10 という組み合わせを時々忘れてネットを検索してしまうので、そういうのを防止するために SxSplitMIMEHeaders() というファンクションにしただけのものです。

このファンクションでは Split 関数が必要なのですが、ノーツ R5 の場合はそれがありません。なのでノーツ R5 で Split で紹介した方法を使います。Notes 6 の場合は Split 関数を使えば OK です。SxSplitMIMEHeaders() の引数に NotesMIMEEntity クラスの Headers プロパティの値を入れてください。

ノーツ R5 の場合

Function SxSplitMIMEHeaders(expression As String) As Variant
    SxSplitMIMEHeaders = SxSplit(expression, Chr(13) + Chr(10))
End Function

Notes 6 の場合

Function SxSplitMIMEHeaders(expression As String) As Variant
    SxSplitMIMEHeaders = Split(expression, Chr(13) + Chr(10))
End Function