代码之家  ›  专栏  ›  技术社区  ›  Max

代理未在标头中设置“From”

  •  0
  • Max  · 技术社区  · 7 年前

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

    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帐户我看到没有发件人信息。邮件标题中没有“发件人”字段集。只有“发件人”字段。

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

    1 回复  |  直到 6 年前
        1
  •  3
  •   Per Henrik Lausten    7 年前

    将主体设置为“testFrom@anydomain.de@多米诺领域”。

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