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

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

ロータススクリプトでメールを送信するサンプルコードを紹介します。
このページでは以下のサンプルのように新規に文書を作成し、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( "テスト１" )

'改行

Call richiTextItem.AddNewLine( 1 )

Call richiTextItem.AppendText( "テスト２" )

'改行

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には対応していません。本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。このページはリンクフリーです。(このページへの直接リンクも可能です。)

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