Un codigo fuente para Enviar correo por SMTP

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