Решено Отправка письма автоматически

[k85]

в базе есть форма, в ней заполняют поля, далее нажатием кнопки, регистрируется новый пользователь

reg.Expiration = dt
reg.IDType = ID_HIERARCHICAL
reg.MinPasswordLength = 6	 
...
Call reg.RegisterNewUser(_
LastName, _
...
Set db2 = session.GetDatabase(resSer,  "names.nsf")
If (db2.IsOpen) Then
 
Set view = db2.GetView("($Users)") 
Call view.Refresh
itemf=doc.GetItemValue("LastName")(0) +" "+doc.GetItemValue("FirstName")(0)

Хотелось бы в той же форме автоматически отправлять письмо с настройками коннекшинов. Например в этой же форме с данными нажать кнопку, по которой будет создаваться письмо со вложенной кнопкой.
С кнопкой вроде получается, а вот как автоматически создавать письмо и отправлять из базы не могу сообразить
Может есть кто-то кто может помочь?

 

[k85]

mSubject = Doc.Name(0) '"Письмо с настройками"
TBody = { необходимо нажать кнопку. } &< и здесь должна быть кнопка
...note.DisplayName="name"
note.Destination="name"
note.OptionalNetworkAddress="name"...>

 

[susinmn]

mSubject = Doc.Name(0) '"Письмо с настройками"
TBody = { необходимо нажать кнопку. } &< и здесь должна быть кнопка
...note.DisplayName="name"
note.Destination="name"
note.OptionalNetworkAddress="name"...>

Кнопку создаешь сам в настроечном документе в Rt поле. При создании письма ее копируешь.
P.S.: сообщение сразу после регистрации, возможно, не отправится. Делай по расписанию и лови ошибки при отправке.

 

[k85]

эх точно, тогда точно 1 кнопка регистрирует, обновляется Ак и потом нажимаю в той форме 2ую кнопку, по которому отправляется уже письмо
С Rt поле не пойму, это поле в настроечном документе просто создать? пробую в самой форме создавать и при открытии формы мне в АК коннекшины сразу отправляет

 

[susinmn]

С Rt поле не пойму, это поле в настроечном документе просто создать? пробую в самой форме создавать и при открытии формы мне в АК коннекшины сразу отправляет

Создаешь форму с RT полем, создаешь док (*) по этой форме, в RT создаешь свою кнопку. При создании письма пользователю, получаешь (*) и копируешь

maildoc.principal="Отдел кадров"
Set rtitem = New NotesRichTextItem(maildoc, "Body")
maildoc.Subject = "Отдел кадров информирует, что " & startDate.DateOnly & " - первый день Вашего очередного отпуска"
Call rtitem.AddNewline(2)
Call rtitem.AppendText("Соответствующий документ открывается щелчком по иконке - ")
Call rtitem.AppendDocLink(doc, "")
Call rtitem.AddNewline(1)
 
richStyle.Bold = True
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText("Если Вы согласны с датами отпуска")
richStyle.Bold = False
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText(" - нажмите на кнопку ")
Call rtitem.AppendRTItem(RtitemWithButton)

 

[k85]

не могу никак понять
Создаю форму ButDop , в ней поле Rich Text - ButDop (с необходимыми данными для заполнения)
в основной форме, создаю кнопку

doc.principal=doc.FIO(0)
Set rtitem = New NotesRichTextItem(doc, "Body")
doc.Subject = "Настройки  "
Call rtitem.AddNewline(2)
Call rtitem.AppendText(".... - ")
Call rtitem.AppendDocLink(doc, "")
Call rtitem.AddNewline(1)
 
Dim rt As NotesRichTextItem
Dim richStyle As NotesRichTextStyle
Set richStyle = s.CreateRichTextStyle
 
' получить из формы ButDop поле ?
Set db = s.CurrentDatabase
[B]Set memo = db.GetForm("ButDop") ' - находит нормально[/B]
 
[B]Set rt=memo.GetFirstItem("ButDop") ' - does not exist[/B]
 
 
richStyle.Bold = True
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText("....  ")
richStyle.Bold = False
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText(" - нажмите на кнопку ")
Call rtitem.AppendRTItem( rt )

Что не так делаю?

 

[lmike]

коллеги, похвально что вы оформляете код в теги, но будьте последовательны - указывайте соот. тип(lotusscript)

 

[k85]

коллеги, похвально что вы оформляете код в теги, но будьте последовательны - указывайте соот. тип(lotusscript)

не заметно было, исправлюсь в дальнейшем

 

[lmike]

Set memo = db.GetForm("ButDop") ' - находит нормально
Set rt=memo.GetFirstItem("ButDop") ' - does not exist

это есть только в готовом доке (т.е. в БД надо создать настроечный док и искать его, например по линку или UNID)

 

[k85]

@lmike,
@susinmn,
огромное спасибо!
еще осталась одна проблема в той кнопке, что в письме

 Call uidoc.Save()
Call uidoc.FieldSetText("SaveOptions", "0")
Set doc=uidoc.Document
Call uidoc.Close(True)
Call uidoc.DeleteDocument()

удаляется в корзину, а как удалить вообще это письмо, после нажатия и внесения данных ?

 

[lmike]

@k85, непонятно - зачем его сохранять, а потом устанавливать поле, а потом удалять?
да еще получать doc (зачем-то), а удалять по UI
ну на всяк случай

RemovePermanently (NotesDocument - LotusScript®)
Permanently deletes a document from a database, doing a hard deletion even if soft deletions are enabled.
Note: This method is new with Release 6.
Defined in
NotesDocument

[DOUBLEPOST=1450707741,1450707495][/DOUBLEPOST]и SaveOptions прописывают в бэкэнде (обычно), да еще получают само поле и устанавливают SaveToDisk в False

  Dim item As NotesItem
  Set item = doc.replaceItemvalue({SaveOptions},{0})
  item.SaveToDisk = False
  Call doc.Save(True, False)