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

[jcolor]

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


Спасибо

 

[Medevic]

Попробуй так. Хотя не понятно, зачем тебе это нужно.

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

 

[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]

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