Агент По Сохранению Тела Сообщения На Диск

[Belocarsk]

Здравствуйте, уважаемые мастера Лотуса!

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

Спасибо! :huh: B)

 

[Serduko]

Здравствуйте, уважаемые мастера Лотуса!

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

Спасибо! B) B)

Dim session As New NotesSession
Dim Stream As NotesStream

Set stream=session.CreateStream 
Call Stream.Open("C:\вашфайл.txt")
Call Stream.WriteText("ваш текст")
Call Stream.Close

Для перехода на следующую строку в тексте можно использовать, либо добавляя Chr$(13) + Chr$(10), либо построчно в цикле вызывать Stream.WriteText.

 

[ToxaRat]

Call Stream.WriteText("ваш текст")

неправильно, нужно так
Call Stream.WriteText("Тело сообщения")

 

[savl]

А в сообщениях есть файлы?
Формат сообщения какой? письмо обычное?

 

[afest]

неправильно, нужно так
Call Stream.WriteText("Тело сообщения")

неа, нужно так:
Call Stream.WriteText("Пиченьки/Пыво, нужное подчеркнуть")

 

[Belocarsk]

А в сообщениях есть файлы?
Формат сообщения какой? письмо обычное?

В сообщениях нет прицепов. Письма обычные, текста