我们有一个邮件代理,它生成一封基本邮件并将其发送到一个邮件地址。
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帐户我看到没有发件人信息。邮件标题中没有“发件人”字段集。只有“发件人”字段。
有人知道服务器配置或解决这个问题的方法吗?我不认为是经纪人的错,对吗?