dbgrid/outlook

[jhonny]

Prepare una función sencilla y si quieres usala:

Código Delphi [-]
procedure TForm1.EnviarCorreoMultiple(DBGrid :TDBGrid; CampoEmail, Asunto :String);
var
  Direcciones :String;
begin
  Direcciones := '';
  with DBGrid.DataSource.DataSet do
  begin
    First; //Vamos al primer registro...
    while not Eof do //Recorramos el DataSet hasta el ultimo registro...
    begin
      Direcciones := Direcciones + FieldByName(CampoEmail).AsString + ';'; //Agrega Direcciones...
    Next;
    end;
  end;

  SetLength(Direcciones, Length(Direcciones) -1); //Quitemos el punto y coma que sobra...

  ShellExecute(Handle, 'open',
  pchar('mailto:'+Direcciones+'?subject='+Asunto),  '', '',SW_SHOW);
end;

Para llamarla es muy sencillo, asi:

EnviarCorreoMultiple(DBGrid1, 'email', 'Mala Direta...');