• 🚨 24 часа до повышения цены на курс «Пентест Active Directory: от теории к практике» от Академии Кодебай

    🔍 Изучите реальные техники атак на инфраструктуру Active Directory: от первоначального доступа до полной компрометации.
    🛠️ Освойте инструменты, такие как BloodHound, Mimikatz, CrackMapExec и другие.
    🧪 Пройдите практические лабораторные работы, имитирующие реальные сценарии атак.
    🧠 Получите знания, которые помогут вам стать востребованным специалистом в области информационной безопасности.

    Последний день записи в текущий поток по старой цене Подробнее о курсе ...

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

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

jcolor

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

Спасибо
 
Попробуй так. Хотя не понятно, зачем тебе это нужно.
Код:
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
 
<!--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]

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

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

Курс AD