Question

我正在使用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)

这两行我有问题

致电rtitem.AppendText（“请点击此文档链接以查看有关状态“ +”“的更多详细信息）调用rtitem.AppendDocLink（doc，“单击以打开文档”）致电rtitem.AddNewLine（2）

Answer 1

通常，rtitem是文档中引用的富文本项。正如之前建议的那样，您可以通过执行“ onerror goto”来进行简单的错误检查，也可以打开lotusscript调试器，“ tools ... \ debug Lotusscript”，并逐步执行代码（这就是我喜欢的东西）），也可以在代码的不同位置执行打印语句：“ print 1”。这将显示在状态栏的底部。或者，您甚至可以执行“ messagebox（'test'）”弹出窗口。很多选择。在调试网络时，我始终使用最后两个选项。我使用
打印“ <脚本语言= JavaScript>”
打印“ alert（'” +“测试” +“'）”
打印“ ”

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

如何通知其他地址说明？

1 个答案: