【第0090期2005/7/10】

本週主題

最新消息
　
  • 智頡科技從即日開始舉辦相關Notes程式開發訓練課程,有需要的會員請至本公司網站查詢.

好消息!!

智頡科技從即日開始舉辦相關Notes程式開發訓練課程,有需要的會員請至本公司網站點選[教育訓練]即可查詢相關資訊與線上報名.

目前所開的課程有:

IBM Domino WorkFlow訓練課程

Notes Web程式開發課程

每種課程每人僅要NT$2100元整(含稅)即可上完兩天完整的課程喔!!

　

  • WSE 免費20 人版Free License--免費大贈送喔！

活動期間: 即日起申請至民國94年9月15日截止

適用對象: IBM Passport Advantage 用戶

生效期限:上網註冊完.約三天後,收到e Mail確認即為合法授權使用者

授權:為合法使用者為期一年,之後可以Renewal繼續使用

內容:軟體: WSE 20 Users 軟體授權 IBM part no. D54QALL

步驟:

1.上網註冊(用PA ID & Password and Customer number)

https://www14.software.ibm.com/webapp/iwm/web/preLogin.do?source=wse&lang=zh_TW

2. 交付使用: e-mail 1.公司名,2.聯絡人的電話與email,3.公司電腦使用人數給 adamwang@tw.ibm.com 將透過指定的下載地址，或透過協力廠商獲得光碟

Top

文章分享

自訂 Domino Web Access 6 的外觀

英文原文:http://www-128.ibm.com/developerworks/lotus/library/custom-dwa/index.html

開始學習為公司的用戶自訂 Domino Web Access 6.5，並瞭解使用Skin編輯工具和伺服器端標籤可以對用戶端的外觀進行哪些更改，這些工具和標籤允許您更改用戶介面和佈局。

從一開始，Domino Web Access（以前稱為 iNotes Web Access）就專注於提供世界級的、高性能的、可伸縮的 Web 體驗。Domino Web Access 總是包含一些配置設定，以便為客戶可能想做的事提供現成的選擇，以後我們將繼續擴展這種可配置性。

　

但是許多客戶不想只是進行一些簡單的配置更改，他們想用這些更改以外的一些方法來修改 Domino Web Access，例如，增加或刪除功能表項目，或者讓顔色方案與客戶公司所需顔色相匹配。Domino Web Access 設計組對自訂投入了越來越多的關注，有了 Lotus Domino 6.5，Domino Web Access 範本就變得更加用戶化。

　

在本文中，將重點介紹用來自訂 Domino Web Access 用戶介面和螢幕佈局的選項。開始，我們將講述一些關於如何產生 Domino Web Access 頁面以及自訂這些頁面所面臨的困難的背景知識。然後將回顧一些 Domino Web Access 6.5 的基本自訂。接下來將討論 Domino Web Access 頁面內使用的特殊伺服器端標籤，以及在Skin中使用這些標籤的方法。我們將簡單瞭解一下基於 Java 的Skin編輯工具，可以從 Sandbox 下載這個工具。最後，我們將看一下正為 Lotus Domino 7 中的 Domino Web Access 自訂所做的一些工作。

 

自訂所面臨的困難


與諸如 Notes 用戶端之類的典型二進位可執行程式不同，整個 Domino Web Access 用戶介面是由 HTML、JavaScript、Cascading Style Sheets 和各種圖形文件組成的。Domino Web Access 頁面是透過這些使用設計元素的標準 Web 技術拼合在一起的，設計元素位於伺服器上的 Notes 資料庫 Forms6.nsf 中。可以透過編輯大多數 Domino Web Access 頁面的元件來改變這些頁面的內容。但是有一些困難。

　

第一個困難是 Domino Web Access 不是典型 Domino Web 應用程式。這在很多方面都會影響自訂工作。知道如何構建 Domino 應用程式在修改 Domino Web Access 頁面方面很有幫助，但是 Domino Web Access 的架構沒有遵循典型 Domino Web 應用程式的架構。Domino 開發人員將很難標識要修改的正確設計元素。此外，撰寫程式方法也不同。特別是經常有類似 QueryOpen 和 QuerySave 的請求 —— 但是 Domino Web Access 中沒有這些 Notes 表單事件。

　

另一個困難是 Domino Web Access 中使用的 JavaScript 程式碼。該程式碼含義模糊（即簡短），從而可提高應用程式的執行時性能。下載到瀏覽器的位元組數越少或從瀏覽器記憶體載入的位元組數越少，應用程式的性能就越高，應用程式消耗的頻寬越少。所以要在類似編譯的過程中優化 Domino Web Access 程式碼，以便加快下載。Domino Web Access 原始程式碼是在文字檔案中維護的。構建新應用程式版本之後，會對原始程式碼執行一種特殊的工具，以便建立 Forms 文件。這種模糊處理工具會刪除所有元素，並用下面左邊更簡短（但含義更模糊）的名稱替代右邊那些有意義的物件名稱。該過程產生下載較快、但是對撰寫程式人員來說是比較難讀的程式碼。可以下載完整的轉換表。一個小的 128 KB 的文件範例如下所示：

Top 

BdA             IERichTextArea_insertHTML
BdB             CSequentialAsyncAction_doCommited
BdC            CCSFormControler_getRepeatingDatesAreaHtml
BdD            ShimmerException_getMessageFmt
BdE             CCSFormControler_registerRescheduleDialog
BdF             CResPickControler_disableFields
BdG            FixupButtonWidths
BdH            CCSFormControler_getCurrentWinDocCtx
BdI              redirView
BdJ             NSRichTextArea_getDataTextFormat
BdK             IERichTextArea_adjustHeightToFitInWindow
BdL             theWelcomeFrameset
BdM            NPW_focusCaret
BdN            isDirectoryInFileset
BdO            CCSMeetingAction_grantPerform
BdP             sCategorie

　

　

從 Lotus Domino 7 開始，Forms 文件將包含名為 ObfuscationList 的 File Resource 設計元素，該元素將存儲適當的映射。

　

Skin給開發人員帶來了另一個難題。在 Domino Web Access 中，建立用戶介面元素的程式碼被組織為Skin和Skin元件。Skin佈局從來都不容易獲得。不過，最近我們開發了Skin編輯工具來幫助開發人員修改Skin和建立新的Skin組（skin group）。有關的詳細資訊，請參閱本文後面的“處理Skin”一節。

　

在 Lotus Domino 7 中，Skin現在是指 File Resource 設計元素，可以輕鬆地使用傳統文字編輯器導出並修改這些元素，然後使用 Domino Designer 重新導入。

　

Domino Web Access 範本


Domino Web Access 範本與其他 Domino 範本不同。它完全從標準郵件範本（Mail6.ntf）繼承而來。該繼承允許郵件用戶利用標準範本的各種功能從 Notes 用戶端存取郵件文件，它還允許使用 Domino Web Access 從瀏覽器存取同一郵件文件。下圖顯示了 Domino Web Access 範本（對於標準郵件範本，該範本為 iNotes6.ntf）與用戶的郵件文件（圖中的 JUser.nsf）之間的關係。

　

Top

　

圖 1. 標準郵件範本和用戶的郵件文件

 

Domino Web Access 範本還特別引用單獨的資料庫 Forms6.nsf，該資料庫包含 Domino Web Access 設計元素。Domino Web Access 使用的所有套表、副套表和大多數圖形都位於這個資料庫中，該資料庫位於伺服器上的 <domino data>\iNotes\ 子目錄中。（郵件視界中使用的一些圖像包含在 Domino icons 目錄中或包含在郵件範本中。）Forms6.nsf 是資料庫（而不是範本），因為 Domino Web Access 直接向這個資料庫發出 URL 來檢索許多共用頁面和元素。因為性能和磁碟空間消耗的緣故，這些頁面和元素集中在 Forms6.nsf 中，而不是分佈在單個郵件資料庫中。存取某台伺服器上的郵件文件的所有 Web 瀏覽器都使用這組設計元素，這些元素還被緩存在伺服器上，以便獲得更好的性能。

　

在將用戶的郵件文件設定為使用 iNotes6.ntf 範本時，它會繼承這個範本中的所有設計元素，同時還繼承對共用 Forms 文件的引用。這兩種源（範本和 Forms 文件）提供了構建單獨 Domino Web Access 頁面的資源。

　

iNotes6.ntf 範本資料庫包含其他一些元素，比如支援從 Personal Address Book 和 Personal Journal 的 Notes 用戶端到 Domino Web Access Contacts 和 Notebook 區域的雙向同步。還有一些僅由 Domino Web Access 使用的大綱和視界，用來顯示日曆、日誌項目和 TOC（Table of Contents 或 Top 級功能表）。

　

自訂警告


雖然可以自訂 Domino Web Access，並且本文也討論了許多自訂專案，但是我們必須先進行免責聲明：

　

