Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lotus Notes/Domino: Программирование
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/48: Рейтинг темы: голосов - 48, средняя оценка - 4.54
tokky
0 / 0 / 0
Регистрация: 06.11.2009
Сообщений: 155
1

Процедура для кнопки

09.11.2009, 23:55. Просмотров 8571. Ответов 3
Метки нет (Все метки)

Есть кнопка на форме. Нужна процедура, с помощью которой при нажатии на кнопку:

1) высвечивалось поле, куда нужно ввести почтовый адрес;
(а точнее есть список адресов например 1@zzz.com.ua, 2@zzz.com.ua и в этом поле достаточно было ввести например "1" или "2" и этого было б достаточно)
2) после нажатия ОК, на этот адрес отсылался файл, который хранится локально.

Собственно говоря все... Кому не тяжело, помогите чайнику в этом деле...)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2009, 23:55
Ответы с готовыми решениями:

несколько команд для одной кнопки
Возник вопросик. Возможно ли в Lotuse задать одной кнопке несколько команд. И чтоб они выполнялись...

Процедура для кнопки
Ребята как написать в это процедуру void tw_Tick(object sender, EventArgs e) { ...

Процедура для Кнопки "Отмена"
procedure TAddStandart.Button2Click(Sender: TObject); begin if DataModule2.ADOStandart.Modified...

"Одноразовая" процедура для кнопки
StreamWriter sw; sw = File.CreateText("myFile.txt"); ...

Процедура кнопки
Привет всем. Я создаю програмку, и уменя возникает одна небольшая проблемка. Всё дело в том, что...

3
ottyx
0 / 0 / 0
Регистрация: 10.09.2005
Сообщений: 560
10.11.2009, 07:42 2
Ну вот как то так

<!--shcode--><pre><code class=vb>dym ws as new notesuiworkspace
Dim db As NotesDatabase
Dim s As New NotesSession
Dim doc As NotesDocument
Dim body As NotesRichTextItem
Set db = s.currentdatabase

filenames = ws.OpenFileDialog( True, "Файлы на отправку",, "c:\work")

Dim that As Variant
Dim thats(1) As Variant
thats(0) = "1@zzz.com.ua"
thats(1) = "2@zzz.com.ua"
that = ws.Prompt (PROMPT_OKCANCELLIST,"::.Выберите значение.::","::.адреса.::", thats(0), thats)
If that = "" Then
Exit Sub
End If

Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = that
doc.Subject ="Тема письма"
Set body = New NotesRichTextItem(doc, "Body")
Call body.EmbedObject(EMBED_ATTACHMENT, "", filenames)
Call doc.Send( False )[/CODE]
0
tokky
0 / 0 / 0
Регистрация: 06.11.2009
Сообщений: 155
10.11.2009, 19:05 3
Огромное спасибо! :blush:

но только одно но... список адресов один. меняется только значение до @zzz.com.ua. Весь список загнать в код не реально. нужна просто переменная(переменная X, которая равна X@zzz.com.ua) и достаточно только ввести ее; то есть в поле вводишь 10, и ей присваивается значение 10@zzz.com.ua. :blush:
0
ottyx
0 / 0 / 0
Регистрация: 10.09.2005
Сообщений: 560
11.11.2009, 08:39 4
Цитата Сообщение от Lokky
Огромное спасибо!
++ ки в репутацию



Цитата Сообщение от Lokky
но только одно но... список адресов один. меняется только значение до @zzz.com.ua.
Тогда создать отдельный документ, где бы вы смогли держать список адресов
pdoc as notesdocument
и в нем поле email

с форматом записи

1@zzz.com.ua; 2@zzz.com.ua

<!--shcode--><pre><code class=vb>Forall email_ In pdoc.email
thats = thats &";"& mail_
End Forall
thats = Right( thats, Len( thats) -1 )
res_email = Split(thats,";")
that = ws.Prompt (PROMPT_OKCANCELLISTMULT, "Выбор адресов", "выберите адрес(а) для отправки", thats(0), thats)[/CODE]
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.11.2009, 08:39

Процедура на нажатие кнопки
В этой процедуре если указать например нажатие на кнопку вниз, то при удержании её сначала идёт...

процедура с кнопки Этикетка
Заранее прошу прощения за несколько расплывчатый вопрос - просто нет под ругой данных для проверки....

После ввода текста жмем Enter, срабатывает процедура кнопки
всем доброго времени суток! ситуация: есть форма, на ней TextBox и Button. вводишь текст,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru