Hola,
Como puedo enviar un email con el cuerpo en HTML?
Aqui esta mi codigo:
Código Delphi
[-] var OleApp,OleItem : OleVariant; i: integer;
begin
try
try
OleApp := GetActiveOleObject('Outlook.Application');
except
OleApp := CreateOleObject('Outlook.Application');
end;
OleItem := OleApp.CreateItem(0);
OleItem.Subject := IBQueryEx1CAMPANYA.AsString;
for i:=0 to Destinatarios.Count-1 do begin
OleItem.Recipients.Add(Destinatarios[i]);
end;
OleItem.Body := ' Ke pasa Neng Esto es una prueba ';
OleItem.Send;
OleItem := VarNull;
OleApp := VarNull;
MessageDlg('Operación Completada',mtInformation,[mbOk],0);
except
OleItem := VarNull;
OleApp := VarNull;
MessageDlg('No se ha podido enviar el correo a todos los destinatarios',mtError,[mbOk],0);
end;
Lo he probado asi (no pongo los simbolos < > aqui xke sino no se ven en el post),
Código Delphi
[-]
OleItem.Body := ' html head Ke pasa Neng /head body Esto es una prueba /body /html';
pero no funciona, sale como texto normal.
A ver si alguien puede darme alguna idea de como hacerlo.
Muchas gracias de antemano!