@mailsend sending multiple emails in scheduled agent

Posted on 2007-12-06
Last Modified: 2013-12-18

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.

Question by:shuboarder
  • 5
  • 2
  • 2
LVL 22

Expert Comment

ID: 20422156
You will need to switch to LotusScript to accomplish this.  Is that OK?
LVL 21

Author Comment

ID: 20422188
That's fine, but I wouldn't know how to write it in LotusScript....
LVL 22

Expert Comment

ID: 20422394
Post your agent code, and I'll see what I can do.
LVL 21

Author Comment

ID: 20423903
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."

@MailSend("";"";"";"Database Alert!";"";body;[PriorityHigh]);

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

LVL 19

Expert Comment

ID: 20425642
check the agent properties settings. It should run Scheduled and run on none.
LVL 21

Author Comment

ID: 20426248
Hi madheeswar,

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

Author Comment

ID: 20434785
I don't seem to be able to run with a target of none unless I select to run on event.
LVL 19

Accepted Solution

madheeswar earned 500 total points
ID: 20440332 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

Open in new window

LVL 21

Author Closing Comment

ID: 31416036
Thanks Madheeswar, this seems to be working well!

Featured Post

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

For users on the Lotus Notes 8 Standard client, this article provides information on checking the Java Heap size and adjusting it to half of your system RAM in attempt to get the Lotus Notes 8.x Standard client to run faster.  I've had to exercise t…
IBM Notes offer Encryption feature using which the user can secure its NSF emails or entire database easily. In this section we will discuss about the process to Encrypt Incoming and Outgoing Mails in depth.
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor ( If you're looking for how to monitor bandwidth using netflow or packet s…
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

760 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now