@mailsend sending multiple emails in scheduled agent

Hi,

I am trying to use @mailsend in a scheduled agent.
I am working accept for one problem...

The @mailsend is sending an email for each document. I only want it to send 1 email!

Basically I am using @elements and if the view contains more than 100 documents based on certain criteria a single email should be sent.

Currently if 48 documents match this criteria, 48 emails are sent.

How can I ensure that only 1 email is sent.

Thanks!

shuboarder

Asked: 2007-12-06

Advertise Here

Lotus IBM

1 Solution

LVL 22

Bill-HansonCommented: 2007-12-06

You will need to switch to LotusScript to accomplish this. Is that OK?

LVL 21

shuboarderAuthor Commented: 2007-12-06

That's fine, but I wouldn't know how to write it in LotusScript....

LVL 22

Bill-HansonCommented: 2007-12-06

Post your agent code, and I'll see what I can do.

LVL 21

shuboarderAuthor Commented: 2007-12-06

Hi Bill,

very kind of you. Are you sure we can't do something clever with the formula below?

body := "this database needs attention etc."

@If(@Elements(@DbColumn("";"";"List";1))>100;
@MailSend("some.address@something.com";"";"";"Database Alert!";"";body;[PriorityHigh]);
@Return(""))

Thanks!

LVL 19

madheeswarCommented: 2007-12-06

check the agent properties settings. It should run Scheduled and run on none.

LVL 21

shuboarderAuthor Commented: 2007-12-07

Hi madheeswar,

this would make sense, but you can't have a scheduled agent with a target of "none" or can you?

LVL 21

shuboarderAuthor Commented: 2007-12-08

I don't seem to be able to run with a target of none unless I select to run on event.

LVL 19

madheeswarCommented: 2007-12-10

Sorry..it was my mistake.
For Scheduled agents you cannot have none.
Since it's my fault, use this code....Tested and it is working. Make it a Scheduled agent and run on all documents. Provide your email in tmpname..

Sub Initialize
	
	Dim ss As New NotesSession 
	Dim db As NotesDatabase 
	'Dim view As notesview
	'Dim dc As NotesDocumentCollection 
	'Dim doc As NotesDocument 
	Dim maildoc As NotesDocument 
	
	Set db=ss.CurrentDatabase 
	tmptotal = Evaluate(|@Elements(@DbColumn("";"";"List";1))|)
	If Isempty(tmptotal) Or tmptotal(0) < 100 Or tmptotal(0)="" Then Exit Sub
	'Send email:
	Set maildoc = New NotesDocument( db )
	maildoc.Form = "Memo"
	maildoc.Subject = "Reminder: Please Review New Application"
	Set Body=New NotesRichTextItem(maildoc,"Body")
	message="Please Review the New Application"
	Call Body.AppendText(message)
	Call Body.AddNewLine(2)
	tmpname = "Your Mail addess"
	Call maildoc.Send( True, tmpname ) 
	
	
End Sub