我们有一个邮件代理,可以生成基本邮件并将其发送到mailaddress。
Dim s As New NotesSession
Dim maildoc As NotesDocument
Dim db As NotesDatabase
Set db = s.Currentdatabase
Set maildoc = New NotesDocument(db)
maildoc.Form = "Memo"
maildoc.SendTo = "test123@web.de"
maildoc.Subject = "Test"
Call maildoc.replaceitemvalue("Principal","testFrom@anydomain.de")
Call maildoc.replaceitemvalue("AltFrom","testFrom@anydomain.de")
Call maildoc.replaceitemvalue("InetPrincipal","testFrom@anydomain.de")
Call maildoc.replaceitemvalue("SMTPOriginator","testFrom@anydomain.de")
Call maildoc.replaceitemvalue("From","testFrom@anydomain.de")
Call maildoc.replaceitemvalue("sentFrom","testFrom@anydomain.de")
Call maildoc.replaceitemvalue("InetFrom","testFrom@anydomain.de")
Call maildoc.send(False,False)
当我执行此代理并查看我的web.de帐户时,我发现没有发件人信息。在邮件的标题中没有“from”字段集。只有“发件人”字段。
是否有人知道服务器配置或解决此问题的方法?我不认为这是代理人的错,对吗?
答案 0 :(得分:3)
将Principal设置为" testFrom @ anydomain.de @ DOMINODOMAIN"。
因此,如果您的Domino域名为Domain,则将其设置为" testFrom @ anydomain.de @ Domain"