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

代码语言

代码分类

【Domino】邮件通知用户

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


	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