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