Lotus Notes - агент веб-формы - не отправка электронной почты

Question

У меня есть веб-форма, которая при нажатии кнопки должна вытащить список имен из поля и отправить почту. Почта не посылает .... Вот сценарий лотоса ... заранее спасибо

Sub Click(Source As Button) 
    Dim s As New NotesSession 
    Dim ws As New NotesUIWorkspace 
    Dim db As NotesDatabase 
    Dim view As NotesView 
    Dim doc As NotesDocument 
    Dim mdoc As NotesDocument 
    Dim ddoc As NotesDocument 
    If ws.CurrentDocument.IsNewDoc Then 
     Call ws.CurrentDocument.Save 
     Set db = s.CurrentDatabase 
     Set view = db.GetView("deptLookup") 
     Set doc = ws.CurrentDocument.Document 
     dept$ = doc.ProcDeptAssoc(0) 
     Set ddoc = view.GetDocumentByKey(dept$) 
     If ddoc Is Nothing Then 
      Msgbox "Department not found" 
     Else 
      Set mdoc = New NotesDocument(db) 
      mdoc.Subject = "Comment made on procedure " + doc.ProcNo(0) +" - "+doc.ProcName(0)+ " by " + doc.CreatedBy(0) 
      Dim rtitem As New NotesRichTextItem(mdoc, "Body") 
      Call rtitem.AppendText("Requires the approval of " +doc.approver(0)+", click the link and the approve or deny the request. ") 
      Call rtitem.AddNewline(1) 
      Call rtitem.AppendDocLink(doc, "CommentsDoc") 
      receipients = ddoc.NotifyName 
      mdoc.SendTo = receipients 
      mdoc.Send(False) 
     End If 
    Else 
     Call ws.CurrentDocument.Save 
    End If 
    ws.CurrentDocument.Close 
End Sub 

Answer 1

Если вы используете форму вместо XPage вам нужно будет разместить свой код в агенте и установить, что агент как WebQuerySave Агент формы. LotusScript под кнопкой не запускается при доступе из Интернета.

Также вы не можете использовать классы пользовательского интерфейса, такие как NotesUIWorkspace во внутреннем коде.

Answer 2

Можно перемещаться которые LotusScript Код агенту с триггером «выбором списка агента» и целевым «никто» и из веба-формы для использования @formula кнопки (не LotusScript) с этим @command:

@command ([RunAgent]; "NAME_OF_YOUR_AGENT");

Panu Haaramoroperties прав, когда он говорит, что событие щелчка Lotusscript в кнопках не работает с веб-формами, но @commands действительно работают.

Он также прав, когда сказал, что вам нужно заменить ссылку NotesUIWorkspace. Вы можете начать использовать:

s.documentContext вместо ws.CurrentDocument