IBM Lotus Support 既不認可也不支援使用改變的範本或其他自訂的 Domino Web Access 安裝。對於說明由自訂範本而導致一些事件的客戶，IBM Lotus Support 將指示該客戶恢復原始範本，以查看問題是否仍然存在。如果仍然存在問題，IBM Lotus Support 將解決該問題，因為它存在於原始範本中。如果該問題在原始範本中不存在，那麽 IBM Lotus Support 將建議客戶刪除所進行的修改，並提供關於下一版本預期功能的改進請求。這個策略也包括 Forms6.nsf 資料庫。

　

Top

　

您應該據此安排所有自訂，避免對之後可能需要 IBM Lotus 支援的重要應用程式進行自訂。

一個好的開發方法是備份您打算以某種允許將所有更改倒轉回 Lotus Domino 安裝的方式修改的任何資料庫或設計元素。也就是說，有一些修改應該不會損害 Domino Web Access 的功能。

　

Lotus Domino 6.5 之前版本的自訂

　


版本 6.5 的 Domino Web Access 版本僅支援有限的自訂，大多數更改都是透過使用 Domino Designer 編輯表單資料庫中的套表進行。Welcome 頁面和視界頁面的一些更改包括：  

  • 更改Logo。
    可以用其他圖像文件替代螢幕左上角的    Logo。必須首先為表單資料庫建立包含RichText欄位的套表來顯示圖像。然後在名為 hResourcesbyName 的視界中，編輯名為 iwa.gif 的文字，最後用您的圖形替代Logo圖像。
  • 修改 Table of Contents 中的項目。
    可以重新排序或刪除    Top TOC 中的項目（Welcome、Mail、Calendar、To Do List、Contacts、Notebook 等）。例如，如果不想讓用戶看到 Welcome 頁面，可以將其從 TOC 中刪除。
  • 向 Mail 視界中的大綱增加視界或文件夾。
    可以在用戶的郵件資料庫中建立新的視界或文件夾（只能建立不加分類的），並將它們增加到目前視界左邊的大綱中。還可以重新配置這個大綱的預設顯示順序。雖然不能在     Calendar 視界中修改現有視界列，但可以在 Mail 視界中修改它們。

IBM 紅皮書 iNotes Web Access Deployment and Administration 中包括關於如何執行這些修改的詳細說明。

　

自訂 Domino Web Access 6.5


在 Lotus Domino 6.5 版本中，Domino Web Access 在許多方面進行了改進，其中多個更改設計可用來使客戶更容易地進行更改，特別是對 Domino Web Access 的圖形外觀進行更改。這些更改使人們可以自訂 Welcome 頁面，向動作列和 Tools 功能表增加一些項目，自訂 Domino Web Access Redirect 登入頁面以及其他操作。

　

IBM 紅皮書 Domino Web Access 6.5 on Linux 中包括一個非常好的 Domino Web Access 自訂範例的集合。

　

Domino 開發人員可以使用 Domino Designer 修改 Forms6.nsf 資料庫中的多個套表。例如，開發人員可以修改 s_MailMemoEdit 副套表，從而使電子郵件中包含地點或部門。開發人員還可以在 Scene_PreSubmit 函數（在 Custom_JS_Extensions 套表內）中編寫程式碼，以驗證新的欄位。

　

Domino Web Access 6.5 on Linux 描述了管理員和 Domino 開發人員可以執行的多個自訂專案：

Top

  • 修改動作列
    Redbook     使用兩個範例說明了如何向動作列增加新的功能表選項。一個範例透過增加函數來顯示 Web 頁面 —— 在下面範例中，該頁面為 ITSO IBM Redbook Web 頁面：

圖 2. 動作列

　

另一個功能表自訂建立函數以顯示警告、對話方塊或兩者同時顯示，它們會顯示一個或多個所選文件的 UNID。這些操作按鈕是透過編輯 Forms6.nsf 文件中名為 Custom_JS 的套表來建立的。這兩個按鈕的項目被增加到名為 Scene_Actions 的函數中。第一個按鈕不需要其他程式碼。第二個按鈕需要新的函數 ShowDocUIDs，這個函數顯示了包含所選文件 UID 的警告框。

  • 向 Tools 功能表增加子函數
    這個自訂將向 Tools 功能表增加一個項目，建立一個包含預填充主題欄位的新 Help Request 郵件訊息：

圖 3. Tools 功能表

