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

  • Автор темы jcolor
  • Дата начала
J

jcolor

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

Спасибо
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#2
Попробуй так. Хотя не понятно, зачем тебе это нужно.
Код:
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
 
J

jcolor

#3
<!--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]

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