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

Belocarsk

New member
14.11.2013
2
0
#1
Здравствуйте, уважаемые мастера Лотуса! :) :)

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

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

Serduko

Well-known member
11.10.2011
170
0
#2
Здравствуйте, уважаемые мастера Лотуса! :) :)

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

Спасибо! 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.
 

savl

Lotus team
28.10.2011
2 131
102
#4
А в сообщениях есть файлы?
Формат сообщения какой? письмо обычное?