Problemas con TIdSMTPserver

[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 .