email html desde base de datos

[dec]

Hola,

Respecto lo primero puedes escribir HTML directamente en un "TWebBrowser" más o menos así:

Código Delphi [-]
uses
  ActiveX, MSHTML;

procedure AddHtml(browser: TWebBrowser; html: string);
var
  temp: Variant;
  doc: IHTMLDocument2;
begin
  temp := VarArrayCreate([0, 0], varVariant);
  temp[0] := html;
  if browser.Document = nil then
    browser.Navigate('about:blank');
  doc := browser.Document as IHTMLDocument2;
  doc.Write(PSafeArray(TVarData(temp).VArray));
  doc.Close;
  doc := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddHtml(WebBrowser1, '¡Hola mundo!');
end;

El código está basado en cierto método del componente "TEmbeddedWB".