如何实现自动转发邮件并还可以在用户邮箱库里保留一份拷贝？

Technote (troubleshooting)

问题

用户需要把邮件都转发到另外的一个地址，但还需要在 Domino 邮箱库里保留一份拷贝，如何实现呢？

解决问题

此需求可以有多个方法来实现, 下面是3个样例.
注意：
为了能够正确执行下面的例子，请确保在用户的个人文档里的转发地址必须为空。

方法1. 使用代理的简单操作：

• 打开用户的邮箱库，并选择菜单：创建 - 代理。
• 在代理框中，选择下面的“添加操作”按钮。
• 然后，在“添加操作”里选择“发送邮件消息”。
• 在“收件人”那里输入需要转发的地址。
• 选中“在消息中包含文档的拷贝”。
  
• 在"主题"右面选择"其他", 再选择公式, 在公式框里输入: "Fwd: " + Subject.

   



方法2. 使用邮件规则:   

可以通过创建邮件规则来转发邮件到其他地址, 并保持发件人信息不变，具体步骤是:   

1. 打开用户的邮箱库.   

2. 选择左面工具里的规则, 然后选择上面的"新建规则".   

3. 指定条件是"所有文档", 指定操作是"将拷贝发送给" 收件人就是需要转发的地址.    
   


方法3. 使用LotusScript 的代码:   

• 在收件人的邮箱文件中创建 LotusScript 代理，在新邮件到达之前执行。
  注意正确填写Call newdoc.send那一行的第2个参数，做为转发地址。
• 下面的代码是放置在Initialize的事件里.
• 下面的Send 语句需要被修改, 应该把需要转发的地址填写在第2个参数那里.

注意：下面的代码只是一个样例的脚本, 用于展示一个解决此问题的方法。为了能让它正常工作, 脚本必须被完全按照下面所示的写。并且IBM 软件技术支持是不负责为客户的配置定制此脚本的。   

Dim s As New NotesSession   
Dim db As NotesDatabase   
Dim doc As NotesDocument   
Dim newdoc As notesdocument   

Set db=s.currentdatabase   
Set doc=s.documentcontext   
Set newdoc = db.CreateDocument   
Call doc.CopyAllItems(newdoc, True)   

newdoc.subject="Fwd: "& newdoc.subject(0)   
newdoc.copyto=""   
Call newdoc.send(False, "<email address>")