トップ  >  Lotus Notes/Domino  >  Lotus Script  >  ビューの列にある宛先を使用してメール送信する方法
データベース内に宛先リストのビュー等を作成し、そこに登録されている人宛にメールを送信したりすることが可能ですか?
データベース内で宛先リストを作成し、そこに登録された人へメールを送信したいという要望がありました。

方法の一つとして思い浮かんだのが、宛先リストビューを作成しアドレスが表示される列を作り、その値を読み取ってメール送信するというロジックです。

ここでは、宛先数の上限を 10 としてロジックを組んでみました。
line

     
 
使用例
 
 
Sub Click(Source As Button)					
  '変数の宣言					
  Dim s As New NotesSession					
  Dim db As NotesDatabase					
  Dim SendToView As NotesView					
  Dim SendToDoc As NotesDocument					
  Dim doc As NotesDocument					
  Dim mldb As New NotesDatabase( ""	 "" )				
  Dim MailDoc As NotesDocument					
  Dim RtItem  As NotesRichTextItem					
  Dim CurrentSendTo As Variant					
  Dim SendToList( 1 To 10 ) As String					
  					
  Set db = s.CurrentDatabase					
  Set SendToView = db.GetView( "SendToListView" )					
  					
  ' 宛先の設定					
  counter% = 1					
  Set doc = SendToView.GetFirstDocument					
  While Not ( doc Is Nothing )					
    CurrentSendTo = doc.ColumnValues( 3 )					
    SendToList( counter% ) = CurrentSendTo					
    Set doc = SendToView.GetNextDocument( doc )					
    counter% = counter% + 1					
  Wend					
					
  ' メール文書を作成し、上で設定した宛先にメール送信する                                                   					
  Set MailDoc = New NotesDocument( db )					
  MailDoc.Form = "Memo"					
  MailDoc.Subject = "件名入力してください。"					
  Set RtItem = New NotesRichTextItem( MailDoc 	 "Body" )				
  Call RtItem.AppendText ( "本文入力してください。" )					
  MailDoc.SendTo = SendToList					
  Call MailDoc.Send ( False )					
  Messagebox "メールを送信しました。"					
End Sub					
 
     
 
 

プリンタ用画面
友達に伝える
投票数:97 平均点:4.12
前
送信者情報を変更してメール送信する方法
カテゴリートップ
Lotus Script
次
Notes クライアントのバージョンを確認する方法


Copyright © 2000/10/01 Kusaken's Laboratory All rights reserved