代理未在 header 中设置 "From"

Question

我们有一个生成基本邮件并将其发送到邮件地址的邮件代理。

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 帐户时，我发现没有发件人信息。在邮件的 header 中没有设置 "from" 字段。只有一个 "Sender" 字段。

有人知道服务器配置或解决此问题的方法吗？我不认为这是特工的错，对吧？

Answer 1

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

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

代理未在 header 中设置 "From"

Agent does not set "From" in header

lotus-notes