再次說明，要修改 Forms6.nsf 文件中的 Custom_JS 套表來增加這個項目到 Tools 功能表中，並增加新的函數 SendHelpRequest 來處理訊息的建立。

  • 自訂 Welcome 頁面
    可以自訂名為 Custom_WelcomePage 的套表，增加更多的在 Welcome 頁面配置的 Edit 對話方塊內進行 Web 站點選擇控制的機會。下面的螢幕顯示了要在 Domino Designer 中進行編輯的已打開的 Custom_WelcomePage：

圖 4. Custom_WelcomePage 套表

　

Redbooks Web 頁面已經透過標題變數中的項目（ITSO）和 URL 變數（http://www.redbooks.ibm.com/）增加到頁面列表中。儲存套表並重新啟動 HTTP 伺服器後，ITSO 項目會顯示在配置螢幕中可用頁面的列表中。將 Domino Web Access 設定為隨 ITSO 頁面的顯示而打開，這將產生如下所示的結果：  

Top

圖 5. Domino Web Access 中的 ITSO 頁面

  • 自訂banner
    透過修改 Custom_Banner 副套表，可以用其他圖像或文字字串替代 Domino Web Access Logo。該副套表包含一行 HTML 程式碼。要用文字替代Logo，請使用以下這行程式碼：

<div><h2><b>Custom text goes here</b></h2></div>

要用圖形替代Logo，則建立圖像資源並在副套表中輸入到這個圖像資源的路徑：

<div><img src="../../../../inotes/forms6.nsf/alt-logo.gif?OpenImageResource"></div>

還可以透過自訂用於banner背景的圖像來更改banner的外觀。這比較複雜。背景圖像取自名為 gradblue10.jpg 的文件的附件。可以在 Forms6.nsf 資料庫的 hRessourcesByName 視界中找到這個文件。

沒有任何套表顯示該文件存在於 Forms6.nsf 資料庫中，所以您必須在 Domino Designer 中建立這個文件。將該文件命名為 Image，並在其中建立名為 Body 的欄位和指定RichText類型。

儲存該套表後，透過 Notes 用戶端打開 hResourcesByName 視界。打開 gradblue10.jpg 文件並另存圖像文件。用圖形編輯工具修改圖像的顔色，然後重新附加該文件，而不更改圖像的名稱或大小。最後儲存並關閉文件。在重新啟動 HTTP 伺服器時，Domino Web Access 將顯示新的背景。

在 Lotus Domino 7 中，Domino Web Access 使用的所有圖像均作為文件存儲在 File Resource 設計元素中。這使得提取圖像更容易，從而可以用任何圖像編輯器來編輯圖像，然後重新插入這些圖像。

  • 自訂 Domino Web Access Redirect 登入和重新定向螢幕
    Domino Web Access Redirect     是 Domino Web Access 6.5 中的新功能，使用戶可以登入到執行 Domino Web Access Redirect 資料庫的伺服器中並自動重新定向到不同的伺服器。這種重新定向允許用戶存取不同伺服器的郵件文件，而無需知道文件或郵件伺服器的名稱。

可以將其他功能編碼到 Domino Web Access Redirect 中。Redbook 建議您將這些功能整合到入口網站中，或者修改登入和重新定向螢幕，以便與公司的顔色標準和設計標準相匹配。因為這些是正規 Notes 套表，而不是 Domino Web Access 範本，所以可以在 Domino Designer 中對其進行更改和改進 —— 但是注意不要更改登入螢幕上的欄位，否則登入過程可能無法正常執行。

還可以使用 Notes.ini 變數 iNotes_WA_LogoutRedirect 指定 URL，在用戶從 Domino Web Access 退出之後，將其重新定向到該 URL。可以使用這個變數使用戶返回登入頁面、公司入口網站網站頁面或自訂的 Domino Web Access 退出頁面。

Top

　

處理Skin


Domino Web Access 初次打入市場時，它利用了許多已經增加到 Lotus Team Workplace（以前稱為 QuickPlace）中的 HTML 用戶介面開發。QuickPlace UI 中的一個重要概念就是Skin或主題，它表示某一位置的統一圖形外觀。該產品中包含許多Skin；建立新的 Workplace 時，可以選擇確定其外貌的Skin。開發人員可以調整主題的修飾來更改顔色和字體。他們可以自訂 Workplace 中的現有套表，並且可以建立其他套表，以為了滿足Skin組的需要才具有的方式來收集資訊。

　

