Когда как! У меня есть несколько вполне неспамерских рассылок по несколько сотен адресатов. А спамеров я не люблю не меньше, чем Вы! Бо за.. мучили!
Когда как! У меня есть несколько вполне неспамерских рассылок по несколько сотен адресатов. А спамеров я не люблю не меньше, чем Вы! Бо за.. мучили!
В данном случае, мы рассылаем клиентам информацию для того, чтобы они размещали у себя пресс-релизы. Потом они ещё в ответ отчёты присылают.
Для решения данной проблемы, я установил некий модуль для Mass-mailing "Zephyr" для Lotus.
ОписаниеСсылка скрыта от гостей
Мануал http://www.youtube.com/watch?v=amDupTjoYoM
У меня болтается он в ярлыках в Lotus. Там можно создать письмо (используя богатые возможности для оформления) и задать список адресатов. Далее я захожу в Actions - Create New Job Document , он создаётся.
А затем, по мануалу нужно зайти в Actions - Run Zephyr, а у меня этого пункта в меню нет
Есть вот такая картинка:
Как же сделать злосчастный Run Zephyr?
Как обычно в Лотусе, для начала стоит проверить права на действие или агент или, радикально через администратор переподписать всё собой. А дальше ....
Я давно и успешно для рассылок пользуюсь своей простенькой базой с агентом который запускается ночью. Оч. удобно! И сложного там ничего нет.
Если я запускаю скрипт, который прилагается к программе:
<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.
Вообще сама программа выглядит следующим образом:
<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.
Вообще сама программа выглядит следующим образом:
Обучение наступательной кибербезопасности в игровой форме. Начать игру!