VBAでNotesメールを取得する簡単なサンプル

VBAでNotesメールを取得する
VBAでNotesメールを取得する簡単なサンプル
応用のヒント
なんでNotesをVBAから扱えるの？
終わりに

VBAでNotesメールを取得する

仕事の中には「毎日、毎週、この作業やるの面倒だなぁ・・・。」というシーンが多々あります。そんな場面で役に立つのがVBAを使った自動化です。

VBAは敷居が低い分、ネット上には色々な情報があふれています。

しかし他のアプリケーションとの連携という視点だと、情報が少ないのが現状です。

ここでは自動化をメインとして語る(ことが多い)ブログなので、そのようなアプリケーション間の連携に纏わる情報をお伝えしたいと思います。

この記事ではVBAを使ってNotesメールを取得する方法を紹介します。

Notesは、グループウェアの先駆け的存在として、その根強い人気から(？)今でも使っている組織もあるのではないでしょうか？

チャットがこれだけ浸透したこの時代でも、まだまだメールを使う場面も少なくありません。

メールの件名をリスト化したいであるとか、メールの内容によってさらに別の業務に繋げるなど、チャットが台頭してきた今でもやっぱりメールはデスクワークに欠かせません。

というわけで、この記事ではVBAとNotesの連携を行う上で、土台となる簡単なサンプルとしてNoteメールの方法を取得する例を紹介したいと思います。

VBAでNotesメールを取得する簡単なサンプル

VBAを使ってNotesメールを取得する簡単なコードです。

このコードの実行の前には、事前に「Lotus Dimino Objects」の参照設定チェックが必要になります。

また、ご利用の環境に合わせて定数の設定を行ってください。

詳しい手順は↓の記事をご参考にしていただければ幸いです。

www.tekizai.net

コードを実行すると、イミディエイトウィンドウに下記の情報が出力されます。

送信者
受信者
CC
BCC
タイトル
内容（メール本文)

Sub printNotesMailList()
    Const PASSWORD As String = "(環境に合わせて設定)"
    Const SERVER As String = "(環境に合わせて設定)"
    Const NOTES_FILE As String = "(環境に合わせて設定).nsf"
    'セッションを確立
    Dim notesSession As notesSession: Set notesSession = New notesSession
    notesSession.Initialize PASSWORD
    'Notesのデータベースを取得
    Dim notesDB As NotesDatabase: Set notesDB = notesSession.GetDatabase(SERVER, NOTES_FILE)
    'Notesデータベースから全ての文書を取得する
    Dim notesDocs As NotesDocumentCollection: Set notesDocs = notesDB.AllDocuments
    '最初の文書を取得
    Dim notesDoc As NotesDocument: Set notesDoc = notesDocs.GetFirstDocument
    
    '全ての文書にアクセスする
    Do Until (notesDoc Is Nothing)
        Dim subject As String: subject = notesDoc.GetItemValue("Subject")(0)
        Dim body As String: body = notesDoc.GetItemValue("Body")(0)
        Dim from As String: from = notesDoc.GetItemValue("From")(0)
        Dim cc As String: cc = notesDoc.GetItemValue("CopyTo")(0)
        Dim bcc As String: bcc = notesDoc.GetItemValue("BlindCopyTo")(0)
        Dim sendTo As String: sendTo = notesDoc.GetItemValue("SendTo")(0)
        
        Debug.Print "送信者：" & from
        Debug.Print "受信者：" & sendTo
        Debug.Print "CC：" & cc
        Debug.Print "BCC：" & bcc
        Debug.Print "タイトル：" & subject
        Debug.Print "内容：" & body
        Debug.Print "---------------------------------"
        '次の文書を取得する
        Set notesDoc = notesDocs.GetNextDocument(notesDoc)
    Loop
    
End Sub