邮件通知用户代码,Domino代码库,德仔网

代码语言

代码分类

【Domino】邮件通知用户

作者: / 发布于2014/7/25/ 1077


	Sub Initialize
	On Error Goto errHandle
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim strDbUrlRec As String,linkUrlRec As String
	Dim rtitem As notesrichtextitem
	Set db=session.Currentdatabase
	Set doc=session.DocumentContext
	On Error Resume Next
	Dim memo As New Notesdocument(db)
	memo.Form="RecMemo"
	memo.SendTo = doc.FirstMailUserName
	memo.CopyTo = doc.SecondMailUserName
	memo.NewMail = "1"
	memo.mailoptions = 1
	memo.saveoptions = 0
	memo.Subject = "《 " & doc.Subject(0) & " 》 会议通知"
	memo.from = "会议管理系统"
	strDbUrlRec="http://" & doc.HTTP_HOST(0) & "/" & doc.SystemPath(0) & "/"
	linkUrlRec=strDbUrlRec & db.FileName & "/0/" & doc.UniversalID & "?OpenDocument"
	memo.DocumentURL=linkUrlRec
	Set rtitem = memo.GetFirstItem ("Body")
	If rtitem Is Nothing Then
	 Set rtitem = New NotesRichTextItem(memo,"Body")
	End If
	Call rtitem.AppendText(memo.Subject(0))
	Call rtitem.AppendText("您可以通过单击文档连接：")
	Call rtitem.AppendText(linkUrlRec)
	Call rtitem.AppendText("查看详细内容。" & Chr(13) & Chr(10))
	Set rtitem = Nothing
	Call memo.Send (False)
	Exit Sub
	errHandle:
	Msgbox "会议管理：(Flow)取消改期|CancelMeeting：" & Error & "错误行：" & Erl
	Exit Sub
	End Sub

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　邮件通知　

同语言下

可能有用的

贡献的其它代码Label