（有關自訂 Lotus Team Workplace 的詳細資訊，請參閱 developerWorks：Lotus 中的“Discovering Lotus Team Workplace customization”一文和 IBM Redbook“Customizing Quickplace”。）

　

遵循 Lotus Team Workplace 模式，所有 Domino Web Access 套表和副套表都使用 pass-thru HTML（即使未設定這種特殊屬性）。該 pass-thru HTML 包含一些特殊標籤，當將回應 HTML 放在一起時，由伺服器解釋這些特殊標籤：一個標籤用來插入Skin，一個標籤用來插入特定Skin元件或副套表，其他標籤則用來進行其他操作，比如評估計算的塊，以及確定持久存儲項目和僅計算項目等。

　

Domino Web Access 中的所有主頁面 —— 所有視界頁面，所有讀取或編輯物件頁面和首選項頁面 —— 都使用 iNotes6.nsf 資料庫中名為 h_PageUI 的套表。這個套表自身非常簡單。但它包括 HTML 以及主體的開始和結束標籤，而且還包括一些特殊標籤，其中包括：  

  • Computed text
    該標籤採用“@{ }”形式。在大括弧內，可以包含任何公式。在 Domino Web Access 程式碼中，許多公式在存儲到套表或副套表中之前都進行了編譯，二進位結果都用 base64 進行了編碼。沒有編譯的公式也可以放在標籤之間，並會在執行時被編譯和執行。
  • InsertNotesSubForm (<InsertNotesSubform name=formname>)
    該名稱可以是任何副套表名稱。Domino Web Access 使用計算公式確定許多已插入副套表的名稱：這就是它如何可以使用一個套表顯示 Domino Web Access 頁面的原因。
  • QuickPlaceSkin
    該標籤為：<QuickPlaceSkin>。這個標籤可插入相關Skin佈局的全部內容。
  • QuickPlaceSkinComponent
    該標籤可以有多個參數。在最簡單形式中，它包含 <QuickPlaceSkinComponent name=formname>。更複雜的Skin元件標籤會包括 JavaScript，它包含所有指定屬性的值，然後還會插入一個副套表。

　

下圖包含這些標籤的範例並顯示了它們如何建立頁面：

圖 6. QuickPlace 標籤

在套表的頂部，InsertNotesSubForm 標籤尋找具有指定名稱的副套表，並在該標籤的位置插入副套表的內容。在範例中，這個副套表包含<head> 開始和結束標籤，並包含引入公共外部Script文件和標準樣式表的其他標籤。

　

Top

　

同樣，在套表的底部，h_HTMLTailContent 副套表在所有頁面的底部調用的一些標準Script中。我們將一些看不見的 HTML 元素（如 XML 島）和邏輯（如輪詢新的訊息和警告）放在這裏。

　

在套表的中間，QuickPlaceSkin 標籤在組成頁面主體的 HTML 中。這包括一個Skin，在這個Skin內，有打包為Skin元件的其他 HTML，這些元件可以由Skin重新使用。

　

名為 PageContent 的Skin元件包含頁面的實際內容。在這個 PageContent 元件內，Domino Web Access 按照“演一場戲”的 QuickPlace 撰寫程式約定。場景只是透過特殊命名規則相關的兩個副套表。具有場景名稱的副套表被發送到 HTML 頁面的內容區域，在頁面的標頭區域發出具有相同場景名稱和 _Init 尾碼的匹配副套表。

　

下面的 HTML 是Skin程式碼的片斷。它包括定義表中螢幕佈局的常見標籤，以及 QuickPlaceSkinComponent 標籤的兩個偶然事故。這個標籤是在具有指定Skin元件名的副套表中調用的，它發出了與Skin元件邏輯進行聯繫的Script：

　

 <table cellpadding="0" cellspacing="0" border="0" height="18">


  <tr valign="middle">


    <td class="s-bidi-flip" nowrap width="8">


      <img width=8 height=21 class="s-stretch-y" 


      src="/iNotes/Forms6.nsf/h_ResourcesByName/tools-begin.gif/$FILE/tools-begin.gif?OpenElement&MaxExpires">


    </td>


    <td class="s-tool-text s-tool-bg" nowrap> 


</td>


   :


<QuickPlaceSkinComponent name=Logout> 


<QuickPlaceSkinComponent name=ShimmerChat Format={


<td class="s-tool-text s-tool-bg-middle" nowrap><Item></td>}>

　

Skin編輯器


