• Things I added maybe worth considering?

    By Dom Developer 1 decade ago
    • Spam control,Draft view check - Good ideas

      By David Turner 1 decade ago

      Hi Dom,

       

      1. Configurable limit on number of emails you can send in one go (spamming concerns) – simply defined a constant and checked it on the sending agents.

      2. Configurable limit on mail (attachment) size (mail quota concerns) – simply defined a constant and checked it on the Create Agent

      3. Check the current Uiview to ensure the user is in the Drafts View – seems obvious that they would be but testers fell over at this hurdle. This code went in the Create Agent.

       

      All these sound like an excellent addition for businesses & users which may face these problems.

       

      In the spirit of OpenNTF, would you like to contribute your changes (e.g. attach to this request) in nsf or txt/zip so I can roll them into the next official release?

      Also any user guides/screenshots you put together would be helpful so I can add into the administration guide.

      • Spam Control and user check

        By Dom Developer 1 decade ago

        Hi David as my changes are relatively minor I will include them as attached text

        • Further User Check Added as people found more ways to break it

          By Dom Developer 1 decade ago

          I had to add this to the Create Agent along the same lines as checking for drafts view as it would appear that if someone opens the document from the Drafts view then my previous code doesn't trap their attempt to run the agent and they get an object variable not set error which they don't interpret as "You shouldn't be in here"

          Dim uidoc As NotesUIDocument

          Set uidoc = ws.Currentdocument

          if Not uidoc Is Nothing Then

          MessageBox "Error: You must use this feature from the Drafts View with the appropriate Draft Email selected, not from an open document",16,SCRIPTNAME

          Exit Sub

          End if

          • Me Again - Active Sheet Issue

            By Dom Developer 1 decade ago

            A user has the habit of saving other sheets in a workbook that they use to mail merge from thus changing the active sheet, we agreed that by convention the first sheet should contain the mail merge data rather than specify a sheet name so in the agent

            Create Mail Merge

            Public Sub New(strXLFilename As String, readOnly As Boolean)

            'Create new Excel application instance

            Set varXLApp = CreateObject("Excel.Application")

            varXLApp.Visible = False

            'Open the file - Don't refresh data/graphs, Open Read-Only

            varXLApp.Workbooks.Open strXLFilename, 0, readOnly

            Set varXLWorkbook = varXLApp.ActiveWorkbook

            '@@@@@ Dom 17/10/2013 Set varXLSheet = varXLWorkbook.ActiveSheet

            Set varXLSheet = varXLWorkbook.Worksheets(1) ' Get first sheet Dom 17/10/2013

            End Sub