使用下面的方法，無論那個帥哥靚女訪問了你的帖子，系統將自動給你發一封郵件，告訴你他/她的名字。

A）原創，請勿轉載。
B）請勿在代碼段惡意發揮.


1)建立新的帖子
2)點擊菜單"創建"下的"對象"
3)選擇"控件"和任意對象如"ActiveXPlugin Object"。(最好選個小控件)
4)點擊菜單"小程序"上，然后獲得"屬性"，然后選擇"當讀取文檔時啟動對象"
5)然后選擇"編輯事件和屬性"，事件對話框打開連接對象。
6)在"Initialize"段中增加如下代碼.Termination段中也應該可以。
   Sub Initialize 
	Dim session As New notessession
	Dim workspace As New notesuiworkspace
	Dim document As notesdocument
	Dim attach As Variant
	Dim taskId As Integer
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim mailBody As NotesRichtextItem
	Dim attachment As NotesEmbeddedObject
	Set document =  workspace.currentdocument.Document
	Set db = session.CurrentDatabase
	Set doc = New NotesDocument( db )
	doc.SendTo = "岳大炯cd0078/ContractUser/zte_ltd@zte_ltd"
	doc.Subject = "Visotor"
	Set mailBody=doc.Createrichtextitem("Body")
	Call mailBody.AppendText(session.UserName)
	Call doc.Send( False )
   End Sub 
7)發帖就可以了.