Lotus Domino中ls代理发送邮件时,如果不做特殊处理,发件人的名字是不是有问题?如果有问题,怎么解决的?
Published by admin on 03月 29, 2009
问题内容：“那代理里面发送邮件时，如果不做特殊处理，发件人的名字是不是有问题？如果有问题，你怎么解决的？”
我问到：“B/s做过吗？”
“我一直在做。”
“那代理里面发送邮件时，如果不做特殊处理，发件人的名字是不是有问题？如果有问题，你怎么解决的？”
这个人竟然嗯啊了半天也没有说到实际的内容。这个问题的实践性很强，没有做过这种发送邮件的程序，一般很难知道这个问题怎样回答。呵呵，你这个问题问的不够明确，因为本身我在做B/S下代理发邮件时就碰到过好多不同的情况。
不知道楼主有没有实际做过呢
我说两种基本的情况：
1：b/s代理里使用 @mailsend，那么发件人的名字是服务器的名字。
2：b/s代理里使用 lotusscript，那么发件人的名字是登陆用户自己的邮箱名字。
—————————————————————
1、不用默认的($Inbox)自己另建视图，在邮件里面增加一个域来表示发送者
2、用这个程序来处理
Function sendMailFromWeb(strFrom As String,strSendTo As String,strCopyTo As String,strTitle As String,strBody As String) As String
On Error Goto ErrHandle
Dim session As New NotesSession
Dim dbMailBox As NotesDatabase
Dim doc As NotesDocument
Set dbMailBox = session.GetDatabase(”",”mail.box”)
‘如果是多个mailbox，请使用：mailN.box (N = 1…Max)
‘Set dbMailBox = session.GetDatabase(”",”mailN.box”)
Set doc = dbMailBox.CreateDocument
doc.Form = ”Memo” ‘邮件表单名
doc.From = strFrom ‘指明发件人
doc.SendTo = strSendTo ‘收件人
doc.CopyTo = strCopyTo ‘抄送
doc.Recipients = Evaluate(|SendTo:CopyTo:BlindCopyTo|,doc) ‘最重要的一句话，指明收件人
doc.Title = strTitle ‘邮件标题
doc.Body = strBody
Call doc.save(True,True)
sendMailFromWeb = ”成功！”
Exit Function
ErrHandle:
sendMailFromWeb = ”发送失败！” & Error()
Exit Function
End Function
Add A Comment