[ノーツ FAQ トップへ]

Lotus Notes Domino (ロータス ノーツ ドミノ) FAQ


スポンサード リンク



Q ロータススクリプトでメールを送信するにはどうすればよいのですか

A 以下のサンプルのように新規に文書を作成し、sendメソッドを使用します。

アドレス帳にない指定したユーザが存在しな場合には、以下のエラーが表示されます。
Unable to send mail,no match found in Name & Address Book(s)

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 )



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

[ノーツ FAQ トップへ]


スポンサード リンク