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

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

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

注意：下面的代碼只是一個(gè)樣例，證實(shí)了實(shí)現(xiàn)這項(xiàng)功能的一種方法，如需使用則用戶自己承擔(dān)相應(yīng)的風(fēng)險(xiǎn)。為了保證該樣例能夠正常工作，必須嚴(yán)格 按照下面的寫法去執(zhí)行，產(chǎn)品支持部門不支持對(duì)該代碼的定制。

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