自訂 Domino Web Access 的一個難題之一就是編輯Skin。可以從 Sandbox 下載Skin編輯工具。這個工具對 Forms6.nsf 文件進行操作，允許增加、刪除或更改視界和套表頁面上物件的位置和編輯樣式表，以更改物件的顔色和樣式。該工具如下圖所示：

圖 7. Domino Web Access Skin編輯工具

Top

　

Browser Skins 選擇框顯示可用Skin組 —— Skin組是一組共用相同樣式表的Skin。Domino Web Access Forms 文件包括三個Skin組：h_ShimmerSkin（用於 Internet Explorer）、h_ShimmerSkin_Gecko（用於 Mozilla）和 h_ShimmerSkin_UB（用於不受支援的瀏覽器）。用於 Internet Explorer 和 Mozilla 的Skin組之間的唯一區別是樣式表。

　

Domino Web Access Skins 選擇框顯示Skin類型，比如 h_Page、h_ListFolder、h_Edit、h_MailPage、h_Portal，等等。

　

用於頁面的Skin佈局由兩個僅計算變數 h_SetSkinGroup 和 h_SkinTypeOverride 確定。h_SetSkinGroup 指定要使用的Skin組，h_SkinTypeOverride 指定要使用的Skin類型。有一些預設值。如果正在編輯文件，那麽Skin類型預設為 h_Edit Skin。如果 h_Type==“1”（文件夾的 QuickPlace 識別字），那麽Skin類型為 h_ListFolder。否則，Skin類型為 h_Page。

　

要對 Domino Web Access 頁面進行更改，必須在Skin編輯器中編輯相應的Skin類型。為了確定要編輯的Skin類型，需要在 Web 瀏覽器中查看頁面並顯示原始程式碼。（對於 Internet Explorer，則透過調用 View/Source 功能表項目或點擊右鍵顯示的頁面並選擇 View source 來確定要編輯的Skin類型。）頁面上的兩個 JavaScript var 定義將標識目前Skin組和類型：h_CurrentSkinName 和 h_CurrentSkinType。

　

var h_CurrentSkinName = 'h_ShimmerSkin';
var h_CurrentSkinType = 'h_ListFolder'; 

　

Lotus Domino 7 中的新功能


對於 Domino Web Access，正在進行大量的工作使其在 Lotus Domino 的下一版本中更加用戶化。本文前面已經講述了其中一些更改。主要改進包括：  

  • 如前所述，公式在其套表和副套表的原始文字中將是可用的。伺服器端套表/副套表記憶體已經進行了改進，以便在第一次存取套表或副套表時編譯公式，然後將編譯結果存儲到記憶體內。用這種方式，不會以犧牲性能為代價來獲得可自訂性。
  • Domino Web Access 中的所有圖像都將存儲為 File Resource 設計元素，從而使它們更易於標識和替代。
  • 稱為 ObfuscationList.txt 的新 File Resource 設計元素將包含清楚易讀的程式碼名稱到簡短含義模糊的名稱的映射。
  • Skin將更容易編輯。對於 Forms7.nsf（Domino 7 Forms 文件），將不需要本文前面提到的Skin編輯器。所有Skin都將存儲為 File Resource 設計元素。相關設計元素的名稱將是Skin組名稱後加上連字元，然後再加上Skin類型名稱。
  • Domino Web Access 7 將支援 QueryOpen 和 QuerySave 代理程式。
  • 名為 Domino Web Access_tags 的特殊套表將存儲包含 Domino Web Access 名稱空間的自訂標籤的定義。在 Forms7.nsf 文件的套表和副套表內的 pass-thru 中，您將看到這些標籤。例如：

<DWA:getvars includeall="0" />  

Top

這個套表將提供一種避免（或至少減少）pass-thru HTML 內出現這麽多計算 Notes 公式的方法，並提供了另一種性能改進。  

顯然，Lotus Domino 7 將標誌著 Domino Web Access 的可自訂性的重大提高。以後的 developerWorks：Lotus 文章將詳細研究當對具有特定 Form 類型的郵件文件中的特定文件進行操作時，Domino Web Access 如何確定要演哪一場“戲”，它如何顯示特定 Form 類型的實際欄位值，如何透過自訂 Notes Dictionary 項目將其他欄位增加到特定 Form 類型中，以及如何使用新的 QueryOpen 和 QuerySave 代理程式功能。

　

參考資料

 作者簡介


