• 同じサーバの中でPumpが稼動しているとき。
  NotesPumpヘルプ（leidoc.nsf）の18章「コマンドラインからのアクティビティの実行」の項にあるように、
  leiact "Activity Name"
  でいけるみたい。詳しくはそっちのヘルプの方をご参照で。けっこう制限多そうです。
  
  Lotus Scriptから起こすときは、shell関数とか使えばいいのかも。やったことないですが。
  
  
• 別サーバでPumpが稼動しているとき。
  目的のアクティビティ文書の"RunASAP"フィールドの値に1("1"ではなくて1)をセットすると、Pumpサーバの方で実行対象として拾ってくれるみたいです。
  対象を検索する間隔は1分間隔って聞きました。ので、実行されるまでには最大1分のタイムラグがあるかも。
  アクティビティの実行結果を拾って何かするのは難しいかと思います。
  
  ■以下サンプル。動くかな？緑字アンダーラインのところは環境に合わせて適当に。
  

  	Dim session As New notessession
  	Dim pumpdb As NotesDatabase	
  	Dim pumpview As notesview
  	Dim pumpdoc As notesdocument
  	
  	Dim Keys(0) As String
  	
  	'Pumpサーバとビューを設定	
  	Set pumpdb=New Notesdatabase("PUMPサーバ名","LEI AdministratorDB名")
  	Set pumpview=pumpdb.GetView("_Activities\By _Name")
  	
  	'アクティビティ名セット
  	keys(0) ="アクティビティ名"
  	Set pumpdoc = pumpview.GetDocumentByKey(keys,True)
  	
  	If pumpdoc Is Nothing Then
  		Print "アクティビティ文書がありません"
  	Else
  		Call pumpdoc.ReplaceItemValue("RunASAP",1) 
  		Call pumpdoc.save(True,True)
  		Print "アクティビティを起動しました"
  	End If
  

目次に戻る