FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#4
|
|||
|
|||
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? |
|
|
|