在LotusScript Agent中,如何获取当前服务器的名称？
在LotusScript Agent中，要获取当前服务器的名称，可以使用以下代码：
Dim session As NotesSession
Dim serverName As String
Set session = New NotesSession
serverName = session.GetEnvironmentString("ServerName", True)
MsgBox "当前服务器名称为：" & serverName这段代码中，我们使用了NotesSession类的GetEnvironmentString方法来获取当前服务器的名称。该方法的第一个参数为"ServerName"，表示要获取的环境变量名称，第二个参数为True，表示要获取的是本地服务器的名称。最后，我们将获取到的服务器名称显示在消息框中。
需要注意的是，这段代码只能在LotusScript Agent中使用，不能在其他编程语言中使用。
相关·内容
1回答
Lotus电子邮件自动化- db.CreateDocument命令失败
vba、excel、lotus-notes、lotus
我试图使用VBA自动通过LotusNotes9.0发送电子邮件。代码将加载便笺，这要求我的密码，但在密码提示出现之前，我得到一个错误。我运行的错误是“运行时错误”-2147417851(80010105)：服务器抛出一个异常“当我点击调试时，它失败的行是”设置obDoc = obDB.CreateDocument“。我在网上看到的很多例子都符合我在代码中所做的事情，所以我不知道问题出在哪里。
下面是代码：
Sub Send_Emails()
Dim stSubject As Variant
Dim emailList As Variant
Dim obSess As Object
Dim ob
浏览 3提问于2015-04-24得票数 0
回答已采纳
1回答
如何比较两个富文本字段的字符串
lotusscript
我想要一个lotusscript代码，可以比较两个富文本字段的字符串。我有两个名为form1和form2的表单，在每个表单中我都有一个名为"body“和"body1”的富文本字段。通过我的代码，我可以获得这两个字段的值，现在我想比较这两个字段，并在消息框中显示字符串的差异。
我的代码是：
Sub Click(Source As Button)
Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc, doc1 As NotesDocume
浏览 0提问于2010-12-07得票数 0
3回答
Lotusscript中的方法RunStkCoerceVal的类型不匹配
lotusscript
首先，我想说，我是一个开发Domino应用程序的初学者。因此，请在回答我可能愚蠢的问题时考虑这一事实。
我有以下问题：
当我执行下面的代码时，它运行到第一个MsgBox，它显示正常。但是它没有运行到第二个MsgBox！相反，我得到了以下错误消息：
Type mismatch in method RunStkCoerceVal in Lotusscript agent STRING found Null expected.
代码如下：
Dim session As NotesSession
Dim db As NotesDatabase
Dim ws As New Not
浏览 0提问于2013-01-22得票数 1
回答已采纳
1回答
使用Excel VBA通过Lotus Notes发送电子邮件
excel、vba、lotus-notes
我一直在研究如何通过Lotus Notus发送电子邮件，但我的数据库出错了。 我试着把""，"“放在一起，但没有成功。 Dim MailData As Object 'The email database
Dim Maildoc As Object 'The email itself
Dim Session As Object 'The notes session
linha = 2
Do Until Cells(linha, 1) = ""
Set Session = CreateObject("
浏览 16提问于2020-08-25得票数 0
1回答
Lotusscript:在PHP中从电子邮件向网站发送文件的问题
php、lotus-notes、lotus-domino、lotusscript
我想通过lotusscript代理将文件从我当前的电子邮件发送到我的网站。我想做这样的事情：(我知道这段代码不能工作，但它是为了展示想法) Sub Initialize
On Error GoTo ErrorHandler
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim item As Variant
Dim uidoc As NotesUIDocument
Dim CurrentDocColl As NotesDo
浏览 48提问于2021-01-18得票数 1
回答已采纳
2回答
在代理和按钮中调用脚本库
lotus-notes、lotusscript、lotus-formula
我想在按钮和代理中使用以下脚本库。
我的脚本库代码:验证
Option Public
Option Declare
Dim Sess As NotesSession
Dim currentDb As NotesDatabase
Dim dataDb As NotesDatabase
Dim doc As NotesDocument
Dim workspace As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim rtitem As NotesRichTextItem
Sub Initialize
Set Sess = New Note
浏览 2提问于2013-05-15得票数 0
回答已采纳
1回答
如何用VBA显示应用程序的窗口？(Lotus Notes)
vba、lotus-notes
当VBA代码在Lotus中编写邮件时，我希望显示Lotus窗口。我希望在所有操作中都显示Lotus窗口。
我试过这个代码：
Sub init_mail()
Dim oSess As Object
Dim ntsServer As String
Dim ntsMailFile As String
Set oSess = CreateObject("Notes.NotesSession")
ntsServer = oSess.GetEnvironmentString("MailServer", True)
ntsMailFile = oSess.GetEn
浏览 3提问于2016-12-05得票数 1
回答已采纳
2回答
注:没有读取功能的客户端搜索:我可以显示“存在但您没有权利阅读”吗？
lotus-notes、lotusscript
我需要检查(在便条客户最好在乐透)是否存在一个文档，但我没有在读者领域。
Set Doc = view.getdocumentbykey(index) 'returned Doc is nothing
我记得在旧版本的Notes中，我得到了一个文档，其中文档的items属性为nothing (因此，如果我没有权利看到这个文档，就无法看到item值，这是逻辑的)。有什么方法可以获得这个功能吗？
如果没有，什么是最好的？
在分类视图上评估一个DBLookUp (如果仍然有可能的话，当“不显示空类别是而不是选中.”时)
执行代表代理运行的代理(签名者将有权读取所有文档)，并且只有
浏览 0提问于2014-07-24得票数 1
回答已采纳
2回答
从UI中通过lotusscript调用的代理访问当前文档并显示消息框
lotus-notes、lotusscript、agents
我有一个具有以下代码的代理：
Sub Initialize
MessageBox "AgentStart"
Print "AgentStart"
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim vItemsBySupplierSpec As NotesView
Dim Doc As NotesDocument
Dim DocsWithSameSupplierSpec As No
浏览 4提问于2011-12-21得票数 3
回答已采纳
1回答
LS2J:将LS代理的会话转换为java类
java、lotus-notes、lotus-domino、lotusscript、ls2j
我有一个java类，它应该将数据从当前数据库传输到另一个服务器。要访问当前数据库，Java似乎需要一个工作的Session对象：
public class EdgeServerConnection
{
public EdgeServerConnection(Session session) {
try {
// How to get the session into here?
Database db = session.getCurrentDatabase();
...
} cat
浏览 1提问于2016-11-08得票数 1
回答已采纳
1回答
Lotus Domino9.0.x仍然支持REQUEST_CONTENT_nnn字段吗？
lotus-domino、lotusscript
在我的表单设计元素中，比如"form1"，出于某种原因，我需要禁用它原来的表单行为，并实现另一个表单。所以我在标有pass-thru的"form1“开头使用了</form>。然后，我在</form>下面放了一些直通http行，如下所示
<form name="simple" method="post" enctype="multipart/form-data" action="test?openagent">
<label for="username"
浏览 1提问于2015-02-19得票数 0
2回答
Lotus Notes数据库搜索
excel、vba、lotus-notes、lotus-domino、lotus
我正在尝试写一段代码来打开VBA并根据A1 (整数)中的单元格值进行搜索。我设法写了一段代码，在这里我可以打开lotus notes并转到特定的数据库。我尝试了许多在线代码，但都无法在数据库中找到要搜索的代码。"Lotus.NotesSession“不适用于我使用的excel版本。你能帮我完成这段代码吗？代码如下：
Sub macro4()
Dim uiWs As Object
Dim dbname As String
Dim serverName As String
Dim db As NotesDatabase
Dim doccol As NotesDocumentCollect
浏览 0提问于2019-01-28得票数 0
4回答
通过安装在intranet上的Lotus iNotes从access发送邮件
email、ms-access、vba、lotus-notes
我只是需要指出正确的方向，如何发送电子邮件使用VBA。我把Lotus作为一个电子邮件系统嵌入到我们的intranet系统中。
作为尝试，此代码准备一封电子邮件并通过Lotus (安装在pc上)发送：
Dim ns As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim sender, recipient As String
'sender = Forms![LogIn]![TxtEmail]
If (Not IsNull(DLookup("Email", "Users
浏览 1提问于2015-07-21得票数 1
回答已采纳
1回答
Lotus脚本:创建和打开未保存的克隆文档
lotus-notes
在lotus 6.5.6中，我有一个文档，其中有一个“克隆文档”按钮，它创建uidoc的副本并在工作区中打开它。我的问题是，当在工作区中打开克隆文档时，已经保存了，我不想这样做。我已经签了"Queryopen"，“Postopen”.但是没有一个doc.save电话。那么，如何在我的工作区中打开一个新的克隆文档而不保存它呢？这是我的错误代码。
Dim session As New notessession
Dim uiw As New notesuiworkspace
Dim uidoc As notesuidocument
Dim db As
浏览 6提问于2015-07-30得票数 0
回答已采纳
2回答
无法通过代理获取Domino服务器上temp文件夹中返回的文件列表
lotus-domino、lotusscript
我有一个LotusScript代理，签署了适当的ID，以拥有对服务器的完全访问权限。代理应返回临时文件夹中的文件列表。最终我会让这个代理在这里清理一个特定的文件夹。
问题是代理没有返回文件列表，尽管我知道文件就在那里！
我想知道我是否正在处理某种形式的限制(以及如何通过它)，或者我的代码是否不正确(如何更正它)。
该代码的灵感主要来自于IBM支持说明中的。
以下是代码
备注:未分配共享座席:是类型: LotusScript状态:禁用触发器:计划间隔:按计划多次按计划执行一天操作:无LotusScript代码：
%REM
Agent cleanupTempCatalogAlt2
浏览 0提问于2019-09-13得票数 0
2回答
如何用vba代码刷新lotus notes？
vba、excel、lotus-notes
我有一个vba代码，从莲花笔记下载附件，并标记为已读的电子邮件。但问题是UI不能自我刷新。即使文件已下载，它也会在UI中显示未读。我怎样才能纠正这个错误呢？
代码：
Option Explicit
Dim TimeToRun
Public RunWhen As Double
Const cRunInvtSecs = 5
Const cRunWhat = "Sheet1.Save_Attachments_Remove_Emails"
Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunInvtSecs)
Applicatio
浏览 0提问于2014-08-07得票数 0
1回答
Lotusscript计算服务器日期？
lotusscript、lotus-formula
如何在lotusscript中确定服务器的日期？我到处找了找，没有找到解决这个问题的方法。在@ 中，即使是一些接近可用的公式也被证明在lotusscript中太长，你可以直接使用evaluate。下面的代码有什么问题？
Dim serverDate, macro$
macro$="@Date(@Now([ServerTime];"devsvr/acme"))"
serverDate=Evaluate(macro$)
Msgbox serverDate
我好像不能让serverDate工作。总是有像‘类型不匹配’等错误。我需要它与我的代码中的其他日期进行比较。我
浏览 0提问于2012-08-27得票数 0
回答已采纳
1回答
将lotus notus数据库视图复制并粘贴到word文档中
vba、excel、ms-word、lotus-notes
下面的代码读取lotus notes中的电子邮件并将其插入到excel工作表中。但是，我想读取lotus notes数据库并复制其内容，然后将其作为富文本粘贴到word文档中。
我假设这行代码需要修改。
Set nitem = .GetFirstItem("Body")
最好的方法是什么？
Public Sub Lotus_Notes_Current_Email4()
Dim NSession As Object 'NotesSession
Dim NUIWorkSpace As Object 'NotesUIWorkspace
Dim NUIdoc As O
浏览 21提问于2017-08-29得票数 0
2回答
Lotus :创建一个文本文件
lotus-notes、lotus-domino、lotusscript、lotus、lotus-formula
我正在尝试在lotus中创建一个文本文件，我正在通过代理运行该文件。代理成功运行，但在lotus中指定的路径中没有创建文本文件。
这是莲花脚本代码：
Option Public
Sub Initialize
MsgBox " Agent AccessUserList"
On Error GoTo HandleError
Dim session As New NotesSession
Dim myStream As NotesStream
Dim TheDate As String, filename As String
浏览 1提问于2016-07-25得票数 1
回答已采纳
4回答
我正在尝试使用旧的LotusScript代理在XPage (创建新文档)上预先填充一些字段。我在XPage上的代码是：
<xp:dominoDocument var="document1"
formName="myForm">
<xp:this.postNewDocument><
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
