как я могу уведомить другие заметки об адресе? - PullRequest
Новая
       64

как я могу уведомить другие заметки об адресе?

0 голосов
/ 24 апреля 2019

Я использую 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)

1 Ответ

0 голосов
/ 25 апреля 2019

Обычно rtitem - это элемент расширенного текста, на который ссылается документ. Как уже предлагалось ранее, вы можете выполнить простую проверку ошибок, выполнив «onerror goto» или включив отладчик lotusscript, «tools ... \ debug lotusscript», и пошагово просматривая код (это то, что мне нравится ), или вы можете сделать операторы print в разных местах вашего кода: «print 1». Это будет отображаться в нижней части строки состояния. Или вы можете даже сделать «окно сообщения (« тест »)», чтобы иметь всплывающее окно. Много вариантов. Последние два варианта я использую все время при отладке для Интернета. Я использую
Print ""
Print "alert ('" + "Testing" + "')"
Print ""

Это дает мне места, где я получаю подсказки, и когда они останавливаются, где-то после последнего и до следующего, где происходит его сбой.

...