Erro envio email fora dominio

function TfrmConfigura.EnviarEmail(rem,dest,assun,msg : string):boolean;
  procedure GravaErro(erro : string);
  var ts : TStringList;
  begin
    ts := TStringList.Create;
    try
      ForceDirectories(´c:\logmail´);
      try
        ts.LoadFromFile(´c:\logmail\log.txt´);
      except
      end;
      ts.Add(DateTimeToStr(now));
      ts.Add(erro);
      ts.SaveToFile(´c:\logmail\log.txt´);
    finally
      ts.Free;
    end;
  end;
const p = ´******´;
begin
  try
    //Processo de reconhecimento no POP3 do UOL
    NMPOP31.AttachFilePath := ´.´;
    NMPOP31.DeleteOnRead := FALSE;
    NMPOP31.ReportLevel := Status_Basic;
    NMPOP31.TimeOut := 20000;
    NMPOP31.Host := ´10.19.7.12´;
    NMPOP31.Port := 110;
    NMPOP31.UserID := ´xxxx´;
    NMPOP31.Password := p;
    NMPOP31.Connect;
    //
    Result := True;
    NMSMTP1.Host := ´10.19.7.12´;
    NMSMTP1.Port := 25;
    NMSMTP1.UserID := ´xxxx´;
    NMSMTP1.Connect;
    if not NMSMTP1.Connected then
      Result := False;
    if Result then
    begin
      NMSMTP1.PostMessage.FromAddress := rem;
      NMSMTP1.PostMessage.ToAddress.Clear;
      NMSMTP1.PostMessage.ToAddress.Add(dest);
      NMSMTP1.PostMessage.Subject     := assun;
      NMSMTP1.PostMessage.Body.Text   := msg;
      NMSMTP1.PostMessage.Date := FormatDateTime(´dd/mm/yyyy hh:nn´,Now);
      NMSMTP1.SendMail;
      NMSMTP1.Disconnect;
      NMPOP31.Disconnect;
    end;
  except
    on e:exception do
    begin
      GravaErro(e.message);
      NMSMTP1.Disconnect;
      NMPOP31.Disconnect;
      Result := False;
    end;
  end;
end;