賞你個正妹牆

其實Lotus Notes這個系統是一個相當活的平台，可以內嵌 ActiveX Control，也可以掛入Java Applet。

嘻～不過他可以嵌入WebBrowser 這個控制(Control)，就有很大的點了，玩了幾種玩法，其實都蠻穩定的。因為要製造一點話題，所以我選了這個寄給同事後大受好評的小玩意兒。


這個範例是使用 Lotus Notes Client 8.0.2，而且必須安裝Lotus Domino Designer（編輯郵件時，才會出現比較多的一些指令控制介面）

首先新增一個郵件，然後在建立＝＞物件　這時會彈跳出一個建立物件視窗：

然後我們點選控制，並且找到 Microsoft Web Browser 這個 Control，並且選擇他。

這時候鍵盤都不要動，當選擇完畢，上方的選單列的"文字"或"圖形"會將改成 Applet。
預設的選單列文字是因為焦點的物件原故，預設會是編輯郵件內容的"文字"。
因為Microsoft Web Browser 這個物件是隱性的，用滑鼠是點不到的，若是不小心遺失物件焦點，可用鍵盤的方向重新取得，直到上方的選單列出現 Applet。

選擇選單列上的Applet，選擇物件內容。勾選上面的調整物件以符合視窗大小（指信件的全螢幕）和讀取文件時執行物件。

接著再選擇選單列上的Applet，編輯事件與內容。這時候編輯視窗下方會出現編輯程式碼的地方，找到Initialize 這個事件的程式碼區塊。

然後貼上下面這段的程式碼：
Sub Initialize
    Dim w As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim doc As notesdocument
    Dim browserobject As Variant
    Set uidoc = w.currentdocument
    Set WebBrowser = uidoc.GetObject("Microsoft Web Browser")   
    WebBrowser.Navigate("http://walls.tw/Gadget?view=home&is_signedin=1")
End Sub

這樣填一填收件人，先寄給自己試試看。下面就是畫面結果囉。

整個運作原理，其實就是嵌入WebBrowser這個 ActiveX Control，接著在信件讀取時執行這個控制。而我們在這個讀取時執行的事件寫了一些程式碼，在自己這封的信件使用GetObject來取得名字叫作Microsoft Web Browser(可自己重新命名，這是預設的)。取得物件後，瀏覽正妹牆的首頁。


其實這個WebBrowser這個 ActiveX Control應用可以很廣泛，這篇先寫到這裡，以後再寫幾篇相關。