连接服务器时出错。在发送电子邮件期间，远程服务器不是已知的 TCP/IP 主机答案

【问题标题】：Error connecting to server. The remote server is not a known TCP/IP host during send email连接服务器时出错。在发送电子邮件期间，远程服务器不是已知的 TCP/IP 主机
【发布时间】：2014-09-19 13:07:53
【问题描述】：

昨天我在 lotus 脚本中创建了一个代理，它收集邮件并将它们发送到亲戚的邮件地址。我已经安排它每 10 分钟在服务器上自动运行一次，但是当它在笔记日志上运行时会出现此错误消息

AMgr: Agent ('agent name' on 'database name') printing: Sending mail...wait
    19/09/2014 14:37:12   Error connecting to server 'ServerName': The remote server is not a known TCP/IP host.

    19/09/2014 14:37:12   Error connecting to server 'ServerName': The remote server is not a known TCP/IP host.

    19/09/2014 14:37:12   AMgr: Agent ('agent name' on 'database name') error message: Notes error: The remote server is not a known TCP/IP host.

我尝试将服务器的 FQHN 添加到文件“主机”，但错误再次出现；如果我使用 ip 地址或来自 domino 服务器的邮件服务器名称 ping 邮件服务器，它会响应。谁能帮我？谢谢

这是代码：

Dim despratica As String
    Dim listaambiti As String
    Dim am As Integer
    Dim notebody As String
    Dim  s As Integer
    Dim valori () As String
    Dim itememail As NotesItem

    Dim Maildb As New NotesDatabase("","")
    Dim Maildoc As NotesDocument
    Dim r As Integer

    Call Maildb.openmail
    Set Maildoc = New NotesDocument( Maildb ) 
    Maildoc.From=doc.tab_email(0)
    Maildoc.Subject ="From  " & doc.tab_nomeaz(0)
    Maildoc.SendTo=""       
    listaambiti=listaambiti + "-" + doc.ambito(am)      

    despratica= "nump description"

    notebody="body"
    Set rtItem = New NotesRichTextItem(Maildoc , "Body" )
    Call rtItem.AppendText(notebody)

    For s =0 To Ubound(doc.SendTo)
        Redim Preserve valori(0 To s)
        valori(s)=doc.SendTo(s)     
        r=0
        Forall f  In valori
            If f=   valori(s) Then  r=r+1
        End Forall
        If r=1 Then             
            Set itememail=Maildoc.GetFirstItem( "SendTo" )
            Call itememail.AppendToTextList(valori(s))
            Call Maildoc.Send(False,Cstr(valori(s)))
        End If          
    Next
    Call Maildoc.save(True,True)

【问题讨论】：

请出示您的代码，以便我们了解您是如何进行发送操作的。
好的，我贴代码！
你有什么想法吗？
首先，这显然不是完全相同的代码，因为它不包含打印“正在发送邮件...等待”的行。忽略这一点，代码使用 NotesDatabase.OpenMail() 方法，但代理在服务器上作为计划代理运行。检查代理属性并验证它是否设置为代表特定用户运行。有关其他一些可能的问题，请参阅下面的答案...

标签： lotus-notes

【解决方案1】：

您正在使用 OpenMail()，即使代理设置为代表特定用户运行，我认为此调用仍可能依赖于 MailFile 和 MailServer 的 notes.ini 设置——这可能不会存在于服务器的 notes.ini 文件中（即使它们存在，它们也不适合您期望的用户！）。尝试使用其他方法来查找并打开用户的邮件文件。

另外，请确保服务器可以解析它自己的名称。有许多问题可能导致此失败。例如，当服务器上的 DNS 配置将错误的域后缀应用于所有名称时，或者如果它指的是“外部”DNS 服务器但服务器的主机名位于“内部”DNS 区域中，我已经看到这种情况发生.

【讨论】：

没关系，我改变这个： Dim Maildb As New NotesDatabase("","") with this Dim Maildb As New NotesDatabase(db.server,"mail\mail.nsf") 现在它工作！！！