网站首页
网站导航
Ctrl+D收藏
首 页
代码段
源码包
文档库
工具箱
代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Domino
】
邮件通知用户
作者:
/ 发布于
2014/7/25
/
1074
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
评论列表
本站所提供的代码,版权归原作者所有,若有侵犯作者版权,请与我们联系,我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。
试试其它关键字
邮件通知
同语言下
.
LotusDomino页面自动注册用户
.
多 Notes 文档中附件批量汇总到 Notes 文档中
.
多 Notes 文档中附件批量导出到本地系统
.
使用lotusscript获得群组中的用户列表_lotus notes
.
利用程序增加角色
.
关闭计算机
.
检验数字域
.
利用程序获取计算机名称及登陆用户名
.
清理收件夹的代理Code for CleanupInbox agent
.
邮箱中显示中文等价名
可能有用的
.
SQL查询 多列合并成一行用逗号隔开
.
一行一行读取txt的内容
.
C#动态修改文件夹名称(FSO实现,不移动文件)
.
c# 移动文件或文件夹
.
c#图片添加水印
.
Java PDF转换成图片并输出给前台展示
.
网站后台修改图片尺寸代码
.
处理大图片在缩略图时的展示
.
实现对图片上传的接收
.
判断用户输入的是否为IP地址
贡献的其它代码
Label
地图
本站
我们
服务
版权
联系
回馈
博客