N
nila
Привет Всем!
У меня такая задача... Каждый месяц создаю агентом документы по одной форме. Информацию беру из другой базы. В этих доках поля главный начальник и подчиненный.
Кол-во документов в цикле тогда столько сколько подчинненых начальников. Но я хочу отправлять письма только главным начальникам. Что бы отпарвок было столько сколько главных начальников. А не подчинненым.
Но так как я беру Serch - он мне выдает все доки по этой формуле. то есть кол-во равно колво подчинненых. И в этом цикле я не могу использовать отправку...
Dim query As String
query = "((Form = 'ProfileDistrict')) & (!@Contains(Status; 'New')) & (!@Contains(Status; 'Closed'))"
Set collection = dbinfo.Search( query, Nothing, 0 ) //это я беру из другой базы инфу сколько документов будет
If collection.Count=0 Then Exit Sub
Set docinfo=collection.GetFirstDocument
While Not(docinfo Is Nothing)
Set newdoc=New NotesDocument(db)
newdoc.Status="1" 'New
newdoc.District=docinfo.District
newdoc.DistrictName=docinfo.DistrictName
newdoc.Director=docinfo.Director
newdoc.DirectorName=docinfo.DirectorName
y
newdoc.Form="SR"
newdoc.CreatedDate=Today
newdoc.Location=docinfo.Address1
Dim RItem As NotesItem
Set RItem = New NotesItem _
( newdoc, "Readers", "CN=District " & docinfo.District(0) )
Call RItem.AppendToTextList( "[All]" )
Call RItem.AppendToTextList( "[DManager]" )
RItem.IsReaders= True
Call newdoc.Save(True,True)
STo = newdoc.District(0)
Call SendMemo(STo,"","",_
"Please fill out this forms " +newdoc.District(0) +" - "+ newdoc.Store(0)+ ", from " + Cstr(newdoc.CreatedDate(0)) +" . ",_
"Click here to View DM Visitation Form ----> ","")
Set docinfo=collection.GetNextDocument(docinfo)
Wend
End If
Помогите пожалуйста.... туплю по страшному. Но я научусь!
Спасибо!
У меня такая задача... Каждый месяц создаю агентом документы по одной форме. Информацию беру из другой базы. В этих доках поля главный начальник и подчиненный.
Кол-во документов в цикле тогда столько сколько подчинненых начальников. Но я хочу отправлять письма только главным начальникам. Что бы отпарвок было столько сколько главных начальников. А не подчинненым.
Но так как я беру Serch - он мне выдает все доки по этой формуле. то есть кол-во равно колво подчинненых. И в этом цикле я не могу использовать отправку...
Dim query As String
query = "((Form = 'ProfileDistrict')) & (!@Contains(Status; 'New')) & (!@Contains(Status; 'Closed'))"
Set collection = dbinfo.Search( query, Nothing, 0 ) //это я беру из другой базы инфу сколько документов будет
If collection.Count=0 Then Exit Sub
Set docinfo=collection.GetFirstDocument
While Not(docinfo Is Nothing)
Set newdoc=New NotesDocument(db)
newdoc.Status="1" 'New
newdoc.District=docinfo.District
newdoc.DistrictName=docinfo.DistrictName
newdoc.Director=docinfo.Director
newdoc.DirectorName=docinfo.DirectorName
y
newdoc.Form="SR"
newdoc.CreatedDate=Today
newdoc.Location=docinfo.Address1
Dim RItem As NotesItem
Set RItem = New NotesItem _
( newdoc, "Readers", "CN=District " & docinfo.District(0) )
Call RItem.AppendToTextList( "[All]" )
Call RItem.AppendToTextList( "[DManager]" )
RItem.IsReaders= True
Call newdoc.Save(True,True)
STo = newdoc.District(0)
Call SendMemo(STo,"","",_
"Please fill out this forms " +newdoc.District(0) +" - "+ newdoc.Store(0)+ ", from " + Cstr(newdoc.CreatedDate(0)) +" . ",_
"Click here to View DM Visitation Form ----> ","")
Set docinfo=collection.GetNextDocument(docinfo)
Wend
End If
Помогите пожалуйста.... туплю по страшному. Но я научусь!
Спасибо!