а что это за поле? вы уверены что его имя SendTo?
дебажите кнопку или агент (агент нинада дебажить - он на сервре д.б. запущен)
и док надо сохранить! перед запуском агента
-
Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
дебажите кнопку или агент (агент нинада дебажить - он на сервре д.б. запущен)
и док надо сохранить! перед запуском агента
SendTo - поле в почтовой бд, кому отправится письмо
Код:
Call doc1.Save( False, True )
Set agent = db.GetAgent("(mailsend)")
Call agent.RunOnServer(doc1.NoteID)
Вспоминаем:
Добавлено: откорректировал, т.к. ошибся, сорри
Агент не надо запускать из меню (поставьте лучше в свойствах агента Триггер = "Он эвент", а в выпадающем списке "Агент лист селекшин", Таргет = "Ноне"), его надо запускать по кнопке с помощью RunOnServer!
Добавлено: откорректировал, т.к. ошибся, сорри
да оно так и сделано
база обычная почтовая + агент + на форме кнопка
просто не знаю, как здесь делать вложения
рядом с "Отправить" есть "Расширенная форма", туда тыкаешь и внизу бедет зелёная кнопка с "Загрузить"
не забудь зажать в zip
VladSh 
там проблемы, что мы не знаем имени получателя (он где-то выбирается и не сохраняется в документе и недоступен агенту, отправляющему сообщения), а мейл компании - это должен быть отправитель.
link removed
там проблемы, что мы не знаем имени получателя (он где-то выбирается и не сохраняется в документе и недоступен агенту, отправляющему сообщения), а мейл компании - это должен быть отправитель.Расширенная форма и там смотреть, в общем 2й абзац
ага, еще вспомни про дать доступ к дизайну и снять лок.шифрование =) злая я сеня, надо прогуляться
станно, но если в агенте поменять send = doc.SendTO(0) на send = doc.From(0) , то письма приходят, но не тому кому надо
Код:
Dim uidoc As NotesUIDocument
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim agent As NotesAgent
Set db = s.CurrentDatabase
Dim ws As New NotesUIWorkspace
Set uidoc=ws.CurrentDocument
If uidoc.ModifiedSinceSaved=True Then
Call uidoc.Save
End If
Set doc1 = uidoc.Document
Call doc1.ReplaceItemValue("Principal","")
Call doc1.ReplaceItemValue("Subject",doc1.Subject(0))
Call doc1.ReplaceItemValue("SendTo",doc1.EnterSendTo(0))
Call doc1.Save( False, True )
Set agent = db.GetAgent("(mailsend)")
Call agent.RunOnServer(doc1.NoteID)вот так все отправляется
Добавлено: появилось еще два вопроса:
1) можно ли удалять письмо при отправке с Черновиков и сохранять в Отправленные
2) как при нажатии кнопки закрыть сразу закрывать письмо , без вопроса о сохранении или отправке....?
Код:
Call uidoc.Save
uidoc.Closeи еще сразу вопрос: send = Split(doc1.EnterSendTo(0), ",") если писать так когда выбрано несколько адресатов, то не смотря на то, что в дебагере показывает, что там несколько ФИО, все равно отправляет только одному. Как правильно записывать?
EnterSendTo - это круто!
Хотя всё это идеологически неправильно. А если пользователь удалит из отправленных?
Надо делать отдельную базу с "исходящими" доками, которые программно отправлять, т.е. они будут всегда в базе (запрет на удаление поставить), и статусы доку можно гибко прописывать, что типа "Отправлен" и т.д.
А вообще всегда по одному отправляю - появляется возможность определить, на ком сбойнуло. NotesDocument.Send в цикле, разворачивая массив получателей.
Насколько я помню, то Черновики и Отправленные - это папки, т.е. по идее надо сделать RemoveFromFolder и MoveToFolder в другую.
Хотя всё это идеологически неправильно. А если пользователь удалит из отправленных?
Надо делать отдельную базу с "исходящими" доками, которые программно отправлять, т.е. они будут всегда в базе (запрет на удаление поставить), и статусы доку можно гибко прописывать, что типа "Отправлен" и т.д.
Какие-то вопросы непонятные..
Да так и правильно. Я ещё NotesUIDocument.Refresh перед Save делаю..
А вообще всегда по одному отправляю - появляется возможность определить, на ком сбойнуло. NotesDocument.Send в цикле, разворачивая массив получателей.
не подходит мне то, что при нажатии на кнопку письма отправляются, но при этом происходит не закрытие письма, а выдает сообщение: "Do you want to send, save or discard your changes& Chosse Cancel to continue editing"
Вот и пытаюсь от него избавиться
вбейте в форму поле типа CFD(computed for display): SaveOptions равно "00"
никоды спрашивать не буить, а при save - сохранит
Добавлено:
никоды спрашивать не буить, а при save - сохранит
Добавлено:
а ведь цать раз спросили - как поле называется...
Дык в том-то и дело, что не знал! С письмами работали обычно извне, т.е. когда канало SendTo, а из УЁв оказывается иначе...а ведь цать раз спросили - как поле называется...
1KIA
За отображение окошка ещё поле MailOptions отвечает (я бы попробовал "0").
В крайнем случае придётся бэкэндное сохранение делать.
там в свойствах формы (или в каких-то кверях формы) прописано показывать диалог mailsend, не помню уже.... там от какого-то поля зависит, показывать или нет... скорее всего Влад прав, что это MailOptions.
Обучение наступательной кибербезопасности в игровой форме. Начать игру!