自從 Lotus Notes 和 Domino 出現以來，David DeJean 就一直使用它們並撰寫這方面的文章。他是關於 Notes 的第一本書“Lotus Notes at Work”的合著者之一，曾經編輯和撰寫了大量的電腦出版物。他是一位 Lotus CLP，也是 DeJean & Clemens 公司的合夥人之一，這家公司從事 Notes 和 Internet 應用程式開發以及技術和營銷傳播。 

Vinod Seraphin 是 Domino Web Access 和 Domino Common PIM Portlets 的高級技術智囊團成員和主要架構師。Domino Web Access（以前的 iNotes）“產生”自 Vinod 在瀏覽器內開發非常強有力的 Personal Information Manager（PIM）的原型努力。他從事 Lotus/Iris/IBM 已經有 10 多年了。在 Domino Web Access 之前，Vinod 是 Lotus Organizer 的軟體架構師。他具有波士頓大學電腦資訊系統的 MS 學位和 MIT 大學電腦科學與工程的 BS 學位。他還是熱心的職業運動愛好者，喜歡壘球、保齡球以及與家人一起度過寶貴的時間。

Top

Lotus Notes 技術分享

如何定期監控User Mail Quota

您是否希望撰寫一個程式,此程式可以在User信箱容量接近Mail Quota時,能夠自動發送一封通知清理信箱容量的郵件給User,如果有此需求的話,那就請按照如下之方法來作即可:

 

1. 首先此程式需要兩個套表,一個套表負責系統設定用,另一個套表為記錄執行情況的套表,兩個套表分別如下:

套表名稱: ($SystemSetup)

套表名稱: Log

以上套表各欄位屬性設定,請直接參照本公司範例資料庫. 

2. 建立一個查詢執行記錄的視界

視界名稱:LogList

3. 建立兩個代理程式,一個啟動系統設定用,一個為負責監控並發送Mail用

代理程式名稱:SystemSetup

代理程式名稱:MailMonitor

此代理程式的Script程式如下:

Sub Initialize

        On Error Goto ErrHandler

        Dim session As New NotesSession

        Dim db As NotesDatabase

        Dim ndb As NotesDatabase

        Dim mdb As NotesDatabase

        Dim view As NotesView

        Dim pdoc As NotesDocument

        Dim sdoc As NotesDocument

        Dim logdoc As NotesDocument

        Dim rtitem As Variant       

        Dim User As Variant

        Set db=session.CurrentDatabase

        Set ndb=session.GetDatabase(db.Server,"names.nsf")

        Set sdoc=db.GetProfileDocument("($SystemSetup)")

        Set view=ndb.GetView("($Users)")

        If sdoc Is Nothing Then

                Exit Sub

        End If       

        If Not (view Is Nothing) Then

                Set logdoc=db.CreateDocument

                logdoc.Form="Log"

                logdoc.ProcessDate=logdoc.Created

                logdoc.PeopleList=sdoc.PeopleList

                Set rtitem=New NotesRichTextItem(logdoc, "Body")

                Call rtitem.AddNewLine(1)

                Call rtitem.AppendText("開始處理---- " & Date$ & " " & Time$)

                Call rtitem.AddNewLine(1)

                Call rtitem.AppendText("==========================================================================")

                Forall c In sdoc.PeopleList

                        User=c

                        Set pdoc=view.GetDocumentByKey(User,True)

                        If Not (pdoc Is Nothing) Then

                                Set mdb=session.GetDatabase(db.Server,pdoc.MailFile(0))

                                If Not (mdb Is Nothing) Then

                                        If mdb.IsOpen Then                                        

                                                If mdb.SizeQuota>0 Then

                                                        If  (mdb.Size\1024)>(mdb.SizeQuota*sdoc.Percent(0)/100) Then

                                                                Call MailRemindLetter(db,mdb,c,sdoc.SubjectFM(0),sdoc.ContentFM(0))

                                                                Call rtitem.AddNewLine(1)

                                                                Call rtitem.AppendText("處理 "& User & " 的信箱:")

                                                                Call rtitem.AddNewLine(1)

                                                                Call rtitem.AppendText("資料庫名稱:"+mdb.Title+"("+mdb.FilePath+")")

                                                                Call rtitem.AddNewLine(1)

                                                                Call rtitem.AppendText("目前容量大小:"+Format$((mdb.Size/1024/1024),"######.0")+"MB")

                                                                Call rtitem.AddNewLine(1)

                                                                Call rtitem.AppendText("系統限制容量大小:"+Format$((mdb.SizeQuota/1024),"######.0")+"MB")

                                                                Call rtitem.AddNewLine(1)    

                                                                Call rtitem.AppendText("處理情況:"+"已發送郵件通知.")                                                            

                                                        Else

                                                                Call rtitem.AddNewLine(1)

                                                                Call rtitem.AppendText("處理 " & User & " 的信箱:")

                                                                Call rtitem.AddNewLine(1)

                                                                Call rtitem.AppendText("資料庫名稱:"+mdb.Title+"("+mdb.FilePath+")")

                                                                Call rtitem.AddNewLine(1)

                                                                Call rtitem.AppendText("目前容量大小:"+Format$((mdb.Size/1024/1024),"######.0")+"MB")

                                                                Call rtitem.AddNewLine(1)

                                                                Call rtitem.AppendText("系統限制容量大小:"+Format$((mdb.SizeQuota/1024),"######.0")+"MB")

                                                                Call rtitem.AddNewLine(1)    

                                                                Call rtitem.AppendText("處理情況:"+"未達通知之容量限制.")                                                        

                                                        End If

                                                End If

                                        End If

                                End If

                        End If

                        Call rtitem.AddNewLine(1)

                        Call rtitem.AppendText("----------------------------------------------------------------------------------------------------------------------")

                End Forall

                If (Ubound(sdoc.PeopleList)=Lbound(sdoc.PeopleList)) And (Trim(sdoc.PeopleList(0))="") Then

                        logdoc.ProcessTotal=0

                Else

                        logdoc.ProcessTotal=Ubound(sdoc.PeopleList)+1

                End If             

                Call rtitem.AddNewLine(1)

                Call rtitem.AppendText("==========================================================================")

                Call rtitem.AddNewLine(1)

                Call rtitem.AppendText("處理結束---- " & Date$ & " " & Time$)

                Call logdoc.Save(True,False) 

        End If      

