Dejar un campo dentro de TstringGrid como enlace a outlook

[Cristhor1982]

Amigos de club delphi, no se si me explico bien, pero me gustaría dejar un campo que tenga el valor correo@correo.com, al posicionarme en el campo, cambio el icono del mouse, presione y me envie a Outlook, para enviar el correo a ese destinatario. Alguien me puede ayudar.

Gracias

[Cristhor1982]

Encontre esto

Uses ShellApi;

Código Delphi [-]
Evento...
var
Correo: string;

begin
Correo:=sg.cells[3,Sg.Row];
If [Sg.Col,Sg.Row]=[3,sg.Row] then
ShellExecute(0, 'open', PChar('mailto:correo?subject=Enviado desde Asunto' ),   nil, nil, SW_SHOWNORMAL);
end

ahora bien, en correo no logro que tome el valor de la variable me abre el correo como destino CORREO, Quien me ayuda..

[[nlsgarcia]]

Cristhor1982,

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.

[Cristhor1982]

Gracias, me funciono de manera perfecta justo lo que quería, ahora solo un par de Tedit , variables y tenemos asunto y cuerpo del mensaje. Gracias de nuevo!!!