Lotus Notes 學習筆記

這是一個學習關於如何使用Lotus Notes的Agent功能來實現自動化辦公的學習筆記。

 

 

一. 介紹

---

　　Lotus Notes/Domino 是一個世界領先的企業級通訊、協同工作及Internet/Intranet平台；具有完善的工作流控制、數據庫復制技術和完善可靠的安全機制；尤其適合於處理各種非結構化與半結構化的文檔數據、建立工作流應用、建立各類基於Web的應用。它全面實現了對非結構化信息的管理和共享，內含強大的電子郵件功能及工作流軟件開發環境，是實現群組協同工作、辦公自動化的最佳開發環境。

 

Notes的主要設計元素：

數據庫：在notes中存儲文檔的單元，文檔是用來保存數據的，數據庫里保存了若干個文檔。

表單:是用來定義文檔的格式和布局，每個表單包含域、靜態文本、圖形和按鈕。

視圖：是幫助用戶很容易的找到你想要的文檔。視圖可以為數據庫內容提供概述報告

文件夾：類似於視圖，但可以將視圖中的文檔拖到文件夾，反之則不行。

代理：是在數據庫中執行特定任務的單機程序：如修改域值，發送郵件

XPages: XPages是Domino 8.5引進的基於JSF的設計元素。大大豐富了Domino的Web開發功能。

二. Lotus Notes 安裝和配置

---

 

2.1 Lotus 產品說明

　　IBM公司提供的這一軟件產品的全稱是IBM Lotus Notes & Domino. Notes是客戶端，Domino是服務器。

　　Lotus Notes是指Notes客戶端，它安裝在用戶個人電腦上，用於訪問電子郵件和Notes應用。

　　Domino則是Notes/Domino組合的服務器部分，它可以運行在各種操作系統中。當用戶通過Notes客戶端連接服務器備份郵件數據時，用來從用戶郵件數據庫中提取內容的正是Domino服務器。Domino服務器還負責控制郵件和應用數據庫的登錄和安全等。Domino服務器擁有強大的安全模式，可以控制訪問單個Notes文檔級別的安全性。主要通過基於用戶Notes ID登錄系統，以及數據庫和網絡通信加密技術等來實現。

2.2 安裝

2.2.1 環境：
　　服務器:DOMI_SRV_9.0_WIN_64_EN_TRIAL.exe

　　客戶端：NotDesg_9.0_WIN_SC_deve.exe/lotus_notes853_win_SC.exe

　　這里建議客戶端選擇Notes design。因為需要使用Domino Administrator來對Domino服務器進行配置，一般的Lotus Notes客戶端不附帶該組件。

　　

2.2.2 Server安裝和配置：

 服務器安裝步驟，安裝默認設置安裝服務器domino，服務器在初次啟動的時候，將要求配置該服務器。

詳細的配置方法可以參考后面的參考資料進行配置，這里只說明一些需要注意的地方：

　　1. 服務器名稱應與計算機名稱相同，否則在配置過程中可能會出現錯誤，導致服務器運行不正常或無法配置。計算機名稱的修改如下：右擊桌面的“我的電腦”，單擊“屬性”，選擇“計算機名”標簽，再單擊“更改”。

　　　　

 

　　2. 自定義服務器管理員的用戶名和密碼，用戶只需要在“Last name”項中填入名稱即可。下面的“Also save a local copy of the ID file”要勾選，它會創建一個“admin.id”的文件，用戶加載到Note Administrator客戶端用於管理Domino服務器。

　　　　

 

2.2.3 Client端的安裝和配置

1. 按照默認安裝完Notes后(如果不了解，可以參考后面的參考資料)，連接上服務器。

如果想配置服務器的話，你需要安裝包含Administrator 的客戶端版本，這里安裝的是NotDesg_9.0_WIN_SC_deve.exe。

2. 配置郵件服務器

參考《IBM Lotus Domino 郵件服務器配置攻略》

三. Lotus Script語法介紹

---

 

　　LotusScript是一種和Basic相兼容的面向對象的Scripting環境，它具有強大的能夠從事面向對象應用軟件開發的語言范圍，能夠提供循環和分支的能力、數組以及訪問Notes對象的能力。 
　　判斷Notes中什么時候使用LotusScript或公式語言 

1. 任何時候當執行該任務的函數或命令存在時，使用公式。 
2. 對於復雜的程序控制或循環，使用LotusScript。 
3. 存取或操作儲存的文檔數據要使用LotusScript，特別對於跨文檔、跨數據庫的存取。 
4. 若公式語言不能辦到，則使用LotusScript 

具體內容請參考 《LotusScript語言的基本知識》

四. Lotus Notes 的Agent編程

---

 

 在參考《在 Lotus Notes 中設置郵件定時發送的方法及代理功能介紹》中具體介紹了Agent的概念和如何使用。

 這里只就Lotus Script的編程進行一些使用上的說明：

　　1. Declerations 用來定義一些函數或者全局變量，比如下面的 createPath 在Declerations中定義並實現后，將變成下面這樣

　　　　

 

　　2. 程序的入口使用Initialize，Terminate入口一般不使用，如果程序實現在Terminate中，一些Lotus Script接口將無法被調用。

 

五. 具體實例

---

　　這里有一個Notes 的郵件附件處理Agent，具體的需求是根據郵件的時間和標題來創建文件夾，並將附件存儲在標題文件夾中。

 

Sub createPath(path As String)
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    If objFSO.FolderExists(path) Then
        'Messagebox ("Directory does exist")
    Else
        'Messagebox("Directory does not exist")
        Mkdir (path)    
    End If 
End Sub





Sub Initialize
    
    Dim DirResult As String 
    Dim dirPath As String 
    dirPath = "d:\loans"
    
    Dim names As String
    Dim compname As String
    Dim zhihangList(32) As String
    zhihangList(0) = "scarlettduan"
    zhihangList(1) = "jack"
    zhihangList(2) = "god"
    zhihangList(3) = "lu"
    
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument
    Dim item As NotesItem
    Dim body As NotesRichTextItem
    Dim rtnav As NotesRichTextNavigator
    Dim rtrange As NotesRichTextRange
    
    Set db = session.CurrentDatabase
    Set dc = db.UnprocessedDocuments
    Set doc = dc.GetFirstDocument
    Set body = doc.GetFirstItem("Body")
    
    Set rtnav = body.CreateNavigator
    
    REM 過濾發件人
    Set item = doc.GetFirstItem("From")
    If (item Is Nothing) Then
        Msgbox "收件人不存在，這個程序不能運行 ",16,"退出"
        Exit Sub '退出程序 1
    Else
        Dim nameArr
        
        nameArr = Split(Cstr(item.Text),"/", -1, 1)
        
            'For i = 0 To Ubound(nameArr)
            '    Messagebox nameArr(i)
            'Next i
        
        '取倒數第三個作為發件人
        'names = Mid(nameArr( Ubound(nameArr) - 2), 4)
        names = Mid(nameArr(0), 4)
        
        For i = 0 To Ubound(zhihangList)
            If(zhihangList(i) = names) Then
                'Messagebox ("find the zhihang from the list")
                Goto Step1
            End If
        Next i
        
        Msgbox "發件人不正確，可能不是你想要加工的郵件 ",16,"退出"
        Exit Sub '退出程序 2
    End If
    
    
