Aqui te pongo un ejemplo de una función que tengo para enviar correos con componentes INDY
En este caso las variables globales que utilizan la función son lo siguiente:
G_HostMail: dirección del servidor SMTP, como el que viene en el outlook
G_UserMail: Usuario de conexión del correo
G_PasswordMail: Password del usuario de correo
G_ReplyMail: Dirección de respuesta del correo
Function TDM.EnviarCorreo(Para:String;Asunto:String;Contenido:TStrings):boolean;
begin
try
//Comprobamos los datos para enviar el correo
if Para=''
then Error('No se ha introducido un destinatario para el correo');
if G_HostMail=''
then Error('Debe introducir un Host de correo en la configuración');
if G_UserMail=''
then Error('Debe introducir un usuario de correo en la configuración');
//Configuramos el correo
Correo.Clear;
Correo.Body.AddStrings(Contenido);
Correo.Recipients.EMailAddresses:=Para;
Correo.Subject:=Asunto;
Correo.From.Text:=G_ReplyMail;
SMTP.Host:= G_HostMail;
SMTP.UserId:= G_UserMail;
SMTP.Password:= G_PasswordMail;
//Enviamos el correo
SMTP.Connect;
SMTP.Send(Correo);
SMTP.Disconnect;
result:=true;
except
result:=false;
end;
end;
Aprobecho el tema para hacer dos preguntillas (no se si ha salido ya en un post anterior, si es así perdonadme pero ahora no he podido mirarlo, decidmelo y lo buscaré a ver)
¿Como puedo enviar un anexo con el componente? ¿Compo puedo enviar el correo como HTML?
|