Problemas con TIdSMTPserver

[ErnestoCarrera]

Pues la verdad es que visto lo visto, no veo para que hacen falta los servidores de correo.

He estado haciendo pruebas con el IdDNSResolver, pero al ejecutarlo me daba algunos problemas de socket y buscando encontré otra manera de hacerlo con la cual ni siquiera me hace falta el componente en cuestión:

    //Resolvemos el nombre de dominio
    IPDestino := Gstack.ResolveHost(DNS);
    //y enviamos el mail.
    TIdSMTP.QuickSend(IPDestino,auxMsg.Subject,
                      auxMsg.Recipients.EMailAddresses,
                      auxMsg.From.Text,auxMsg.Body.Text);

con esas dos instrucciones en principio, yo creo, debería ir.

He estado trazando el programa, pasándole en DNS lo que va delante de la @ en la dirección de correo, y la función resolvehost, efectivamente, me da una dirección ip en principio válida (vamos una de las que me da el comando nslookup) y los correos a direcciones de mi empresa me van pero cuando introduzco una dirección de gmail, aunque la IPdestino parece válida me da un connection timeout en el QuickSend . En fin, seguiré investigando a ver si descubro porque no puedo mandar mails a todos lados.

Muchas gracias por el interés

(EDITO esto para decir que lo que pongo en DNS es lo que va DETRAS de la @, es decir de '[email protected]' le paso midominio.algo. Supongo que con la lectura del post se deduce que se me fue la olla al escribirlo, pero bueno, lo aclaro por si acaso)

[ErnestoCarrera]

Buenas de nuevo,

Escribo para decir que he estado haciendo pruebas y con lo que tengo puesto en el post de arriba, me envía los correos a mi cuenta de trabajo del trabajo, pero no a hotmail, gmail y yahoo.

¿Alguien tiene alguna idea de porque?¿se supone que la dirección de correo está bien puesta?Yo creo que el resolve host me da bien la ip a la que corresponde enviar el correo pero el quicksend no lo envía(me da un connection timeout), con lo cual supongo que no lo debe estar,

En fin si alguien tiene alguna sugerencia, se lo agradeceré mucho.

[ErnestoCarrera]

Buenas de nuevo,

Creo que ya se por qué no me funcionaba el código que he puesto arriba: la dirección del dominio está mal resuelta. En vez de resolver la dirección del dominio, tengo que ver cuales son los servidores de mail asociados al mismo y para ello hay que hacer un mail exchange lookup (creo que se llama asi).
He estado mirando por inet a ver si había suerte y era capaz de encontrar por ahí como se puede hacer esto, pero lo único que he encontrado de momento es algún componete de pago o programa de ejemplo que hace lo que yo quiero, así que me he decidido a postear otra vez por si alguien me puede echar una mano.

He probado a mandarme un mail a gmail con un Quicksend poniendo en Destino un resultado de los devueltos por uno de estos programas y funciona perfectamente:

 TIdSMTP.QuickSend(Destino,auxMsg.Subject,
                      auxMsg.Recipients.EMailAddresses,
                      auxMsg.From.Text,auxMsg.Body.Text);

así es que, espero que alguien me pueda decir por favor como consulto a mi DNS cual es el servidor de correo asociado a una dirección de correo dada.

Esto se hacerlo desde la línea de comandos:

c:>nslookup
  >set q=mx
  >gmail.com

Respuesta no autoritativa:

gmail.com   MX   preference = 5,  mail exchanger = gmail-smtp-in.l.google.com
gmail.com   MX   preference = 10,mail exchanger = alt1.gmail-smtp-in.l.google.com
......

pues bien quiero obtener desde el delphi esos mail exchanger porque son a los que les tengo que enviar el mail con el quick send.

Muchas gracias por vuestra atención y a ver si alguien me puede echar una mano

[ErnestoCarrera]

Buenas al final he conseguido la respuesta y ya consigo que la aplicación envíe mails de una manera autosuficiente. El problema del post anterior venía resuelto en las demos del DNSResolver así que fue fácil. Os dejo la función que estoy usando para envíar los mail. En ella se supone que la aplicación tiene un componente de tipo TidDNSResolver, aunque ahora que lo pienso podría haberlo declarado dinámicamente.

Código Delphi [-]
function TFMC_SMS.sendMail(Destino : String; Msg: TIdMessage; FhostDNS :String) : boolean;
Var  
  i          : Integer;  
  DnsResource: TIdDNSResourceItem; 
Begin   
  if FHostDNS = '' then exit;
  IdDNSResolver.Host := FHostDNS;
  IdDNSResolver.ReceiveTimeout := 30000;
  IdDNSResolver.ClearVars;
  with IdDNSResolver.DNSHeader do
     Begin      
      Qr := False; //<-- Indica que es una Query; True es Response
      Opcode := 0; //<-- 0 is Query; 1 is Iquery Iquery is send IP return        
      RD := True;
      QDCount := 1;
    End;

  IdDNSResolver.DNSQDList.Clear;

 with IdDNSResolver.DNSQDList.add do 
    Begin 
      QName := Destino;
      QType := 15; //<-- El tipo de consulta es MX (Mail Exchange)
      QClass := cIN;
    End;

  IdDNSResolver.ResolveDNS;

 With IdDNSResolver do 
   Begin 
     for i:=0 to DnsAnList.Count -1 do 
        Begin 
          DnsResource := DnsAnList[i]; 
          try 
             TIdSMTP.QuickSend(DnsResource.RData.MX.Exchange,
                                         Msg.Subject,
                                         Msg.Recipients.EMailAddresses,
                                         Msg.From.Text,
                                         Msg.Body.Text);
          except 
            continue;
          End;
          Result := True;
          exit;
        End;
    End;
  Result := False;
End;

Así pues, puedes mandar un mail sin tener configurado ningún cliente de correo ni ningún SMTP en el equipo.

[Juanito-Kun]

Hola Ernesto...

no puede hacer que corra tu codigo.

1. la variable tipo TIdDNSResourceItem no me la reconoce.
2. en el IdDNSResolver el procedimiento .ClearVars no lo tiene .
3. tampoco el DNSHeader.

Tengo delphi 7..

saludos y que esten bien .