Subject: RE: Sending Messages with CC’s
To test this, Open your own database in designer (I am assuming you have the designer client.)Expand the “shared code” section and then click on “actions.” Scroll down in you actions list until you find the “send” action. Open up the action. You should see this code:
MEMO_SEND:=“1024”;
FIELD ActionInProgress:=MEMO_SEND;
@If(@Command([FileSave]);@Command([FileCloseWindow]);@Return(“”))
Replace it with:
ccs := @Implode( @Trim( CopyTo : EnterCopyTo ); “,” );
FIELD EnterCopyTo := “NOSY SUPERVISOR NAME HERE,” + ccs;
@Command([ViewRefreshFields]);
MEMO_SEND:=“1024”;
FIELD ActionInProgress:=MEMO_SEND;
@If(@Command([FileSave]);@Command([FileCloseWindow]);@Return(“”))
Now open the “send and file” action and replace the code in there it with:
ccs := @Implode( @Trim( CopyTo : EnterCopyTo ); “,” );
FIELD EnterCopyTo := “NOSY SUPERVISOR NAME HERE,” + ccs;
@Command([ViewRefreshFields]);
REM {BEGIN TRANSLATE};
tmpNoNames := “No names found to send mail to.”;
tmpTitle := “Lotus Notes”;
REM {END TRANSLATE};
tmpNumNames := @Elements(EnterSendTo) + @Elements(EnterCopyTo) + @Elements(EnterBlindCopyTo);
@If( tmpNumNames = 0; @Do(@Prompt([Ok];tmpTitle;tmpNoNames);@Return(“”));“”);
MEMO_SEND_FILE:=2097152;
FIELD ActionInProgress:=MEMO_SEND_FILE;
FIELD tmpSendandFileFolder := @PickList([Folders]:[Single];“”:“”);
@If(@Command([FileSave]);@Command([FileCloseWindow]);@Return(“”))
And make sure you change the part that says “NOSY SUPERVISOR NAME HERE” to an actual name.
Assuming you get it working, you will have to set the “Shared Actions” design property not to inherit its design from the mail file template; else all your changes will be over-written when the design task runs at night.
Do this by selecting “actions” in the left pane and then go to the design menu and then to design properties. When the properties dialog comes up, go to the third tab and check the box.
Peace.