Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Ejecutar cliente de correo pasandole la direccion del destinatario (https://www.clubdelphi.com/foros/showthread.php?t=15329)

Durbed 19-10-2004 12:03:43

Ejecutar cliente de correo pasandole la direccion del destinatario
 
Queria saber como se puede ejecutar el cliente de correo de windows desde una aplicacion delphi y que te ponga directamente en la pantalla de componer el e-mail y que la direccion del destinatario la ponga el.

Al estilo del mailto de html.

Gracias.

Neftali [Germán.Estévez] 19-10-2004 12:34:00

Cita:

Empezado por Durbed
...Queria saber como se puede ejecutar el cliente de correo de windows desde una aplicacion delphi y que te ponga directamente en la pantalla de componer el e-mail y que la direccion del destinatario la ponga el.

Prueba con éste código, no te puedo asegurar que funcione en todos los clientes; Un form con un Botón (recuerda añadir ShellAPI al usues) y en OnClick del botón pones lo siguiente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 
  // Función para enviar mail
  function SendEMail(Recipient, Subject, Body: string): HINST;
  var
    MailMsg: string;
  begin
    // Comando
    MailMsg := Format('mailto:%s?subject=%s&body=%s',
                                 [Recipient, Subject, Body]);
    // Ejecutar
    Result := ShellExecute(Application.Handle,
                                       'open',
                                       PChar(MailMsg),
                                       nil, nil,
                                       SW_SHOWNORMAL);
  end;
var
  R,S,B:String;
begin
  // Configurar
  R := 'alguien@hotmail.com';
  S := 'Lo que me pediste...';
  B := 'Cuerpo del mensaje';
  // Bloque de proteccion
  try
    SendEMail(r, s, b);
  except;
    // Captura de errores del envio
  end;
end;


La franja horaria es GMT +2. Ahora son las 01:57:03.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi