Ver Mensaje Individual
  #3  
Antiguo 06-02-2013
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
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  // La columna que contiene la dirección de email
   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.

Última edición por nlsgarcia fecha: 06-02-2013 a las 23:00:29.
Responder Con Cita