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不存在的用户也可发送，不知道是否与服务器配置有关，但是不传入其他系统的邮件地址，可千万想着用这个使坏啊。