|
大家都知道在服务器上运行document.send()，用户在邮件中看到的发件人是代理签名者的名字，如果将document.Principal=任意字符,比如“AgentSent”,我们就会从邮件中看到发件人是“AgentSent”，但是此时我们会发现邮件中多了一个可见的Sent By:此处还是会透露代理签名者的名字。真是气死人！不过如果你将一个叫tmpDisplaySentBy的域的值改为“AgentSent”,哈哈，邮件中再也找不到代理签名者的名字。
sub MyMailSend(SendName as string)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim MailDoc As notesdocument
Set db = session.CurrentDatabase
Set Maildoc = New NotesDocument( db )
Maildoc.Form = "Memo"
Maildoc.Principal="AgentSent"
Maildoc.tmpDisplaySentBy="AgentSent"
Maildoc.SendTo = SendName
Call Maildoc.Send( False )
end sub
|