автоматическая рассылка ежедневно обновляемого файла

hoy · 28.01.2008

Помогите, пожалуйста новичку.

На работе с помощью програмки Contour Reporter создается OLAP отчет (обычный файлик, который автоматически сохраняется в заданном месте на диске).

Необходимо ежедневно автоматически рассылать данный файл с помощью Lotus Notes.

Я абсоллютно далек от программирования для Lotus

Если кто знает посоветуйте как это сделать

h34r:

fvoice · 29.01.2008

Для: hoy
файл создается на локальной машине одного из пользователей или на сервере?
Эта программа сама не умеет отправлять файлы по эл. почте?
Эта программа генерирует отчет по расписанию или кто-то вручную запускает процесс создания отчета?

hoy · 29.01.2008

Файл создается на локальной машине.

В самой программе может быть настроена отправка по электронной почте, но с точки зрения политики банка эти файлы должны распростроняться с помощью программы Lotus Notes

я уже научился пользоваться агентом по автоматической рассылки этого файла, но никак не могу найти то, как добавлять данный файл в базу

Sandr · 29.01.2008

Еслм файл находится локально, то необходимо, что бы агент рассылки выполнялся на вашей машине, а не на сервере.. тоесть, либо поставте себе сервер домино (что глупо делать для одной задачи расылки), либо запускайте агент руками (не по расписанию).

Агент должен создать notesDocument, приаттаить к нему файл (путь вы можете намертво забить в агент, а можете и воспользоваться OpenFileDialog), для аттача почитайте про notesRichTextItem, заполнить адресатов (создайте поле c именем SendTo и заполните его) а потом выполнить документу отправку notesDocument.send.

Это так.. на пальцах, но, думаю, понятно..

hoy · 29.01.2008

А где можно почитать про notesRichTextItem?

Хотя бы чтоб агент вручную заливал 14 файлов в 14 писем

каждое в свое письмо

wowa · 29.01.2008

Код:

' Инициализация документа письма 
Set docMemo = New NotesDocument(db)

' инициализация NotesRichTextItem для занесения информации в тело письма
Set rtiBody = New NotesRichTextItem( docMemo, "Body" )

' составление письма
With docMemo
Call .ReplaceItemValue( "Form", "Bookmark" )
Call .ReplaceItemValue( "BlindCopyTo", "НОТЕС_АДРЕС" )
Call .ReplaceItemValue( "Subject", "ТЕМА_ПИСЬМА" )
End With

' составление тело письма
With rtiBody
Call .AppendText ( "ТЕЛО_ПИСЬМА" )
Call .AddNewLine( 1 )
Call .AppendDocLink( doc, stBody) 
End With

' отправка письма
Call docMemo.Send( False )

doc - присоединенный документ

Oksana · 29.01.2008

hoy сказал(а):
Файл создается на локальной машине.

В самой программе может быть настроена отправка по электронной почте, но с точки зрения политики банка эти файлы должны распростроняться с помощью программы Lotus Notes

я уже научился пользоваться агентом по автоматической рассылки этого файла, но никак не могу найти то, как добавлять данный файл в базу

Не понятно, что мешает программе отпралять отчеты в Лотус. Возможно задача все-таки не требует программирования, а лишь правильных настроек.

fvoice · 29.01.2008

(hoy @ 29:01:2008, 13:08 )В самой программе может быть настроена отправка по электронной почте, но с точки зрения политики банка эти файлы должны распростроняться с помощью программы Lotus Notes unsure.gif

[snapback]95467" rel="nofollow" target="_blank[/snapback]

[/quote]
политики безопасности? или ради удобства?


(hoy @ 29:01:2008, 13:30 )А где можно почитать про notesRichTextItem?

[snapback]95480" rel="nofollow" target="_blank[/snapback]

[/quote]
в Лотус Дизайнере очень хороший хелп

Для: Sandr
Для: hoy
если вся бадяга локальная, то можно и без агента, сделать формочку, в ней поля: кому, что..?

hoy · 29.01.2008

программа ContourReporter генерит файлы, сохраняя их на диске и в таком виде файлы не могут быть отправлены программой самой, поэтому необходимо внедрять каждый из файлов в базу лотуса, а затем из этой базы они уже с помощью агента рассылаются

hoy · 29.01.2008

wowa сказал(а):

Код:

' Инициализация документа письма 
Set docMemo = New NotesDocument(db)

' инициализация NotesRichTextItem для занесения информации в тело письма
Set rtiBody = New NotesRichTextItem( docMemo, "Body" )

' составление письма
With docMemo
Call .ReplaceItemValue( "Form", "Bookmark" )
Call .ReplaceItemValue( "BlindCopyTo", "НОТЕС_АДРЕС" )
Call .ReplaceItemValue( "Subject", "ТЕМА_ПИСЬМА" )
End With

' составление тело письма
With rtiBody
Call .AppendText ( "ТЕЛО_ПИСЬМА" )
Call .AddNewLine( 1 )
Call .AppendDocLink( doc, stBody) 
End With

