適材適所

PowerShellを中心にプログラミングやシステム管理の備忘録的なブログ

MENU
トップ > Notes > VBAでNotesメールを作成・送信する_CC/BCCの追加

VBAでNotesメールを作成・送信する_CC/BCCの追加

Notes VBA

この記事では

  • VBAを使ってNotesのメール操作を自動化するためのアイディアを書いています。
  • Notesを使った日々の業務を自動化したい人に向けて書いています。

VBAでNotesメールにCCとBCCを追加する

こちらの記事→VBAでNotesメールを作成・送信する_最も簡単なサンプル - 適材適所は、VBAによるNotesメールの送信サンプルを紹介しました。

この記事では上述の記事で書ききれなかったCCとBCCの追加について解説します。

上述の記事を読んでいる前提で書いておりますので、まだそちらをお読み出ない場合は、先にそちらをお読み頂けると幸いです。

CCとBCCを追加する

CCはカーボンコピーの略で、BCCはブラインドカーボンコピーの略です。

カーボンコピーとは、一番上の紙に書いた文字が、２枚め３枚めに複写される、あれです。

・・・ペーパーレスの浸透でこの例えは通用しなくなっている・・・？

CCはメールの複写（同じ内容）を送りたい人を指定します。宛先ではないけれど、メールの内容に関する関係者や、メールの内容を知っておいて欲しい人をCCに指定することが多いかも。

BCCはCCと同じく、同じメールを送ることですが、CCとの違いは、送ったことが他の人にわからない、というところが違います。

話をNotesへ戻します。

VBAからNotesメールにCCを追加するためには、NotesDocumentのAppendItemValueのフィールド名をCopyToにします。

値は、メールアドレスを設定します。

複数のCCを設定する場合は、メールアドレスを格納した配列を設定します。

BCCの場合はフィールド名をblindCopyToに設定します。

NotesメールにCC・BCCを追加するコード

  
Option Explicit
'定数は環境に合わせて設定
Const DB_PATH As String = "○○.nsf"
Const SERVER_NAME As String = "SERVER"
Const PASSWORD As String = "pass"
'参照設定：Louts Domino Object
Sub sample2()
     'セッションを開始する
    Dim ntSession As NotesSession: Set ntSession = New NotesSession
    ntSession.Initialize PASSWORD
    
    'データベースのオープン
    Dim ntDB As NotesDatabase: Set ntDB = ntSession.GetDatabase(SERVER_NAME, DB_PATH)
    
    '新規文書を作成
    Dim ntDoc As NotesDocument: Set ntDoc = ntDB.CreateDocument()
    
    '件名の設定
    ntDoc.AppendItemValue "Subject", "件名を設定します"
    
    '送信先
    ntDoc.AppendItemValue "SendTo", "sample@mail.co.jp"

    'CC設定(複数設定する場合は配列を与える)
    ntDoc.AppendItemValue "CopyTo", "cc@mail.co.jp"
    
    'BCC設定
    Dim bccAry(2) as String
    bccAry(0)="bcc1@mail.co.jp"
    bccAry(1)="bcc2@mail.co.jp"
    ntDoc.AppendItemValue "blindCopyTo", bccAry

    '本文の設定
    Dim ntRtItem As NotesRichTextItem: Set ntRtItem = ntDoc.CreateRichTextItem("Body")
    
    '本文の設定
    ntRtItem.AppendText "本文を設定します"

    '送信するメールを送信済みフォルダに保存する設定
    ntDoc.SaveMessageOnSend = True    

     '送信
    ntDoc.Send False
    
    '送信せずに下書きする場合はこちら
    ntDoc.Save True,False
        
End Sub

コードの前提条件

  • Notesのクライアントが端末にインストールされている必要があります。
  • Louts Domino Objectの参照設定にチェックします。
  • 定数を環境に合わせて編集してください。
  • 宛先、CC、BCCを任意のアドレスに変更してください。

その他、プログラムの細かい解説は上述の記事→(VBAでNotesメールを作成・送信する_最も簡単なサンプル - 適材適所)をご参照頂けると幸いです。

終わりに

ビジネスメールを使う上で、CCとBCCは必須ですよね。

これをうまく使えるとスムーズに仕事が進みます。

VBAでNotesメールを自動送信するときも、CCとBCCをバンバン使って、業務を効率化してください！！

というわけで、ここまでお読みいただき、ありがとうございました。

関連記事

www.tekizai.net