lotus script 代理 居家旅行之必备

‘LS.utilities.BE:


%REM ******************************* Copyright Info *******************************
©2003 Rocky Oliver and Sapphire Oak Technologies, Inc.
This library contains useful functions that are freely available for use under the
terms of an Attribution/NonCommercial/ShareAlike Creative Commons License. This license
can be reviewed at http://creativecommons.org/licenses/by-nc-sa/1.0/
Use of this library constitutes agreement with the aforementioned license. Please leave this
copyright information intact.

There may be exceptions to this licensing, based on contributions by readers of the Lotus Geek
blog (http://www.LotusGeek.com). If there is an exception to this licensing, it will be listed in
the sub or function.

If you would like to contribute a useful function to this library, please send it to Rocky at
rock@LotusGeek.com

Take care of others, be good to yourself. Peace out.
%END REM **************************************************************************

REM This library is used by the following elements:
REM        **List the elements that will use this here

%REM ******************************* Functions in this lib *******************************
 getDbPath(sourceDB As NotesDatabase, dbpath As String) As Boolean
        returns the file path of the provided database, without the file name
        it is returned on the dbpath parameter. the function returns True if
        successful, False otherwise (and throws error to calling code)

 DayOfWeek(d As Integer, abbnum As Integer) As String
        provide the number of the day of the week (1 through 7) and the
        function returns the name the day (1 = Sunday, 2 = Monday, etc.)
        if you provide an abbnum integer greater than 0 it will return an abbreviation
        for the day. for instance if the day is 1 and the abbnum is 3, then SUN is
        returned.

 MonthOfYear(m As Integer, abbnum As Integer) As String
        provide the number of the month of the year (1 through 12) and the
        function returns the name of the month (1 = January, 2 = February, etc.)
        if you provide an abbnum integer greater than 0 it will return an abbreviation
        for the month. for instance if the month is 1 and the abbnum is 3, then JAN is
        returned.

 SortArray(sArray As Variant, orderflag As String) As Boolean
        this function sorts the provided array in either ascending or descending order,
        based on the order flag: A sorts ascending, D sorts descending.
        this function uses four private subs to do the "work" - DoQS_A, DoQS_D,
        DoInsertSort_A, and DoInsertSort_D

 URLEncode(inString As String) As Boolean
        encodes a string for a URL

 URLDecode(inString As String) As Boolean
        decodes a string from a URL

 detachFile(doc As NotesDocument, rtname As String, fname As String, fpath As String) As Boolean
        this function detaches the specified attachment to the indicated location
        the parameters are as follows:
        doc = the document containing the attachment
        rtitem = the rich text item containing the attachment
        fname = optional. the name of the attachment
        fpath = optional. the filepath where the attachment is to be saved
        If the fname is an empty string, then the first attachment found in the specified rt item is used
        If the fpath is an empty string, then the file is saved to a subdir of the Windows temp dir

 initApp(hwd As Variant, appname As String) As Boolean
        retuns an application object handle to the provided application name.
        the parameters are as follows:
        hwd = handle to the object. Passed in as an empty variant, the handle is returned on this param
        appname = the programmatic name of the application, e.g. Word.Application for MS Word

 getQSValue(qs as String, valname as String, result as String) as Boolean
        parses the query string passed in QS and returns the value associated with the name in valname
        in the result var. Returns True if it runs correctly, false if it errors out.

 sendMailwithURL(Subject As String, BodyMsg As String, recips As Variant, url As String) As Boolean
        sends an email with a URL link in it. returns true if successful, false if not.
        subject = subject of email
        bodymsg = content of msg
        recipients = recipients for email (goes in SendTo)
        url = the URL to include in the email

 getDocURL(doc As NotesDocument, keyitem As String, keyview As String,_
    editmode As Boolean, docURL As String, relative As Boolean) As Boolean
        creates a URL for a document. includes port numbers (if needed). returns the URL on
        the URL parameter.
        doc = the doc to link to
        keyitem = the name of the item containing the key used for the document in the target view
        keyview = the view used in the URL as a target
        editmode = if True, uses ?EditDocument; if False, uses ?OpenDocument
        docURL = pass in an  string var containing and empty string, it returns the constructed URL
        relative = if True, returns a relative URL; if False, returns a full URL

 ReplaceChars(oldstring As String, oldchars As String, newchars As String) As String
        works like @ReplaceSubstring, except this only takes string scalars, not arrays
        oldstring = the original source string
        oldchars = the character(s) to replace
        newchars = the character(s) to replace the oldchars with

 SendMailwithDocLink(Subject As String, BodyMsg As String, recips As Variant,_
        linkdoc As Variant, linkmsg As String) As Boolean
        creates an email with a doclink to a document
        subject = subject of email
        bodymsg = content of msg
        recips = recipients for email (goes in SendTo)
        url = the URL to include in the email
        linkdoc = the document used as a target for the link

 getQSValue(qs As String, valname As String, result As String) As Boolean
        get a query_string value from the query_string
        qs = the query string
        valname = the name of the value you want
        result = the related value. pass an empty string var into the function, and the result is returned on it

 DBHandle(destdb As String) As NotesDatabase
        given a destination database name, returns a handle to the database provided it is in the same
        directory as the database where the code is currently executing.
        destdb = the filename of the database you want a handle to

 ****************************** Modification History *******************************
    WHO        WHEN            WHAT
    Rock        11/15/02        Initial creation of this library
    Rock        11/21/02        Added detachFile function
     Rock        04/01/03         Added getQSValue function
    Rock        08/07/03         Updated the function descriptions
    Rock        01/18/04        Added getServerList function
%END REM