Crear proyecto paso a paso que mande mails

[aeff]

Saludos, bueno mira, yo uso Delphi 5, en esta versión existe en la paleta "FastNet" el componente "TNMSMTP".

Este componente es muy fácil de manipular, solo tienes que jugar con sus propiedades.

Host -> Direccion del servidor, ej: mail.clubdephi.com
UserID -> Nombre de cuenta del usuario, ej: aeff

dentro de la propiedad PostMessages te encontraras con las especificaciones del propio correo:

Attachments -> Lista de archivos adjuntos, ej: C:\Windows\System32\Calc.exe ...
Body -> Texto del correo
Date -> Fecha del correo
FromAddress -> Dirección de correo del emisor, en este caso tu ¿no? , ej: jade_tyler@clubdelphi.com
FromName -> Nombre del emisor, ej: Jade Tyler
LocalProgram -> Programa local, ej: "Delphi's Outlook"
ReplyTo -> Responder a: ej: jade_tyler@clubdelphi.com
Subject -> Asunto del correo
ToAddress -> Lista de direcciones destinatarios
ToBlindCarbonCopy y ToCarbonCopy -> Copias

bueno anteriormente te expliqué las propiedades, una vez especificadas debes conectar el "componente" con el servidor, para eso puedes usar:

Código Delphi [-]
NMSMTP1.Connect;

una vez conectado, para enviar el mensaje especificado en las propiedades:

Código Delphi [-]
NMSMTP1.NMSMTP1.SendMail;

Sería bueno que estudiaras las funcionalidades/utilización de los eventos de dicho componente.

Espero haberte ayudado.
Saludos, aeff!

[JADE_TYLER]

Hola gracias por tu atencion

Ya tengo el proyecto con la información que me diste pero al compilarlo me aparece lo siguiente

[Fatal Error] Could not create output file 'C:\Program Files\Borland\Delphi6\Projects\Project2.exe'

asi quedo el código:

procedure TForm1.tbEnviarClick(Sender: TObject);
begin
smtp.Host:= 'smtp.live.com';
smtp.UserID:= 'paty_mnmr';

smtp.PostMessage.Attachments.Add('Adjunto := C:\Users\Paty_Tyler\Documents\Clave.txt');
smtp.PostMessage.Body.Add('Mensaje enviado exitosamente');
smtp.PostMessage.Date:= '11/22/09';
smtp.PostMessage.FromAddress:= 'paty_mnmr@hotmail.com';
smtp.PostMessage.FromName:= 'Paty';
smtp.PostMessage.ReplyTo:= 'paty_mnmr@hotmail.com';
smtp.PostMessage.Subject:= 'Hi';
smtp.PostMessage.ToAddress.Add('de_marian_@hotmail.com');

smtp.Connect;
smtp.SendMail;

end;

Que será? o falta algo en la sección de Uses?

GRACIAS