Enviar un correo electronico desde delphi 7

[Roll06lm]

BUeno, esto que te mando lo puedes modificar, si tienes una lista de los usuarios haces ciclo que le envie a cada uno el mensaje.

procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(GetDesktopWindow(),
nil,
pChar('mailto:'+
TLabel(Sender).Caption),
nil,
nil,
SW_SHOWNORMAL);
end;

Esto es de Trucomania. Tienes que agregar al Uses ShellApi.

Modificalo y quizas te sirva para lo que necesitas

Un Saludo
Rollings