[ホーム] - [ノーツドミノ プログラミングサンプル一覧] - [メールを送信するロータススクリプトのサンプルコード]




メールを送信するロータススクリプトのサンプルコード


ロータススクリプトでメールを送信するサンプルコードを紹介します。
このページでは以下のサンプルのように新規に文書を作成し、sendメソッドを使用する方法を紹介します。ノーツ文書にはその文書をメールとして送信するメソッド(Send)が装備されているためこれを活用します。


Dim session As New NotesSession
Dim db As NotesDatabase
Dim mailDoc As NotesDocument
Dim richTextItem As NotesRichTextItem
Set db = session.CurrentDatabase

'メール送信用文書作成
Set mailDoc = Db.CreateDocument
mailDoc.Form = "Memo"
mailDoc.SendTo = "admin/TEST"

' 件名を設定
mailDoc.Subject = "テストメール"
Set richiTextItem = New NotesRichTextItem( mailDoc, "Body" )
Call richiTextItem.AppendText( "テスト1" )
'改行
Call richiTextItem.AddNewLine( 1 )
Call richiTextItem.AppendText( "テスト2" )
'改行
Call richiTextItem.AddNewLine( 1 )

' メールを送信
Call mailDoc.Send( False )




アドレス帳にない指定したユーザが存在しな場合には、以下のエラーが表示されます。

Unable to send mail,no match found in Name & Address Book(s)




(補足)Lotus Script を使用しています。(VBを Notesに拡張した言語です。)




本ページは IBM Lotus Notes Domino (ロータスノーツドミノ)を対象としています。 基本的には Notes 4,5,及び6以後を対象としていますが、バージョンによっては対応していない場合があります。 lotus scriptや @関数 (@コマンド)を対象としていて、VB Scriptには対応していません。 本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。 このページはリンクフリーです。(このページへの直接リンクも可能です。)

[ホーム] - [ノーツドミノ プログラミングサンプル一覧]