Ver Mensaje Individual
  #1  
Antiguo 30-05-2014
jlrdz jlrdz is offline
Miembro
NULL
 
Registrado: ene 2011
Posts: 50
Reputación: 16
jlrdz Va por buen camino
Enviar email en HTML con ShellExecute a outlook.

Buenos días primero que nada a todos, tengo una duda y espero me puedan ayudar a responderla:

Tengo un string que lleno para enviar un mail a outlook mediante ShellExecute, el envío lo hace correctamente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var MailString:String;
begin
            MailString := 'mailto: [email protected]';
            MailString := MailString + '?Subject=Mensaje de prueba';
            MailString := MailString + '&Body= Hola, este es un mensaje de prueba...';
            ShellExecute(Self.Handle, nil, pChar(MailString), nil, nil, SW_NORMAL);
end;

Pero si lo quiero enviar con formato HTML ya no logro hacer que me lo haga de esa manera, he intentado agregarle la cabecera de Content-Type: text/html pero no funciona, me lo envía a outlook como si fuera texto plano y me ignora las etiquetas HTML.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var MailString:String;
begin
            MailString := 'mailto: [email protected]';
            MailString := MailString + '?Subject=Mensaje de prueba';
            MailString := MailString + '&Content-Type = text/html &Body=

Hola, este es un mensaje de prueba

'
; ShellExecute(Self.Handle, nil, pChar(MailString), nil, nil, SW_NORMAL); end;

¿Tienen alguna idea de qué estoy haciendo mal?

Saludos y gracias de antemano.
Responder Con Cita