Lotus Notes：log.nsfと同じテキストファイルにMsgboxを印刷できる

Question

こんにちはすべて私のアプリケーションのlog.nsfにログを書き込むメッセージボックスに関しては疑問があります。msgboxは生成中にログを出力していますが、パスE：\ logs \ a.txt（手動）。私はそのa.txtファイルにMsgboxメッセージを記録しなければならないので、誰でもメッセージボックスを修正してtxtファイルに書き込む方法を伝えることができます。

今私はLOG.NSF

Messagebox "Error id not found" 

と

Msgbox "Error id not found" 

は親切にこのコードを編集して、テキストファイルに出力する方法を助けるところ、一部でログを印刷するには、このコードを使用しています。

Answer 1

MessageBoxを使用してこれを行うことはできません。ただし、Print＃ステートメント（LotusScript言語）を使用してデータをテキストファイルに書き込むことはできます。この例では、ローカルディスクにログファイルを書き込みます。

Dim fileNum As Integer 
fileNum% = Freefile() 
Open "d:\logfile.txt" For Output As fileNum% 
Print #fileNum%, "Error id not found" 
Close fileNum% 

Answer 2

なぜNotesLogクラスを使用しないのですか？これは、すべてのログ記録の目的のためにそこ（ファイル、エージェントログ、メール...）です

で示唆したように（ありがとう！）、簡単な例、ストレートヘルプデータベースから：

Sub Initialize 
    Dim currentLog As New NotesLog("Checkup Agent") 
    Call currentLog.OpenMailLog("Jimmy Ho", "Log for Checkup Agent") 
    Call currentLog.Close 
End Sub 

ログが閉じているとき、ジミー・ホーにメールが送られます。

ログをファイル、エージェント、メール、Notesデータベースに設定する方法は他にもあります。私は通常OpenNotesLogを使用しているので、Notesデータベースにログインできます。そのデータベースは、AgentLogテンプレートを使用して作成されている必要があります。

ファイルに：

In Declarations: 
    Dim currentLog As NotesLog 

Sub Initialize 
    Set currentLog As New NotesLog("My File Log") 
    Call currentLog.OpenFileLog("d:\logfile.txt") 
End Sub 

and elsewhere in your code: 

    Call currentLog.LogError (1001, "Id not found") 

ログは自動的に閉じられます。

OpenNTF.orgが提供するOpenLog projectも確認してください。