Cristhor1982,
Cita:
Empezado por Cristhor1982
Dejar un campo dentro de TstringGrid como enlace a outlook
|
Revisa este código:
Código Delphi
[-]
procedure TForm1.StringGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
var
email : String;
em_subject, em_body, em_mail : string;
begin
if (Acol = 3) then begin
email := StringGrid1.Cells[ACol, ARow];
em_subject := 'Titulo del email';
em_body := 'Cuerpo del Mensaje del email';
em_mail := 'mailto:' + email + '?subject=' + em_subject + '&body=' + em_body ;
ShellExecute(Handle,'open', PChar(em_mail), nil, nil, SW_SHOWNORMAL) ;
end;
end;
El código anterior abre el cliente de
email por default en Windows (Outlook, Firebird, etc) con la información predefinida de
Subject, Body y Mailto por medio de
Evento OnSelectCell del
Control TStringGrid al seleccionar la columna 3 que contiene la dirección de email en este caso particular.
Espero sea útil
Nelson.