Lotus Notes中编程发送邮件(二)
在编程发送各种类似通知的邮件时,时常会需要发件人显示为某个特定的帐户,比如某个部门的名称或者管理员的名字。另一种需求是,用户收到某封邮件后,回复邮件的地址不同于发件人栏显示的地址。而正常情况下,发送邮件的脚本如果是在客户端运行,发件人就是当前用户;如果是在服务器上运行,发件人则为代码的签名者;并且邮件都是被回复到显示的发件人地址。如果同时邮件是由服务器上的定时代理发出的,我们可以使用想显示的发件人的ID签名代理,甚至单为此用途先创建一个ID。或者也可以在代理的属性的安全选项页里设置以其他用户的身份运行(Run on behalf of),这样做有一定的权限上的要求,Notes帮助文档里有详细说明。
不过可以想见的最方便的方法还是在代码里指定发件人,“伪造”签名。这样做只是为了显示上的方便,并没有破坏Notes严格的身份安全,收到的邮件在收件人栏还是会有“甲替乙发送”这样的备注,但是已经满足了我们对通知邮件的发件人的要求。
笔者记不清在曾经某个版本的Notes中,只需给要发送的邮件文档添加一个From字段,就可以修改发件人。在最近的版本里,这是行不通的,下面的方法却一直可行。
这个邮件自定义类,实现的功能和46.Lotus Notes中编程发送邮件(一)里的代码一样,就是发送一封普通邮件,除了可以指定要显示的发件人或另外的回复地址。方法是分别指定Principal或ReplyTo字段,除了一般的邮件地址,还必须包含该地址对应的用户的Domino域。因为大部分情况下,这些用户和当前用户都是同属一个Domino域的,为了简便,在GetDomain()方法里取的就是当前用户的Domino域。最后一个CopyItem()方法只是为了方便给邮件添加一些内容。
Public Class Mail
Private s As NotesSession
Private mailDoc As NotesDocument
Private domain As String 'Notes domain
Public SendTo As Variant
Public Subject As String
Public Body As String
Public LinkDoc As NotesDocument
Public CopyTo As Variant
Public BlindCopyTo As Variant
Public ReplyTo As String
Public Principal As String Sub New(sendTo As Variant, subject As String, body As String)
Me.SendTo=sendTo
Me.Subject=subject
Me.Body=body Me.CopyTo=""
Me.BlindCopyTo=""
Set Me.LinkDoc=Nothing Set s=New NotesSession
Dim db As NotesDatabase
Set db=s.CurrentDatabase
Set mailDoc = New NotesDocument(db) End Sub Private Function GetDomain()
If Me.domain><"" Then
Exit Function
End If
Dim nd As NotesDirectory
Set nd=s.Getdirectory(s.Currentdatabase.Server)
Dim info As Variant
info=nd.Getmailinfo(s.Effectiveusername)
Me.domain=info(5)
End Function Public Function Send()
With mailDoc
Call .ReplaceItemValue("Form", "memo")
Call .ReplaceItemValue("SendTo",sendto)
Call .ReplaceItemValue("CopyTo", CopyTo)
Call .ReplaceItemValue("BlindCopyTo", BlindCopyTo)
Call .ReplaceItemValue("Subject",subject)
End With
Dim rtItem As New NotesRichTextItem(mailDoc,"Body")
Call rtItem.AppendText(body)
If Not linkdoc Is Nothing Then
Call rtItem.AppendDocLink(linkdoc,"click the link")
End If ' Format should equal: "From User" <fromuser@xyz.com@DOMAIN>
If Me.ReplyTo><"" Then
Call Me.GetDomain()
mailDoc.ReplyTo=Me.ReplyTo & "@" & Me.domain
End If If Me.Principal><"" Then
Call Me.GetDomain()
maildoc.Principal =Me.Principal & "@" & Me.domain
End If Call mailDoc.Send(False)
Dim msg As String
If IsArray(sendto) Then
msg=Join(sendto)
Else
msg=sendto
End If
Print "sent mail to " & msg
End Function Public Function CopyItem(item As NotesItem, itemName As String )
Call mailDoc.Copyitem(item, itemName)
End Function
End Class
调用起来很简单:
Dim mail As New Mail(sendTo, subject, body)
Dim replyTo As String
replyTo=”John Henry”
mail.Principal=replyTo
mail.ReplyTo=replyTo
Call mail.Send()
Lotus Notes中编程发送邮件(二)的更多相关文章
- 46. Lotus Notes中编程发送邮件(一)
邮件是Lotus Notes体系的核心和基本功能,以至于Send()是NotesDocument的一个方法,任何一个文档都可以被发送出去,Notes里的一封邮件也只是一个有一些特殊字段的文档.在程序开 ...
- Lotus开发之Lotus Notes中域的验证
一:介绍 Lotus中的域主要有以下的类型:文本,日期/时间,对话框列表,复选框,单选按钮,RTF等等.Lotus中域的验证方式有很多种公式,lotusscript,javascript等 ...
- C# 使用 Lotus notes 公共邮箱发送邮件
公司的邮件系统用的是反人类的 Lotus notes, 你敢信? 最近要实现一个功能,邮件提醒功能,就是通过自动发送提醒邮件 前前后后这个问题搞了2天,由于公司的诸多条件限制,无法直接调用到公司发送邮 ...
- Lotus Notes 学习笔记
这是一个学习关于如何使用Lotus Notes的Agent功能来实现自动化办公的学习笔记. 一. 介绍 Lotus Notes/Domino 是一个世界领先的企业级通讯.协同工作及Internet/I ...
- 52. 模版和设计元素——Lotus Notes的代码重用
不论是理论上还是实用上,代码重用都是编程的一个重要议题.可以从两个角度来讨论代码重用. 一是逻辑上代码以怎样的方式被重用.既可以通过面向对象的思想普及以来耳熟能详的继承的方式.比如先建了一个车的基类, ...
- C# Windows Service调用IBM Lotus Notes发送邮件
近日研究了下IBM Lotus Mail,这货果然是麻烦,由于公司策略,没有开放smtp,很多系统邮件都没有办法发送,于是入手google学习Lotus Mail,想做成Windows服务,提供wcf ...
- 学习ASP.NET Core Blazor编程系列二——第一个Blazor应用程序(中)
学习ASP.NET Core Blazor编程系列一--综述 学习ASP.NET Core Blazor编程系列二--第一个Blazor应用程序(上) 四.创建一个Blazor应用程序 1. 第一种创 ...
- 55. 略谈Lotus Notes的与众不同及系列文章至此的总结
在二十多年的悠久历史里,Lotus Notes发展出一整套独特的概念.技术和思维.由于它早期惊人的领先时代和后续发展中同样惊人的忠于传统,这位软件领域的寿星在如今发展更新速度远超往日和技术愈趋公开互通 ...
- shell编程(二)
第三十二次课 shell编程(二) 目录 十五.shell中的函数 十六.shell中的数组 十七.告警系统需求分析 十八.告警系统主脚本 十九.告警系统配置文件 二十.告警系统监控项目 二十一.告警 ...
随机推荐
- Java从入门到精通——数据库篇之JAVA中的对Oracle数据库操作
在Java中对Oracle数据库的操作分为两种:一.查询.二.非查询. 下面是我对其进行总结: 一.查询数据 /** * 根据用户代码查询 * @param userId * @return 如果存在 ...
- C#二维数组及其本质(转)
C#中二维数组包含两类:二维数组和数据矩阵.(这是我个人分类法,我认为比较能反映本质). 如上图,是二维数组,横向为第一维度,纵向为第二维度,不同维度可以有不同长度. 如果去掉元素7,那么上图也可能是 ...
- MySQL参数调优最佳实践
前言很多时候,RDS用户经常会问如何调优RDS MySQL的参数,为了回答这个问题,写一篇blog来进行解释: 哪一些参数不能修改,那一些参数可以修改:这些提供修改的参数是不是已经是最佳设置,如何才能 ...
- windows环境下MySQL重启的命令行说明
ctrl+r 弹出运行框,输入cmd,然后再控制太输入命令: 1.点击“开始”->“运行”(快捷键Win+R). 2.停止:输入 net stop mysql 3.启动:输入 net start ...
- JPA学习---第六节:大数据字段映射与字段延迟加载
1.大数据字段所需的注解 @Lob ,例如: @Lobprivate String info; 在mysql中映射产生的字段的类型是longtext:在oracle中是 CLOB @Lobpriva ...
- Cocos2D创建项目
创建项目 配置好开发环境后, 用CMD切换到~\cocos2d\cocos2d-x-2.2.2\tools\project-creator目录上执行以下脚本 python create_project ...
- mysql获取日期(将时间戳转换成短日期格式)
且看如下: '; 结果: +-------------------------------------+---------------------+ | date_format(create_time ...
- 来吧,给你的Winform列表控件画个妆
前言 以前看别人的控件好看只有羡慕的份:以前觉得控件重绘是个很复杂的东西:以前知道MSDN很全面很专业却一直没有好好用起来: 作为初级程序猿,不能原地踏步,来吧,让我们一起把 TreeView 美化一 ...
- Document Set 【一】
概括介绍: Document Set 是SharePoint2010之后出现的一个新的Feature.这个Feature的主要目的是两个: 1,是帮助 User 以一个文件的管理方式管理一个文件集合. ...
- jsp的常用指令有哪些(编译指令/动作指令整理)
jsp的常用指令有哪些(编译指令/动作指令整理) JSP动作指令 JSP - JSP中的脚本.指令.动作和注释