代理未在标头中设置“发件人”

时间:2017-11-20 11:14:33

标签: lotus-notes

我们有一个邮件代理,可以生成基本邮件并将其发送到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”字段集。只有“发件人”字段。

是否有人知道服务器配置或解决此问题的方法?我不认为这是代理人的错,对吗?

1 个答案:

答案 0 :(得分:3)

将Principal设置为" testFrom @ anydomain.de @ DOMINODOMAIN"。

因此,如果您的Domino域名为Domain,则将其设置为" testFrom @ anydomain.de @ Domain"