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

@k85 · Регистрация: 07.02.2009

Студворк — интернет-сервис помощи студентам

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

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
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 · 17.12.2015, 14:55

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

@susymmm · 17.12.2015, 15:11

Сообщение от k85

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

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

@k85 · 17.12.2015, 15:54

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

@susymmm · 17.12.2015, 23:33

Сообщение от k85

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

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

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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 · 20.12.2015, 12:39

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

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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 )

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

@tmyky · 20.12.2015, 13:47

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

@k85 · 20.12.2015, 13:50

Сообщение от lmike

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

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

@tmyky · 20.12.2015, 13:53

Сообщение от k85

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

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

@k85 · 20.12.2015, 16:26

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

LotusScript
1
2
3
4
5
 Call uidoc.Save()
Call uidoc.FieldSetText("SaveOptions", "0")
Set doc=uidoc.Document
Call uidoc.Close(True)
Call uidoc.DeleteDocument()

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

@tmyky · 20.12.2015, 16:35

@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

--- Добавлено 21 дек 2015. Первое сообщение размещено 21 дек 2015 ---

и SaveOptions прописывают в бэкэнде (обычно), да еще получают само поле и устанавливают SaveToDisk в False

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@k85 0 / 0 / 0 Регистрация: 07.02.2009 Сообщений: 183
	17.12.2015, 14:55
	mSubject = Doc.Name(0) "Письмо с настройками" TBody = { необходимо нажать кнопку. } &< и здесь должна быть кнопка ...note.DisplayName="name" note.Destination="name" note.OptionalNetworkAddress="name"...> 0

@k85 0 / 0 / 0 Регистрация: 07.02.2009 Сообщений: 183
	17.12.2015, 15:54
	эх точно, тогда точно 1 кнопка регистрирует, обновляется Ак и потом нажимаю в той форме 2ую кнопку, по которому отправляется уже письмо С Rt поле не пойму, это поле в настроечном документе просто создать? пробую в самой форме создавать и при открытии формы мне в АК коннекшины сразу отправляет 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	20.12.2015, 13:47
	коллеги, похвально что вы оформляете код в теги, но будьте последовательны ;) - указывайте соот. тип(lotusscript) 0