Envio de mails con una aplicación

[pampitasnowman]

Gracias a todos por tomarse su tiempo y responder! Es mas o menos asi:
Con el siguiente código, me envio a una casilla mia de un hosting un mail, pero esto estransparente al usuario, el solo adjunta un archivo y pone su nombre:

Código Delphi [-]
SMTP.Host := 'mail.pepito.com';
SMTP.Port := 25;
SMTP.Password := 'xxyy';
SMTP.Username := '[email protected]';
Mail.ClearBody;
Mail.From.Name := 'Pedido Fotográfico';
Mail.Subject := 'Cliente: ' + Edit2.Text;
Mail.Recipients.EMailAddresses := '[email protected]';
Mail.From.Address := Edit3.Text;
Mail.Body.AddStrings(Memo1.Lines);
TidAttachment.Create(Mail.MessageParts, Edit1.Text);
try
  try
    SMTP.Connect();
    SMTP.Send(Mail);
    MessageDlg('Los pedidos se enviaron con éxito.', mtInformation, [mbOk], 0);
    except on E:Exception do
      MessageDlg('No se pudo conectar con el servidor. Chequee su conexión...', mtError, [mbOk], 0);
    end;
  finally
    if SMTP.Connected then
      begin
        SMTP.Disconnect;
        Mail.Free;
      end
  end
end

Ahora bien, si yo en vez de poner

Código Delphi [-]
Mail.Recipients.EMailAddresses := '[email protected]';

lo cambio por una variable que ea del estilo

Código Delphi [-]
Mail.Recipients.EMailAddresses := Edit8.Text;

en donde esté la direccion a donde tiene que llegar el mail, me salta error, que no puede enviar el mail.
Será por eso de que no soporta Relay (no sé que es el Relay... ). Gracias a todos de nuevo por responder.

[jachguate]

Empezado por pampitasnowman

Ahora bien, si yo en vez de poner

Código Delphi [-]
Mail.Recipients.EMailAddresses := '[email protected]';

lo cambio por una variable que ea del estilo

Código Delphi [-]
Mail.Recipients.EMailAddresses := Edit8.Text;

en donde esté la direccion a donde tiene que llegar el mail, me salta error, que no puede enviar el mail.

¿qué clase de error salta? ¿con que mensaje?. No está de mas que te des una vuelta por aqui.

Hasta luego.

[Enan0]

Como te anteriormente.. (jachguate) lo mas probable es que no soporte RElay, Intenta cambiar el DNS (SMTP) como prueba por uno de yahoo (smtp.mail.yahoo.com) y ponete como usuario el nombre de usuario de una cuenta que soporte POP3 y SMTP, esto se configura dentro de la cuenta desde las opciones..
y el respectivo password. igual te Adjunto un ejemplo debajo....

Código Delphi [-]
  
   if SMTP.Connected then SMTP.Disconnect;
    SMTP.Host:=txtsmtphost.Text;
    SMTP.Port := strtoint(txtsmtpPort.text); //port por default 25
    SMTP.Username:=txtsmtpID.Text;
    SMTP.Password:=txtSmtpPSW.text;
    SMTP.AuthType:=atDefault;
    idMessage.Recipients.EMailAddresses:=trim(txtmail.text); // si buscas en el foro hay un funcion para validar los emials
   IdMessage.From.Name:=txtUserName.text +' ' + txtmail.text;
   IdMessage.Subject:=txtsubjet.text;
 IDmessage.body:=memo1.text;
   if not SMTP.Connected then SMTP.Connect;
   SMTP.Send(idmessage);
  ......

[pampitasnowman]

Buenas! Perdón por la falta de datos del mail anterior, es cierto, no puse nada de lo que estaba usando. Les cuento que al final el error era de autenticación del SMTP, con el ejemplo que me mandaste de Yahoo!, corregí el que utilizaba de mi Hosting pago y funcionó perfecto.

Código Delphi [-]
SMTP.AuthenticationType := atLogin;

Tal vez les sirva este dato, pero el Yahoo! utiliza también el Port 578, porque a veces muchos ISP bloquean el 25.
Bueno, muchas gracias nuevamente por responder, y espero mejorar para la proxima en la redacción de los POST, saludos, Nacho.