Vba 用NOTES发送邮件 不会有XP的安全警告
来源:互联网 发布:js随机数 编辑:程序博客网 时间:2024/06/06 17:59
'在notes 7.0 Excel2003上测试通过'必须先引入对象lotus domino Objects对象 Sub NotesSendMail() Dim session As New NotesSession
Dim userdbname As String
Dim doc As NotesDocument
session.Initialize ("password")
Dim db As NotesDatabase
' Dim body As NotesRichTextItem
Set db = session.GetDatabase("domino server name", "Mail database (*.nsf)", False)
Set doc = db.CreateDocument
ret = doc.AppendItemValue("Form", "Memo")
With doc
.AppendItemValue "Form", "Memo"
.AppendItemValue "Subject", "Test E Mail"
.AppendItemValue "SendTo", "mail@123.net"
Set body = .CreateRichTextItem("Body")
With body
.AppendText "This is a Test Mail"
End With
.SaveMessageOnSend = True
.Send False
End With
Set body = Nothing
Set doc = Nothing
Set db = Nothing
Set session = Nothing
End Sub
Dim userdbname As String
Dim doc As NotesDocument
session.Initialize ("password")
Dim db As NotesDatabase
' Dim body As NotesRichTextItem
Set db = session.GetDatabase("domino server name", "Mail database (*.nsf)", False)
Set doc = db.CreateDocument
ret = doc.AppendItemValue("Form", "Memo")
With doc
.AppendItemValue "Form", "Memo"
.AppendItemValue "Subject", "Test E Mail"
.AppendItemValue "SendTo", "mail@123.net"
Set body = .CreateRichTextItem("Body")
With body
.AppendText "This is a Test Mail"
End With
.SaveMessageOnSend = True
.Send False
End With
Set body = Nothing
Set doc = Nothing
Set db = Nothing
Set session = Nothing
End Sub
- Vba 用NOTES发送邮件 不会有XP的安全警告
- VBA自动发送邮件
- 使用IBM Notes向Connection社区的用户发送邮件
- 警告: 网页已经过期 您申请的网页是用表单中提交的信息创建的。该网页已失效。由于有安全预警功能,Internet Explorer 不会自动再次提交您的信息。
- 安全发送你的邮件-Enlocked
- VBA禁止安全警告和屏幕更新
- php发送安全邮件
- jmail发送有链接的邮件
- 用CAPI实现notes的邮件提醒
- java调用notes API 发送邮件
- 使用python 驱动 lotus notes发送邮件
- 使用python 驱动 lotus notes发送邮件
- Excel VBA开发自动发送邮件
- win7打开文件夹有安全警告的解决办法
- 5.0以上启动service有个安全警告的问题
- 去掉XP/2003打开文件安全警告
- 如何自动检测死锁并发送警告邮件
- vb发送邮件接收邮件vba邮箱操作方法
- Ant十五大最佳实践
- H.323协议简介
- Hibernate3入门指南
- LIBSVM中参数的意义
- sql server数据库编码(varchar,nvarchar的区别)
- Vba 用NOTES发送邮件 不会有XP的安全警告
- 移植qpdf2到qtopia-1.7.0
- #include " mysql.h " 出错解决方法之一
- EclipseRCP技术积累
- 3CREPORT -- 中国3C消费报告 -- 3C类消费品投诉门户(电脑 通讯 消费类电子)
- C#调用存储过程
- 免费的Javascript日期输入及选择控件大杂烩!(转)
- C#读写文本
- C#获取应用程序图标