ErrHandler:

        If Not (rtitem Is Nothing) Then

                Call rtitem.AddNewLine(1)

                Call rtitem.AppendText("處理 " & User & " 信箱出現錯誤訊息:")

                Call rtitem.AddNewLine(1)

                Call rtitem.AppendText("錯誤訊息:" & Error$ & "(line=" &Erl & ")")

        End If

        Resume Next

End Sub

Function MailRemindLetter(db As NotesDatabase,mdb As NotesDatabase,SendToUser As Variant,SubjectFm As String,ContentFm As String)

        Dim mdoc As NotesDocument              

        Dim rtitem As NotesRichTextItem  

        Dim sub1 As Variant

        Dim Body1 As Variant

        Dim a(0)  

        Dim i As Integer     

        If SubjectFm="" Then

                sub1=a

        Else

                sub1=Evaluate(SubjectFm)

        End If      

        If ContentFm="" Then

                Body1=a

        Else    

                Body1=Evaluate(ContentFm)

        End If

        Set mdoc=db.CreateDocument

        Set rtitem = New NotesRichTextItem(mdoc,"Body")

        Call rtitem.AppendText(Body1(0))

        Call rtitem.AddNewLine(1)

        Call rtitem.AppendText("資料庫所在伺服器:"+mdb.Server)

        Call rtitem.AddNewLine(1)

        Call rtitem.AppendText("資料庫名稱:"+mdb.Title+"("+mdb.FilePath+")")

        Call rtitem.AddNewLine(1)

        Call rtitem.AppendText("目前容量大小:"+Format$((mdb.Size/1024/1024),"######.0")+"MB")

        Call rtitem.AddNewLine(1)

        Call rtitem.AppendText("系統限制容量大小:"+Format$((mdb.SizeQuota/1024),"######.0")+"MB")

        Call rtitem.AddNewLine(1)    

        mdoc.Subject =Sub1(0)

        mdoc.SendTo =SendToUser

        Call mdoc.Send(False)   

End Function

4.要開始使用前,請記得務必要先執行”SystemSetup”代理程式,並將相關參數設定完成.執行方法如下: (執行人員必須具備[AdminDB]的角色)

註:如有需要可至智頡科技網站（http://www.wmmate.com）下載範例資料庫。  

Top

近期電子報內容預告

後續陸續會發行相關技術的電子報

內容預告如下:

Lotus Notes系統整合&應用介紹

  內容相當豐富敬請期待...

Top
註:如不想繼續收到本公司之電子報或是要介紹朋友訂閱電子報請至本公司網站線上設定/訂閱


智頡科技股份有限公司

Copyright 1999-2005     版權所有 轉載必究

TEL:03-5326262       FAX:03-5344873        Email:support@wmmate.com