問題描述:
在使用Lotus Notes時，當注冊完一個新用戶之后，是否能自動發送一封歡迎郵件給此用戶？如果您修改郵箱模板并將這封歡迎郵件放到其中，那么這封郵件只會在手動創建 郵箱庫的時候予以保留。

解答:
這個問題作為產品的新功能請求已經提交到相關的人員，SPR號為HHAA5HJB9G，目前來講并沒有計劃去實現該功能。但是可以采用其他的辦法去間接地 實現。可以通過用戶首次打開數據庫的“關于數據庫”文檔來實現，也可以在郵箱模板的數據庫資源包含的數據庫Script中的Post Open事件中添加代碼，使得郵箱首次被打開的時候產生歡迎郵件。

例如：下例中的LotusScript代碼可以發送一封歡迎 郵件，主題為“Welcome某某用戶”，正文部分為“Hello 某某用戶，Welcome to the company”。
下面樣例中的代碼使用簡要表文檔和域值來檢查并標記該用戶是否已經接受過歡迎郵件。注意CommonUserName屬性（屬于NotesSession 類）僅用于歡迎詞中，而當這封郵件被Send方法（屬于NotesDocument類）調用的時候，會用到更為詳細的UserName屬性。

注意：下面的代碼只是一個樣例，證實了實現這項功能的一種方法，如需使用則用戶自己承擔相應的風險。為了保證該樣例能夠正常工作，必須嚴格 按照下面的寫法去執行，產品支持部門不支持對該代碼的定制。

Sub Postopen(Source As Notesuidatabase)
Dim s1 As New notessession
Dim db1 As notesdatabase
Dim memo1 As notesdocument
Dim pdoc1 As NotesDocument
Set db1=s1.CurrentDatabase
Set pdoc1=db1.getprofiledocument("SentHello")
If Not pdoc1.HasItem("SentHello") Then
Set memo1=db1.createdocument
memo1.subject="Welcome " & s1.CommonUserName
memo1.form="Memo"
Dim rtf1 As New notesrichtextitem(memo1, "Body")
Call rtf1.appendText("Hello " & s1.CommonUserName & ",")
Call rtf1.addnewline(2)
Call rtf1.appendtext("Welcome to the company.")
Call memo1.Send(False, s1.UserName)
Set pdoc1=db1.getprofiledocument("SentHello")
Call pdoc1.replaceitemvalue("SentHello", "1")
End If
End Sub