Песня (опять) про почтовых агентов: имя отправителя(??), ограничения на список рассылки...

Тема: Песня (опять) про почтовых агентов: имя отправителя(??), ограничения на список рассылки...

Igor N. 02/20/2002 01:24 AM

Папка:
06. Разработка Notes-приложений, 09. Администрирование Notes & Domino

Тип сообщения:
Мне лень заполнять это поле

Сообщение:

1. Вопрос первый, как можно уговорить почтового 'LS агента, работающего по расписанию, показывать в From не имя того, кто его активировал, а то, что написано в коде (или в поле).

2. Вопрос второй - уже про проблему. Когда агента тестировал - на списке из 20 адресатов - все было хорошо. Как только дал ему реальный список - 2800 - он его явно весь не отработал - т.е., окончательного действия по маркированию отправляемого документа не выполнил. В логах жалоб на недостаток ресурсов не получал. Было, правда около 400 сообщений о невозможности доставки. Что бы это могло быть и есть ли какие-либо рекомендации / ограничения к длине списка рассылки?

Код агента:

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim memoview As NotesView
Dim listview As NotesView
Dim addresslist As NotesViewEntryCollection
Dim memodoc As NotesDocument
Dim memo As NotesDocument
'Dim mailboxDb As New NotesDatabase( "", "mail.box" )
Dim mailboxDb As NotesDatabase

Set db = session.CurrentDatabase
Set mailboxDb = New NotesDatabase("", "mail.box")
If Not mailboxDb.IsOpen Then Call mailboxDb.Open("", "")
Set memo = New NotesDocument( db )
'Set memo = New NotesDocument( mailboxDb )
Set memoview = db.GetView("MemoToSend10000")
Set memodoc=memoview.GetFirstDocument
Set listview = db.GetView("10000Subscribe")
Set addresslist = listview.AllEntries

Dim datetime As New notesDateTime( "Today" )
Call datetime.SetNow

For i = 1 To addresslist.count
SendTo = addresslist.GetNthEntry( i ).Document.email( 0 )
If Not SendTo = "" Then
memo.PostedDate = datetime.LSLocalTime
memo.Form= "Memo"
memo.From=memodoc.From
memo.SMTPOriginator= memodoc.SMTPOriginator
memo.Recipients=SendTo
memo.SendTo=SendTo
memo.Subject= memodoc.Subject
memo.Body= memodoc.MBody
memo.Recipients=memo.SendTo
memo.PostedDate=Now
memo.Importance="1"
memo.DeliveryReport="B"
memo.DeliveryPriority="H"
memo.WebQuerySaveAgent="WSendMemo"
saved=memo.save(False,False)
Call memo.Send(False )
End If
Next
memodoc.MStatus="send"
Call memodoc.Save(False, True)
End Sub

Иерархия документов данной дискуссии:
Песня (опять) про почтовых агентов: имя отправителя(??), ограничения на список рассылки... (Igor N.) (20.02.2002 1:24:02)
.... про почтового агента... (Nick A Norkin; VIT Server A) (20.02.2002 8:40:51)
........ Без Send - не срабатывает... (Igor N.) (20.02.2002 18:29:33)

Разработчикам и администраторам: курсы, книги, сертификация