Отправление Сообщения С Определенной Информацией

@umyssyx · Регистрация: 09.12.2011

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

Добрый день!

Есть задача - с нужного документа беруться нужные поля и автоматически на e-mail отправляются конкретному адресату.
Подскажите, как это должно работать и как это реализовать на lotus script?

Спасибо!

@morphyus · 26.12.2011, 12:05

LotusScript
1
2
3
4
5
6
7
8
9
Sub SendAlert( maindoc as NotesDocument )
Dim doc as NotesDocument
 
Set doc = new NotesDocument( {тут любая база, может быть текущая} )
 
Set Doc.ReplaceItemValue("Subject", maindoc.GetItemValue("MyFIELD") )
 
Call notesDocument.Send( false, "me@acme.com" )
End sub

@umyssyx · 26.12.2011, 12:13

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

LotusScript
1
2
3
4
5
6
7
8
9
Sub SendAlert( maindoc as NotesDocument )
Dim doc as NotesDocument
 
Set doc = new NotesDocument( {тут любая база, может быть текущая} )
 
Set Doc.ReplaceItemValue("Subject", maindoc.GetItemValue("MyFIELD") )
 
Call notesDocument.Send( false, "me@acme.com" )
End sub

спасибо! сейчас попробую...

@umyssyx · 26.12.2011, 12:45

так не работает, может как-нить на основе этого?
а какой принцип формирования и отаравки сообщения?

LotusScript
1
2
3
4
5
6
7
8
9
10
11
Sub Click(Source As Button)
 
Set docMail = db.CreateDocument
docMail.Form = "Memo"
docMail.SendTo = "me@acme.com"
docMail.Subject = "Выставлен ДОП " + doc.ClientOrSupplier + doc.Name(0)
 
docMail.Body = "Сегодня отмечает ДР " + doc.ContactName(0) + ". Компания: " + doc.PartnerNameR(0)
Call docMail.Send(True, doc.DRSent)
 
End Sub

@morphyus · 26.12.2011, 12:51

1. ошибка тут
docMail.Subject = "Выставлен ДОП " + doc.ClientOrSupplier(0) + doc.Name(0)
Call docMail.Send(False , doc.DRSent)

2. Что именно не работает, угадывать не умеем
3. Ставте более однозначные вопросы

@umyssyx · 26.12.2011, 13:00

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

2. Что именно не работает, угадывать не умеем

пардон! не дописал.
ругается, что нельзя так указывать поле.

LotusScript
1
Set Doc.ReplaceItemValue("Subject", maindoc.GetItemValue("поле") )

@morphyus · 26.12.2011, 13:10

unescix
Call Doc.ReplaceItemValue ( ... )

@umyssyx · 26.12.2011, 14:16

а вообще, в теории как должно происходить?

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

@morphyus · 26.12.2011, 14:22

unescix
в общем можно и так, а можно и по другому.

@ottyx · 26.12.2011, 14:28

LotusScript
1
2
3
4
5
6
7
8
9
10
11
Sub Click(Source As Button)
 
Set docMail = db.CreateDocument
docMail.Form = "Memo"
docMail.SendTo = "me@acme.com"
docMail.Subject = "Выставлен ДОП " + doc.ClientOrSupplier + doc.Name(0)
 
docMail.Body = "Сегодня отмечает ДР " + doc.ContactName(0) + ". Компания: " + doc.PartnerNameR(0)
Call docMail.Send(True, doc.DRSent)
 
End Sub

Что есть doc

Если так

Set Doc.ReplaceItemValue("Subject", maindoc.GetItemValue("поле") )

то смотрите чем разделение значений в "поле" происходит (должно быть запятые)

@umyssyx · 27.12.2011, 12:03

LotusScript
1
2
3
4
5
Dim doc As NotesDocument
 
Set doc = New NotesDocument(RequestNumber.nsf)
Call Doc.ReplaceItemValue("Subject", maindoc.GetItemValue("Name") )
Call Doc.Send(False, "123@gmail.com" )

базу я указал, а как существующую форму указать?

@morphyus · 27.12.2011, 12:12

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

а как существующую форму указать?

а что это значит?

@mvyush · 27.12.2011, 12:15

LotusScript
1
Set doc = New NotesDocument(RequestNumber.nsf)

Это что??? Не путайте имя базы в ОС и объект в памяти (переменную) типа NotesDatabase. Если у Вас есть инициализированный maindoc используйте maindoc.ParentDatabase:

LotusScript
1
Set doc = New NotesDocument(maindoc.ParentDatabase)

> базу я указал, а как существующую форму указать?
А это вообще о чём?

