是否可以自动化Lotus Notes将本地文件发布到数据库?我需要每天将日志文件发布到notes数据库。我可以通过脚本收集日志文件,但不了解足够的Notes脚本以解决此问题。
我知道只要在PC上安装客户端就有COM接口,但我无法弄清如何将文件上传到数据库。我可以使用vbscript或(首选)powershell。
是否可以自动化Lotus Notes将本地文件发布到数据库?我需要每天将日志文件发布到notes数据库。我可以通过脚本收集日志文件,但不了解足够的Notes脚本以解决此问题。
我知道只要在PC上安装客户端就有COM接口,但我无法弄清如何将文件上传到数据库。我可以使用vbscript或(首选)powershell。
Set oNotesSession = CreateObject("Notes.Notessession") 'create notes session
Msgbox oNotesSession.NotesVersion
如果这样做可以,那么你就知道你做得很好。如果不行,请确保你已经正确安装了Lotus Notes并在客户端上进行了配置。
将本地文件发布到数据库的代码涉及连接Notes、创建新的Notes文档、将文件对象添加到文档正文中,然后保存。您可以使用任何类型的Notes数据库来完成此操作,但我建议基于文档库模板创建一个新的数据库,并使用它来存储您的文件。
以下是一些代码,它将创建一个新的Notes文档,设置主题字段,附加文件,然后保存文档。这假定已经有一个名为“FileStorage.nsf”的本地Notes数据库可用。
strFileName = "C:\Windows\Media\tada.wav"
strSubject = "Your Subject Goes Here"
Set oNotesSession = CreateObject("Notes.Notessession") 'create notes session
Set oDb = oNotesSession.GetDatabase("", "FileStorage.nsf") 'open database on local named FileStorage.nsf
Set oDoc = oDb.CreateDocument
' Filling the fields
oDoc.Subject = strSubject
Set oBody = oDoc.CreateRichTextItem("Body")
oBody.EmbedObject 1454, "", strFileName '1454 = Embedded Attachment type
oDoc.Save False, False