Domino Server-to-Server |字符集翻译奇怪的行为

Question

的信息： 我们在环境中使用不同的多米诺骨牌服务器。所有服务器都使用我们的主要Domino服务器进行邮件路由（只有具有外部访问权限的服务器）。所以所有服务器都设置了主服务器的中继主机。 服务器都安装了相同的版本9.0.1 FP7。

问题： 当邮件从mail.box从主服务器传输到mail.box时，会发生奇怪的事情。字符集被翻译，结果是带有象形文字的乱糟糟的邮件。 好的和坏的例子附上。 我在MIME-Server配置中尝试了所有类型的设置。

如果我手动将邮件从一个mail.box复制到另一个邮箱，则电子邮件看起来没问题，因此它必须是发送服务器出站或主服务器入站的设置。

感谢任何帮助或提示。

的代码

Sub Click(Source As Button)
On Error Goto ErrorHandling
Const C_BUTTON_NAME = "Save & Send"
Dim workspace As New NotesUIWorkspace
Dim CurrentDoc As NotesUIDocument
Dim item As NotesItem
Dim doc As NotesDocument

Set CurrentDoc = workspace.CurrentDocument      

LookupPAB = True
Call Initialise_Mail

Dim CopyToAddress As String
Dim BlindCopyToAddress As String
Dim ReplyAddress As String
Dim SendToAddress As String

Dim body As NotesRichTextItem

Call Create_New_MailDoc

Forall Email In Antwort
    Call AddToSendTo(Email)
End Forall


' SendTo address (required)
' Set the From fields
' Specify how I would like the From address to appear

ReplyAddress = |"Logistics@StorTrec.de" <Logistics@StorTrec.de>|


' Call the From function to set the various From fields
Call AddToFrom(ReplyAddress)

' Your customization of MailDoc starts here.  Set the Subject field and contents of the Body field
MailDoc.Subject = currentdoc.FieldGetText("MailSubject")

If currentdoc.fieldgettext("priority") = "1" Then MailDoc.Importance = "1"

Set doc = currentdoc.Document

Set body = doc.GetFirstItem("MailBody")

Call Maildocbody.appendrtitem(body)

If currentdoc.fieldgettext("Protocol") = "yes" Then 

    Call MailDocBody.AddNewLine(2)
    Call MailDocBody.AppendText("From: " & currentdoc.fieldgettext("from2"))
    Call MailDocBody.AddNewLine(1)
    Call MailDocBody.AppendText("Sent: " & currentdoc.fieldgettext("sent2"))
    Call MailDocBody.AddNewLine(1)
    Call MailDocBody.AppendText("To: " & currentdoc.fieldgettext("to2"))
    Call MailDocBody.AddNewLine(1)
    Call MailDocBody.AppendText("Subject: " & currentdoc.fieldgettext("Subject2"))
    Call MailDocBody.AddNewLine(2)
    Dim itemB As NotesItem
    Set itemB = doc.GetFirstItem( "MailBody2" )
    Call Maildocbody.appendrtitem(itemB)
End If



Call Send_MailDoc

Messagebox "Mail sent!", 64, "Mail sent"
Call currentdoc.Close

End Sub