Step1:
    
    REM 過濾附件信息
    If rtnav.FindFirstElement(RTELEM_TYPE_FILEATTACHMENT) Then 
        
        Dim filetype As String    
        Do
            Set att = rtnav.GetElement()
            filetype = Strright(att.Source,".")
            'Messagebox filetype
            If filetype = "xls" Or filetype = "xlsx" Then
                Msgbox "該郵件中存在EXCEL 附件，可能不是你想要加工的郵件 ",16,"退出"
                Exit Sub '退出程序 3
            End If
            
        Loop While rtnav.FindNextElement()
    Else
        Msgbox "該郵件中不存在附件，可能不是你想要加工的郵件 ",16,"退出"
        Exit Sub '退出程序 5    
    End If
    
    
    REM 獲得時間,創建文件夾
    Dim timeArr
    Dim myMouth As String
    Dim myDay As String
    Dim dateTime As New NotesDateTime( "" )
    Set item = doc.GetFirstItem( "DateComposed" )
    
    dateTime.LSLocalTime = doc.Created
    
    createPath(dirPath)
    
    myMouth = Format(Cstr(dateTime.LSLocalTime), "yyyymm")
    dirPath = dirPath & "\" & myMouth
    
    'Messagebox "dirPath " & dirPath
    createPath(dirPath)
    
    myDay = Format(Cstr(dateTime.LSLocalTime), "yyyymmdd")
    dirPath = dirPath & "\" & myDay 
    
    'Messagebox "dirPath " & dirPath
    createPath(dirPath)
    
    
    REM 這里需要根據實際情況修改
     REM 獲得郵件標題,創建文件夾
    Set item = doc.GetFirstItem( "Subject" )
    
    
    If ( item.Text = "" ) Then '如果該郵件沒有標題，根據需要創建文件名
        
        'Messagebox( "There is no Subject item on the document.you need to create file by youself" )
        compname = Cstr(Inputbox$("There is no Subject item on the document. " + Chr(13) + "the document name should be?"))
        
        If(compname = "") Then
            Msgbox "你必須輸入一個公司名稱 ",16,"退出"
            Exit Sub  '退出程序 4
        End If
        
        compname = dirpath & "\" & names & compname
        createPath(compname)
        
    Else ' 在郵件有標題的情況下
        
        'Messagebox(  "The Subject item on the document has the value: " + item.Text )
        Dim subArr 
        Dim haveComp As Boolean
        'Dim names As String
        
        haveComp = False
        subArr = Split(Cstr(item.Text),"：", -1, 1)
        
        'Messagebox subArr(0) & " " & Cstr(item.Text)
        '一般情況下，格式為xxx申請:xxx公司，這里表示沒有使用“：”作為分隔符的情況下，提示手動輸入
        If subArr(0) = item.Text Then '如果非上面格式的情況，使用“：”分割的郵件名
            
            'Messagebox ("have not 公司 1")
            compname = Cstr(Inputbox$("There is no Subject item on the document. " + Chr(13) + "the document name should be?"))
            
            If(compname = "") Then
                Msgbox "你必須輸入一個公司名稱 ",16,"退出"
                Exit Sub  '退出程序 4
            End If
            
            compname = dirpath & "\" & names  & compname
            createPath(compname)
            
        Else
            For i = 0 To Ubound(subArr)
                
                '這里是創建文件夾的關鍵位置，公司名需要是帶有申請兩字的后面
                If Instr(subArr(i), "申請") = 0 Then '''''''(1)
                    '如果整個標題中都沒有上面的關鍵字，該處理將在后面進行，對於下面的have not 公司 2
                Else
                    'Messagebox ("hava  公司 2")
                    haveComp = True
                    compname = subArr(i + 1)
                    compname = dirpath & "\"& names & compname
                    createPath(compname)
                End If    
            Next i
            
            '一般情況下，下面的路徑不會運行到
            If haveComp = False Then 'have not 公司 2.對於上面的(1)
                
                'Messagebox ("have not 公司 2")
                compname = Cstr(Inputbox$("There is no Subject item on the document. " + Chr(13) + "the document name should be?"))
                
                If(compname = "") Then
                    Msgbox "你必須輸入一個公司名稱 ",16,"退出"
                    Exit Sub  '退出程序 4
                End If
                
                compname = dirpath & "\" & names  & compname
                createPath(compname)
            End If
        End If    
        
    End If
    
    
    REM Get attachments
    If rtnav.FindFirstElement(RTELEM_TYPE_FILEATTACHMENT) Then
        
        Do
            Set att = rtnav.GetElement()
            filepath$ = compname + "\" & att.Source
            
            'Messagebox(filepath$)
            Call att.ExtractFile(filepath$)
                'Print filepath$ & " extracted"
        Loop While rtnav.FindNextElement()
        
    End If
End Sub

 

參考資料：

IBM Lotus Domino Server首次配置詳解 http://net.zol.com.cn/103/1032259.html

IBM Lotus Domino 郵件服務器配置攻略 http://net.zol.com.cn/105/1052918.html

LotusScript基本語法及舉例分析 http://news.ccidnet.com/art/32855/20100709/2110929_1.html

LotusScript語言的基本知識 http://wnight88.blog.51cto.com/512204/140459

在 Lotus Notes 中設置郵件定時發送的方法及代理功能介紹 http://www.ibm.com/developerworks/cn/lotus/notes-timing/

 

附件