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

昨天，我用LotusScript创建了一个代理，它收集邮件并发送到亲戚的邮件地址。我已计划每10分钟在服务器上自动运行一次，但当它在notes日志上运行时，会显示此错误消息

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)    

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

---

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

请显示您的代码，以便我们可以看到您如何执行发送操作。好的，我发布代码！你有什么想法吗？首先，这显然不是完全相同的代码，因为它不包含打印“发送邮件…等待”的行。忽略这一点，代码将使用NotesDatabase.OpenMail（）方法，但该代理将作为服务器上的计划代理运行。检查代理属性并验证它是否设置为代表特定用户运行。请参阅下面我的回答，了解一些其他可能的问题…没关系，我将此更改为：将Dim Maildb更改为新NotesDatabase（“，”），将此Dim Maildb更改为新NotesDatabase（db.server，“mail\mail.nsf”），现在它可以工作了！！！