Monday 20 June 2011

LotusScript Agent: Generating Server Report for Mailfile usage

 

In the default Lotus Notes Mail template, users can edit the received emails and modify the content. To prevent the same, following customization is required in template.
 
Edit "Memo" and "Reply" form in the designer                                

                                                                            

  change "QueryModeChange" event, by adding this code:                 

                 

  If  (Not source.editmode And source.document.HasItem("PostedDate"))   Then

       continue = False                                                         

       Exit Sub                                                                 

  End If                                                                    

                                                                            

Change "QueryOpen" event, and towards the top, add:                         

                                                                            

 If (Not (source.isnewdoc) And source.editmode ) Then        

     If (source.document.HasItem("PostedDate") ) Then           

          Continue = False                                          

          Exit Sub                                                  

     End If                                                     

 End If