title: Error connecting to server. The remote server is not a known TCP/IP host during send email
body: <p>yesterday i have created an agent in lotus script that collects mails and send them to the relatives mail address. i have scheduled it to work automatically on server every 10 minutes but when it runs on notes log appears this errors messages</p>
  
  <pre><code>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.
  </code></pre>
  
  <p>I try to add the FQHN of the server to the file 'host' but errors recur;  if i ping the mail server using ip address or the name of the mail server from domino server, it responds.
  can anyone help me ?
  thank</p>
  
  <p>THIS IS THE CODE:</p>
  
  <pre><code>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  " &amp; 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)    
  </code></pre>