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

Тема в разделе "Lotus - Программирование", создана пользователем Lokky, 11 ноя 2009.

  1. Lokky

    Lokky Гость

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

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

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

    allex Гость

    Ну вот как то так

    <!--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]
     
  3. Lokky

    Lokky Гость

    Огромное спасибо! :rolleyes::blush:

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

    allex Гость

    ++ ки в репутацию

    Тогда создать отдельный документ, где бы вы смогли держать список адресов
    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]
     
Загрузка...

Поделиться этой страницей