Lotus notes Lotus Notes:Msgbox能否以与log.nsf相同的文本文件打印

Lotus notes Lotus Notes:Msgbox能否以与log.nsf相同的文本文件打印,lotus-notes,lotus-domino,lotusscript,lotus,lotus-formula,Lotus Notes,Lotus Domino,Lotusscript,Lotus,Lotus Formula,您好,我对在我的应用程序的log.nsf中写入日志的消息框有疑问。msgbox在生成日志时正在打印日志,但我已在路径E:\logs\a.txt(手动)中创建了一个文件。我必须将Msgbox消息记录在一个.txt文件中,以便任何人都能告诉我如何修改消息框,使其也能写入txt文件 现在我正在使用此代码打印log.nsf中的日志 Messagebox "Error id not found" 还有一些在哪里 Msgbox "Error id not found" 请帮助编辑此代码并将其打印到文本文

您好,我对在我的应用程序的log.nsf中写入日志的消息框有疑问。msgbox在生成日志时正在打印日志,但我已在路径E:\logs\a.txt(手动)中创建了一个文件。我必须将Msgbox消息记录在一个.txt文件中,以便任何人都能告诉我如何修改消息框,使其也能写入txt文件

现在我正在使用此代码打印log.nsf中的日志

Messagebox "Error id not found"
还有一些在哪里

Msgbox "Error id not found"

请帮助编辑此代码并将其打印到文本文件中。

使用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%

使用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%

为什么不使用NotesLog类呢?它用于所有日志记录目的(文件、代理日志、邮件…)

正如所建议的(谢谢!),一个简单的例子,直接来自帮助数据库:

Sub Initialize
  Dim currentLog As New NotesLog( "Checkup Agent" )
  Call currentLog.OpenMailLog( "Jimmy Ho", "Log for Checkup Agent" )
  Call currentLog.Close
End Sub
日志关闭后,将向Jimmy Ho发送一封邮件

设置日志还有其他方法:文件、代理、邮件和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中的可以为您做什么。

为什么不使用NotesLog类?它用于所有日志记录目的(文件、代理日志、邮件…)

正如所建议的(谢谢!),一个简单的例子,直接来自帮助数据库:

Sub Initialize
  Dim currentLog As New NotesLog( "Checkup Agent" )
  Call currentLog.OpenMailLog( "Jimmy Ho", "Log for Checkup Agent" )
  Call currentLog.Close
End Sub
日志关闭后,将向Jimmy Ho发送一封邮件

设置日志还有其他方法:文件、代理、邮件和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提供的服务。

#Michael谢谢。我将测试它,让您知道,并将选择最佳答案。请记住:要在基于服务器的代理上写入文件,您需要拥有在该服务器上运行“不受限制”代理的权限,并且代理需要在其安全设置中设置为该模式#Michael谢谢。我将测试它,让您知道,并将选择最佳答案。请记住:要在基于服务器的代理上写入文件,您需要拥有在该服务器上运行“无限制”代理的权限,并且代理需要在其安全设置中设置为该模式。这将是更好的解决方案,如果它包含示例代码…他要求提供“文件日志”。。。为此,我将更改示例代码;-)这将是IMHO更好的解决方案,如果它包含示例代码…他要求提供“文件日志”。。。为此,我将更改示例代码;-)