Создать письмо

Тема в разделе "Lotus - Программирование", создана пользователем jcolor, 16 авг 2005.

  1. jcolor

    jcolor Гость

    Всем добрый день!
    Подскажите как программно можно реализовать следующее:
    Необходимо чтобы в базе при нажатии кнопки открывалась почтовая база текущего пользователя
    с новым документом, в кот. было бы уже заполнено поле SendTo
    :)

    Спасибо
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Попробуй так. Хотя не понятно, зачем тебе это нужно.
    Код (Text):
    Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim curdoc As NotesUIDocument
    Dim newdoc As NotesDocument
    Dim mailDB As NotesDatabase
    Dim mailDBPath As Variant

    Set curdoc = ws.CurrentDocument
    mailDBPath = Evaluate({@MailDbName})
    Set mailDB = New NotesDatabase(mailDBPath(0), mailDBPath(1))
    Set newdoc = New NotesDocument(mailDB)
    newdoc.Form = "Memo"
    newdoc.SendTo = "Vasya Pupkin"
    Call ws.EditDocument(True, newdoc)
    End Sub
     
  3. jcolor

    jcolor Гость

    <!--QuoteBegin-Medevic+16:08:2005, 12:04 -->
    <span class="vbquote">(Medevic @ 16:08:2005, 12:04 )</span><!--QuoteEBegin-->Хотя не понятно, зачем тебе это нужно.
    [snapback]23535" rel="nofollow" target="_blank[/snapback]​
    [/quote]

    Спасибо получилось!!!!
    Начальство захотело, чтобы при открытии в базе документа, в кот. есть электронные адреса
    рядом с адресом была кнопочка при нажатии на кот. открывалась база почты
    :)
     
Загрузка...

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