Question

昨天我在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添加到文件'host'，但错误重现;如果我使用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)

Answer 1

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

此外，请确保服务器可以解析它自己的名称。有许多问题可能导致此失败。例如，我发现当服务器上的DNS配置将错误的域名后缀应用于所有名称时，或者如果它指的是外部＆＃39; DNS服务器，但服务器的主机名在内部＆＃39; DNS区域。

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

1 个答案: