Рассылка В Lotus Notes

[Don]

Don
"организовать рассылку по 250 e-mail адресатам" и "отправлять оплаченную клиентами информацию" это немного разные вещи, не находите?

Когда как! У меня есть несколько вполне неспамерских рассылок по несколько сотен адресатов. А спамеров я не люблю не меньше, чем Вы! Бо за.. мучили!

 

[Don]

В данном случае, мы рассылаем клиентам информацию для того, чтобы они размещали у себя пресс-релизы. Потом они ещё в ответ отчёты присылают.

Для решения данной проблемы, я установил некий модуль для Mass-mailing "Zephyr" для Lotus.
Описание

Ссылка скрыта от гостей

Мануал http://www.youtube.com/watch?v=amDupTjoYoM
У меня болтается он в ярлыках в Lotus. Там можно создать письмо (используя богатые возможности для оформления) и задать список адресатов. Далее я захожу в Actions - Create New Job Document , он создаётся.
А затем, по мануалу нужно зайти в Actions - Run Zephyr, а у меня этого пункта в меню нет
Есть вот такая картинка:

Как же сделать злосчастный Run Zephyr?

Как обычно в Лотусе, для начала стоит проверить права на действие или агент или, радикально через администратор переподписать всё собой. А дальше ....

Я давно и успешно для рассылок пользуюсь своей простенькой базой с агентом который запускается ночью. Оч. удобно! И сложного там ничего нет.

 

[Disappear]

Если я запускаю скрипт, который прилагается к программе:

<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Скрипт</div></div><div class="sp-body"><div class="sp-content">Sub Initialize()

Dim s As New NotesSession
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
Dim zdb As NotesDatabase
Dim jdoc As NotesDocument
Dim counter As Long

Set db = s.Currentdatabase
Set col = db.Unprocesseddocuments
Set zdb = s.Getdatabase("", "zephyr.nsf", False)

If Not(zdb.Isopen) Then
MsgBox "Unable to open Zephyr!"
Exit Sub
End If

If (col.Count = 0) Then
MsgBox "You need to select at least one document to continue!"
Exit Sub
End If

Set doc = col.Getfirstdocument()
Do Until(doc Is Nothing)
counter = counter + 1
Print |Processing | & CStr(counter) & | of | & CStr(col.Count)
Set jdoc = zdb.Createdocument()
Call doc.Copyallitems(jdoc, True)
Call jdoc.Replaceitemvalue("form", "jobdocument")
Call jdoc.Replaceitemvalue("form_original", doc.Getitemvalue("form"))
Call jdoc.Save(True, False, True)
Set doc = col.Getnextdocument(doc)
Loop

Print |Push to Zephyr Complete!|

End Sub

То выскакивает ошибка Object Variable not Set.

Вообще сама программа выглядит следующим образом:

 

[nvyush]

Добавьте в скрипт обработчик, чтобы узнать, в какой строке ошибка.

 

[Disappear]

Добавьте в скрипт обработчик, чтобы узнать, в какой строке ошибка.

Как это сделать?

 

[ToxaRat]

а как альтернативу создания RSS вместо рассылки почему не рассматривали?

 

[nvyush]

Как это сделать?

Почитать в справке дизайнера про On Error ..., Error, Err, Erl