I get irritated by people who expect me to look through every database to keep abreast of new and often important information. So I devised a simple notification button which can be added to a view and allow the person posting an important document to send a doclink and brief message about their prized database entry. This keeps the emails directed and concise, but ensures others know the information is there and quick to access via the link. This also adds a comment to the audit trail in the document to show who has been notified (I like audit trails).
I use configuration documents to define some variables (makes code more portable), but you can hard code these if you prefer.
Person = A list of the people and/or groups who have access to the
database. You can use the name and address book in preference
dBTitle = The name of the database mail is sent from (e.g. Process
Library). Can be a hidden field on form or hard coded
FormType = Hidden field on form. I use this to distinguish between form
types (e.g Filenote, Meeting Note)
audit= A computed text field on the form to record who the notifier email
has been sent to
Subject = The subject heading field on the form (as you would use on a
standard email form)
Code
Datex := @Text(@Now;"D0T0") +
" Notification sent by " +
@Name([CN];@UserName) +" to:- ";
Subs:= @DbLookup("":"NoCache";"";"
(Configuration Documents)";"Person";2);
Notify:= @Prompt([OKCANCELLISTMULT];
"Notification";"Select who you want to
notify ";"";Subs);
Comm:= @Prompt([OKCANCELEDIT];"
Additional Comment";"Enter a
comment if required and/or press
RETURN";Comm);
@MailSend(Notify; ""; ""; Subject + "
- has been posted in "+ dBTiltle ;
"The following "+ Formtype +" been
posted in the " + dBTitle +@NewLine+
@NewLine +"'" +Subject+"'"+@NewLine
+@NewLine+ "Click on the doclink to
access the document"+@NewLine+
@NewLine+ Comm +@NewLine; "" :
""; [IncludeDoclink]);
@Command(EditDocument;"1");
Temp:=Datex+@Implode(@Name
([CN];(Notify));", ");
FIELD audit:=Temp+@NewLine+audit;
@Command([FileSave]);
@Command(EditDocument;"0");
@Prompt([OK];"Confirmation";"Email
notification sent to "+ @Implode(@Name
([CN];(Notify)); " and "))
