wccf_only_gat/no title

Public Sub メール()
    Dim NotSet As Object    ' lotus.NOTESSESSION
    Dim NotDB As Object     ' lotus.NOTESDATABASE
    Dim NotDoc As Object    ' lotus.NOTESDOCUMENT
    Dim NotItem As Object ' lotus.NOTESRICHTEXTITEM
    Dim NotAtt As Object    ' lotus.NOTESEMBEDDEDOBJECT
    Dim AttFName As String  ' 添付ファイル名(フルパス)

    ' Notesのセッションを起動する
    Set NotSet = CreateObject("Notes.NotesSession")
    ' NotesDatabaseオブジェクトを作成し、そのデータベースを開く
    Set NotDB = NotSet.GETDATABASE("", "")
    ' NotesDBをユーザーのメールDBに割り当てた後に開く
    NotDB.OpenMail

    ' NotesDBに文書を作成し、新規文書をオブジェクト変数にセットする
    Set NotDoc = NotDB.CREATEDOCUMENT()
    ' 件名をセットする
    NotDoc.Subject = "今日は当番です。"
    ' 宛先をセットする
    NotDoc.SendTo = Array("[email protected]")
    NotDoc.CopyTo = Array("[email protected]")
    'NotDoc.blindCopyTo = Array("xxx@xxx")

    ' 文書にリッチテキストアイテムを作成する
    Set NotItem = NotDoc.CreateRichTextItem("BODY")
    ' 本文をセットする
    With NotItem
        .APPENDTEXT "今日は当番日です。"
        .ADDNEWLINE 1
        .APPENDTEXT "よろしくお願いいたします。"
        .ADDNEWLINE 2
        ' 添付ファイル名をセットする
'        AttFName = "D:\TEST\Book1.xls"
        ' ファイルを添付する
'        Set NotAtt = .EmbedObject(EMBED_ATTACHMENT, "", AttFName)
        .ADDTAB 1
        .ADDNEWLINE 1
    End With

    ' メールを送信する
    NotDoc.Send False

    ' オブジェクト変数を解放する
    Set NotAtt = Nothing
    Set NotItem = Nothing
    Set NotDoc = Nothing
    Set NotDB = Nothing
    Set NotSet = Nothing

    MsgBox "メール発信", vbOKOnly + vbInformation

End Sub


Copy ToはCCです。

よろしくお願いいたします。