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

  • Автор темы Lokky
  • Дата начала
L

Lokky

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

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

Собственно говоря все... Кому не тяжело, помогите чайнику в этом деле...)
 
A

allex

Гость
#2
Ну вот как то так

<!--shcode--><pre><code class='vb'>dim 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]
 
L

Lokky

Гость
#3
Огромное спасибо! :rolleyes::blush:

но только одно но... список адресов один. меняется только значение до @zzz.com.ua. Весь список загнать в код не реально. нужна просто переменная(переменная X, которая равна X@zzz.com.ua) и достаточно только ввести ее; то есть в поле вводишь 10, и ей присваивается значение 10@zzz.com.ua. :blush:
 
A

allex

Гость
#4
++ ки в репутацию

но только одно но... список адресов один. меняется только значение до @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]