Enviar un correo electrónico con texto rtf en delphi

Question

Me gustaría realizar la siguiente tarea: convertir un contenido TRichEdit (un texto rtf) en un cuerpo de mensaje de correo electrónico no de texto sin formato.

MAPI no es compatible con rtf, pero ¿hay alguna manera de hacerlo tal vez con Indy?

El problema es que rtf es rtf y los correos electrónicos son texto sin formato o HTML.

¿Alguien puede sugerirte un truco? ¿Es posible convertir rtf a texto usando TWebBrowser?

Básicamente, el escenario es:
1) El usuario escribe de correo electrónico en una forma delphi,
2) El correo electrónico se envía luego con MAPI para el cliente de correo predeterminado (por lo que se genera una nueva ventana de correo electrónico, y el cuerpo del mensaje es el mismo que tenía en forma delphi)
3) El usuario envía el correo electrónico desde el cliente de correo

De todos modos, MAPI solo acepta texto sin formato.

ACTUALIZACIÓN:

Tratando con Indy escribí esto, pero aún así no funciona, como puedo enviar un correo electrónico a mi cuenta de Gmail que recibo un mensaje con el cuerpo vacío y NONAME apego falso.

uses IdMessageBuilder; 


procedure SendMail; 
var 
    MBuilder: TIdMessageBuilderRtf; 
    MyMemoryStream: TMemoryStream; 
begin 
    try 
    MBuilder := TIdMessageBuilderRtf.Create; 
    MyMemoryStream := TMemoryStream.Create; 
    MBuilder.RtfType := idMsgBldrRtfRichtext; 
    // RichEdit1 has PlainText set to False 
    // at design time I pasted some formatted text onto it 
    RichEdit1.Lines.SaveToStream(MyMemoryStream); 
    MBuilder.Rtf.LoadFromStream(MyMemoryStream); 
    MBuilder.FillMessage(IdMessage1); 
    IdSMTP1.Connect; 
    IdSMTP1.Send(IdMessage1); 
    IdSMTP1.Disconnect; 
    finally 
    MyMemoryStream.Free; 
    MBuilder.Free; 
    end; 
end; 

Answer 1

Aparentemente (googled esto mismo, como debo enviar algunos de Delphi, pero no en este caso), la opción PR_RTF_COMPRESSED de MAPI (extendido) puede ayudar aquí. También mira this.

Answer 2

Indy admite el envío de correos electrónicos RTF. Envíe un correo electrónico de la misma manera que enviaría un correo electrónico HTML, simplemente use el tipo de contexto "text/rtf", "text/enrriquecido" o "text/richtext", y envíe los códigos RTF brutos generados por TRichEdit cuando su propiedad PlainText se establece en falso. Además, si usa Indy 10, mire su clase TIdMessageBuilderRtf para configurar correctamente la estructura TIdMessage.

Answer 3

¿Es posible convertir rtf a texto usando TWebBrowser?

Puede convertir RTF a texto mediante TRichEdit - pero obviamente esto pierde todo el formato:

Using TRichEdit at runtime without defining a parent

2: Usted puede encontrar un número de RTF a HTML convertidores en línea - algunos gratuitos, otros no . Como estos:

http://wiki.delphi-jedi.org/wiki/JVCL_Help:TJvRichEditToHtml https://www.habarisoft.com/scroogexhtml_delphi.html http://www.easybyte.com/products/rtf2html.html

http://www.sautinsoft.com/products/rtf-to-html/index.php

3: Puede cambiar el nombre del archivo adjunto noname como NONAME.MHT y continuación, debería ser capaz de abrirse con el explorador de Internet.

Sin embargo, es posible que desee considerar el uso de un control de edición HTML, en lugar de un TRichEdit. Entonces no tienes conversión de la que preocuparte.Algo parecido a esta pregunta: -

WYSIWYG HTML Editor Component for Delphi