Un codigo fuente para Enviar correo por SMTP

[JXJ]

Un preludio, tengo delphi 7, con las indy 9 que trae delphi.
sin actualizaciones ni parches a delphi7

He descargado los demos de indy,
por qeu quiero poder enviar un mail, por correo
electronico, mediante el uso del smtp de smtp.mail.yahoo.com.mx
ya verifique el usuario y la contraseña ambos,
los escribo bien.

pero siempre que lo intento enviar, me dice que
necesito autentificarme, asi qeu no envia nada
en el demo, le cambio la opcion
de conexion a simple autentification, y se envia el correo
pero nunca llega.

¿Alguien de favor me puede facilitar un codigo fuente
con su compilado y los archivos dfm, res.
no solo copiado y pegado, en este hilo.?

solo quiero enviar un correo electronico a varios,
como funciona normalmente el outlook, sepárando
los destinatarios con una coma
usuario1@dominio.com,usuario2@eldomino.com

con cc, el texto, lo voy a poner del de un archivo html
para poder, enviarlo, personalizado. y que se vea bonito
al ser abierto por su receptor,

Requiero que llega a destinatarios con cuentas de hotmail
y otras que no manejan protocolos estandar, pero que
si reciben el correo entrante por smtp.

Vale gracias,

[OSKR]

Mira este, te puede servir:
http://www.clubdelphi.com/foros/showthread.php?t=30506

[JXJ]

gracias oskr

pero no me sirve... sigo sin poder enviar un mail. usando indy
con la version demo de una dll, de pago, si puedo enviar emails
el problema es que los que son para hotmail, nunca llegan.

[OSKR]

y ya verificaste si hotmail usa los mismos puertos? porq nada lo obliga a hacerlo y si usa smtp/pop3...q se yo...Segùn Dec a èl le funciona bien e incluso de otros he sabido lo mismo, yo porq no he tenido`aùn la necesidad ni el tiempo de enviar por còdigo .

[martinc5]

Para permitir a tu cuenta de conexión el envío de correo electrónico a través de SMTP ajenos al de tu Proveedor de internet, tenés q habilitar alguna opcion de envio de correo SMTP. Fijate en el panel de control de tu servidor de Internet.
Tal vez pueda ser esto, vo ve!!!

[Metalmind]

Primero debes activar la opciopn de tu cuenta yahoo, con la qual t indica un numero de puerto qu noi es el 25 convencional por lo menos en yahoo.es es el 587, luego con un cliente smpt i un mail message puedes usar el siguiente codigo:
procedure TForm2.Button3Click(Sender: TObject);
var
ServidorSMTP: TIdSMTP;
begin

// Creem els objectes necessaris
ServidorSmtp := TIdSMTP.Create(Self);
Mailmessage := TIdMessage.Create(Self);
// Preparem el correu bàsicament
with Mailmessage do
begin
Subject := Assumpte.text;
Body.Text := 'aixo es una prova cridada desde una arxiu ini';


From.Address:= Origen.text;

Recipients.EMailAddresses := Desti.text+ ',' + CC.text+ ','+CCO.text;


end;

try
// Preparem i conectem amb el Smtp.
servidorSmtp.Host := Hostm.text;
ServidorSMTP.Port:= Strtoint(Nport.text);
ServidorSMTP.AuthenticationType:= atLogin;
ServidorSMTP.Username:= User.text;
servidorSMTP.Password:= Pass.text;
servidorSmtp.Connect(10000);


try
// Intentem enviar el correu.
servidorSmtp.Send(MailMessage);
// Sort, s'ha enviat

except
on E: Exception do // no ha funcionat
ShowMessage('Fallada al enviar: ' + E.Message);
end;

finally
// Finalment...
servidorSmtp.Disconnect;
servidorSmtp.Free;
Mailmessage.Free;
end;
close;
end;
Donde yo uso diversos edits, para que desde otra pantalla de configuracion, yo pueda recuperar informacion grabada en un archivo.ini, i pueda hacer funcionar mi aplicacion automaticamente, i la pueda hacer configurable para el usuario.
Prueba-lo y ya diras el que.
PD:Con yahoo.es despues de activar el servicio smtp me funciona.