46. Lotus Notes中编程发送邮件（一）

邮件是Lotus Notes体系的核心和基本功能，以至于Send()是NotesDocument的一个方法，任何一个文档都可以被发送出去，Notes里的一封邮件也只是一个有一些特殊字段的文档。在程序开发中，发邮件的功能也被广泛和高度使用。Notes中发邮件的功能可以被开发到很精致和复杂的程度，适应几乎所有的需求。笔者准备分几篇文章讨论这些功能。

首先是最简单的在LotusScript中发送邮件，包括传统的客户端和Html邮件。给出用户、主题和内容，发送邮件，这是最典型的需求，自然也应该被写成函数。

下面这个函数的参数分别为收件人、抄送给、盲送给、主题、正文和附上的链接文档（如果没有则传入Nothing）。各个收件人参数的数据类型与文本型字段所能接受的一样，即字符串或字符串数组。

Public Sub CC(sendto As Variant,CopyTo As Variant,BlindCopyTo As Variant,subject As String,body As String,linkdoc As Variant)
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Set db=s.CurrentDatabase
	Dim mailDoc As New NotesDocument(db)
	With mailDoc
		Call .ReplaceItemValue("Form", "memo&#