domino 代理发送邮件，并且邮件发件人是指定用户的实现方法

【背景】

            今天一个朋友问我，domino代理发送邮件，对方收到发件人都是admin，怎么设置指定发件人呢？亲自写了段代码，发现是可行的。

【参考代码】

Sub Initialize
	On Error GoTo errhandle
	Dim ss As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	
	Set db = ss.Currentdatabase
	Set doc = db.Createdocument()
	doc.Form = "memo"
	doc.Principal = "zhangsan12"
	
	doc.SendTo = "xxx@163.com"
	doc.Subject = "邮件发送主题"
	
	doc.body = "邮件发送内容"
	
	Call doc.send(True)
	
	MsgBox "邮件发送成功！"
	
	Exit sub
errhandle:
	MsgBox ss.Currentdatabase.Filepath & "," & ss.Currentagent.name & ",Error:" & Error() & ",erl:" & CStr(Erl())
	Exit sub
End Sub

【实现效果】

说明：

        Principal：赋值的用户名，names.nsf不存在的用户也可发送，不知道是否与服务器配置有关，但是不传入其他系统的邮件地址，可千万想着用这个使坏啊。