' отправка письма
Call docMemo.Send( False )

doc - присоединенный документ

Данный код должен присоединяться к событию форм?

Guest · 29.01.2008

Код прописываешь в агенте, который запускается на сервере по расписанию

hoy · 29.01.2008

Программер сказал(а):
Код прописываешь в агенте, который запускается на сервере по расписанию

Подскажите, пожалуйста, еще а если этот же код добавить в обработку события при нажатии к-л кнопки на форме? он как то изменится?

Просто мне нужно именно заливать файлы в базу, потом они подхватываются и отправляются

Guest · 29.01.2008

Конечно, можно и так..Только мне казалось, что вам нужно организовать автоматическую рассылку по расписанию, а для такой задачи нужен именно серверный агент

hoy · 29.01.2008

Программер сказал(а):
Конечно, можно и так..Только мне казалось, что вам нужно организовать автоматическую рассылку по расписанию, а для такой задачи нужен именно серверный агент

Описываю еще раз проблему:
Имеется база данных банка.
В данной базе создана библиотека документов.
В этой библиотеке содержатся документы, которые затем филиалы сами вытаскивают из этой библиотеки.
Моя задача: автоматически заливать каждый из файлов в свое письмо.

Скажите, пожалуйста еще, а если создавать агента на автоматическую рассылку, его тоже нужно создавать в лотус дизайнере?

morpheus · 29.01.2008

(hoy @ 29:01:2008, 12:19 )Скажите, пожалуйста еще, а если создавать агента на автоматическую рассылку, его тоже нужно создавать в лотус дизайнере?

[snapback]95535" rel="nofollow" target="_blank[/snapback]

[/quote]
да


(hoy @ 29:01:2008, 12:19 )Моя задача: автоматически заливать каждый из файлов в свое письмо.

[snapback]95535" rel="nofollow" target="_blank[/snapback]

[/quote]
Делаете на форме кнопочку с такой формулой

Код:

@Command( [EditGotoField]; "Body" );
@PostedCommand([EditInsertFileAttachment]);

Guest · 29.01.2008

залить файл в документ письма можно, используя метод EmbeddedObject, там в одном из параметров передаешь путь к каждому из файлов..Насколько я понял, вы самостоятельно планируете через диалоговые окна приатачивать файлы и сразу отправлять их по почте. Если все обстоит именно так, то могу сейчас подкинуть наводящий пример

Morpheus сказал(а):
да
Делаете на форме кнопочку с такой формулой

Код:

@Command( [EditGotoField]; "Body" ); @PostedCommand([EditInsertFileAttachment]);

Все, что касается разработки, делаеся в дизайнере, и агенты не исключение

Guest · 29.01.2008

Код:

Sub Click(Source As Button)
Dim NS As New NotesSession
Dim NUIWS As New NotesUIWorkspace
Dim NDB As NotesDatabase
Set NDB=NS.CurrentDatabase
Set docMemo = NDB.CreateDocument
path=NUIWS.OpenFileDialog(False,"выберите файл","excel | *.xls")	'здесь передается расширение твоего файла
If Isempty(path) Then Exit Sub
' инициализация NotesRichTextItem для занесения информации в тело письма
Set rtiBody = New NotesRichTextItem( docMemo, "Body" )

' составление письма
With docMemo
Call .ReplaceItemValue( "Form", "Bookmark" )
Call .ReplaceItemValue( "Subject", "ТЕМА_ПИСЬМА" )
Call .ReplaceItemValue( "SendTo", "Адрес получателя" ) 
End With

' составление тело письма
With rtiBody
Call .AppendText ( "ТЕЛО_ПИСЬМА" )
Call .AddNewLine( 1 )
End With
Set EmbObj=rtiBody.EmbedObject(EMBED_ATTACHMENT,"", path(0))
' отправка письма
Call docMemo.Send( False )

End Sub

В качестве адреса можно передавать сразу всю почтовую группу, если таковая имеется, либо делать рассылку в цикле, если все адреса известны и
где-то хранятся, тогда можно одним кликом разослать письма сразу всем получателям

Только не забудь создать в базе форму Bookmark с полями Subject и SendTo, иначе тема и адресат в письме не отразятся

/Moderated by Morpheus/ Пользуйтесь тегами кода

hoy · 30.01.2008

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

А про формулы:

@Command( [EditGotoField]; "Body" );
@PostedCommand([EditInsertFileAttachment]);

где почитать можно? В хелпе, или есть где-то по подробнее?

morpheus · 30.01.2008

(hoy @ 30:01:2008, 14:20 )где почитать можно?

[snapback]95807" rel="nofollow" target="_blank[/snapback]

[/quote]
Сами ж написали - в хэлпе

hoy · 30.01.2008

спасибо буду пробовать.

Все сервисы Codeby

Поиск

Поиск

автоматическая рассылка ежедневно обновляемого файла

hoy

fvoice

hoy

Sandr

hoy

wowa

Oksana

fvoice

hoy

hoy

Guest

hoy

Guest

hoy

morpheus

Guest

Guest

hoy

morpheus

hoy