Lotus notes 我怎样才能通知其他地址注释？

我使用的是IBM Designer 9.0，因此在向笔记本发送通知时遇到问题

我测试了在互联网上找到的代码，但它不起作用

Sub CreateMailNotification(doc As notesdocument, strSendTo As Variant, strSubject As String, strCopyTo As Variant)

  Dim session As notessession
  Dim db As notesdatabase
  Dim docMail As notesdocument
  Dim rtitem As Variant

  Set db = doc.parentdatabase
  Set session = db.Parent
  Set docMail=db.createdocument
  Set rtitem=docMail.CreateRichTextItem(“Body”)

  If strSendTo(0)=”” Then Exit Sub

  ‘=====set mail
  docMail.Form = “Memo”
  docMail.From = session.UserName
  docMail.Principle = session.UserName
  docMail.SendTo = strSendTo

  If Isarray(strCopyTo) Then
    If strCopyTo(0)<>”” Then
      docMail.CopyTo = strCopyTo
    End If
  Else
    If strCopyTo<>”” Then
      docMail.CopyTo = strCopyTo
    End If
  End If

  docMail.Recipients = strSendTo
  docMail.Subject = strSubject
  docMail.PostedDate = Now

  ‘=====set body field
  Call rtitem.AppendText(“Please click this doclink to see more details about the status ” + ” “)
  Call rtitem.AppendDocLink( doc, “click to open document”)
  Call rtitem.AddNewLine( 2 )

  ‘=====send mail
  Call docMail.send(False)
End Sub


call Call CreateMailNotification (doc, doc.nmSendTo, strSubject,doc.nmCopyTo)

Sub-CreateMailNotification（doc作为notesdocument，strSendTo作为Variant，strSubject作为String，strCopyTo作为Variant）
将会话设置为便笺会话
Dim db As notesdatabase
Dim docMail As notes文档
作为变体的Dim-rtitem
Set db=doc.parentdatabase
Set session=db.Parent
设置docMail=db.createdocument
Set rtitem=docMail.CreateRichTextItem（“正文”）
如果strSendTo（0）=“”，则退出Sub
'=======设置邮件
docMail.Form=“Memo”
docMail.From=session.UserName
docMail.Principle=session.UserName
docMail.SendTo=strSendTo
如果是Isarray（strCopyTo），那么
如果strCopyTo（0）”，则
docMail.CopyTo=strCopyTo
如果结束
其他的
如果strCopyTo为“”，则
docMail.CopyTo=strCopyTo
如果结束
如果结束
docMail.Recipients=strSendTo
docMail.Subject=strSubject
docMail.PostedDate=现在
'====设置正文字段
调用rtitem.AppendText（“请单击此doclink查看有关状态“+”的更多详细信息”）
调用rtitem.AppendDocLink（文档，“单击打开文档”）
调用rtitem.AddNewLine（2）
'=======发送邮件
呼叫docMail.send（错误）
端接头
调用CreateMailNotification（doc，doc.nmSendTo，strSubject，doc.nmCopyTo）

我对这两条线有问题

调用rtitem.AppendText（“请单击此doclink查看有关状态“+”的更多详细信息”） 调用rtitem.AppendDocLink（文档，“单击打开文档”）

---

调用rtitem.AddNewLine（2）

通常，rtitem是文档中引用的富文本项。正如ben之前所建议的，您可以通过执行“onerror goto”来执行简单的错误检查，或者可以打开lotusscript调试器“tools…\debug lotusscript”，然后逐步执行代码（这是我喜欢的），或者您可以在代码中的不同位置执行打印语句：“打印1”。这将显示在状态栏的底部。或者您甚至可以执行“messagebox（'test'）”来弹出一个窗口。有很多选项。最后两个选项我在调试web时一直使用。我使用
打印“
打印”警报（“+”测试“+”）“
打印”

---

这给了我一些提示的位置，当它们停止时，在上一个提示之后和下一个提示崩溃之前的某个地方。

您的数据库中有默认视图和默认表单吗？添加一些errorhandler，然后您会得到一条errormessage，您可以使用它进行进一步的研究……我看不出这段代码有任何问题（乍一看）。“我有一个问题”不是一个正确的错误描述！！！我同意umeli…设置一个“on error”和匹配处理程序。变量的使用使我畏缩：请将“Dim rtitem As Variant”替换为“Dim rtitem As NotesRichTextItem”Sub-CreateMailNotification Dim rt As NotesRichTextItem Set doc=curDb.CreateDocument doc.form=“Memo”doc.Sendto=“admin/is”doc.subject=“Formulaire ajouté”Set rt=doc.CreateRichTextItem（“Body”）Call rt.AppendText（“Bomjour”）Call rt.AddNewline（2）Call rt.AppendDocLink（Masque.doc）”）Call doc.Send（False）用此代码替换了End Sub I