@umyssyx · 27.12.2011, 12:20

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

а что это значит?

У меня есть база RequestNumber в ней есть форма "Доп операции", на которой есть поле Name.
На форме кнопка с этим кодом, чтобы отправляло значение поля Name на указаный адрес.
Базу я указал поле тоже указано, а форму где нужно прописывать?

@morphyus · 27.12.2011, 12:36

unescix
Вам срочно надо обучиться обьектной модели лотус-нотеса.

Вставить в код с кнопкой на форме документа (в дизайнере)

LotusScript
1
2
3
4
5
6
7
8
9
10
11
Dim ws as new NotesUIWorkspace, doc as notesDoucment, db as NotesDataBase
Set doc =ws.currentdocument.document
Set db = doc.ParentDatabase
 
Set docMail = db.CreateDocument
docMail.Form = "Memo"
docMail.From = "me"
docMail.Subject = "Выставлен ДОП " + doc.ClientOrSupplier(0) + doc.Name(0)
docMail.Body = "Сегодня отмечает ДР " + doc.ContactName(0) + ". Компания: " + doc.PartnerNameR(0)
 
Call docMail.Send(False, doc.DRSent)

@umyssyx · 28.12.2011, 22:30

Огромное спасибо!
Все работает.
А Lotus я только начал изучать.

01.04.2012, 15:04

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

unescix
Вам срочно надо обучиться обьектной модели лотус-нотеса.

Вставить в код с кнопкой на форме документа (в дизайнере)

LotusScript
1
2
3
4
5
6
7
8
9
10
11
Dim ws as new NotesUIWorkspace, doc as notesDoucment, db as NotesDataBase
Set doc =ws.currentdocument.document
Set db = doc.ParentDatabase
 
Set docMail = db.CreateDocument
docMail.Form = "Memo"
docMail.From = "me"
docMail.Subject = "Выставлен ДОП " + doc.ClientOrSupplier(0) + doc.Name(0)
docMail.Body = "Сегодня отмечает ДР " + doc.ContactName(0) + ". Компания: " + doc.PartnerNameR(0)
 
Call docMail.Send(False, doc.DRSent)

Здравствуйте! Вопрос такой: "Будет ли работать данный скрипт на вэбе?". То есть при использовании в xpages.
Просто сам только учусь и поэтому всех тонкостей не знаю.

@morphyus · 01.04.2012, 15:08

morda
в общем - можно вызвать из хПагов агента на ЛС,
в часвном случае - смотреть что и как

@hosm · 01.04.2012, 15:14

это надо будет переписать:
Dim ws as new NotesUIWorkspace, doc as notesDoucment
Set doc =ws.currentdocument.document
на вебе так нельзя.

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@umyssyx 0 / 0 / 0 Регистрация: 09.12.2011 Сообщений: 24

	Отправление Сообщения С Определенной Информацией 26.12.2011, 11:51. Показов 17881. Ответов 18 Метки нет (Все метки) Добрый день! Есть задача - с нужного документа беруться нужные поля и автоматически на e-mail отправляются конкретному адресату. Подскажите, как это должно работать и как это реализовать на lotus script? Спасибо! 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	26.12.2011, 12:51
	1. ошибка тут docMail.Subject = "Выставлен ДОП " + doc.ClientOrSupplier(0) + doc.Name(0) Call docMail.Send(False , doc.DRSent) 2. Что именно не работает, угадывать не умеем 3. Ставте более однозначные вопросы 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	26.12.2011, 13:10
	unescix Call Doc.ReplaceItemValue ( ... ) 0

@umyssyx 0 / 0 / 0 Регистрация: 09.12.2011 Сообщений: 24
	26.12.2011, 14:16
	а вообще, в теории как должно происходить? выбираем базу, выбираем документ, выбираем значения полей и добавляем их в сообщение.... так? 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	26.12.2011, 14:22
	unescix в общем можно и так, а можно и по другому. 0

@umyssyx 0 / 0 / 0 Регистрация: 09.12.2011 Сообщений: 24
	28.12.2011, 22:30
	Огромное спасибо! Все работает. А Lotus я только начал изучать. 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	01.04.2012, 15:08
	morda в общем - можно вызвать из хПагов агента на ЛС, в часвном случае - смотреть что и как 0

@hosm 0 / 0 / 0 Регистрация: 15.05.2009 Сообщений: 1,454
	01.04.2012, 15:14
	это надо будет переписать: Dim ws as new NotesUIWorkspace, doc as notesDoucment Set doc =ws.currentdocument.document на вебе так нельзя. 0