您的位置:首页 > 其它

Domino为新注册的用户发送欢迎邮件

2012-03-09 00:00 330 查看
问题描述:
在使用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


.tdtscstyle{word-break: break-all; word-wrap:break-word;}
$(document).ready(function(){dp.SyntaxHighlighter.HighlightAll('code');});

原文链接:
http://blog.csdn.net/jaminwm/article/details/5907429
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