falta pouco para o email ficar legal.. alguem ajuda

[Vitor Reis]

seguinte. a rotina do joao.. quase ficou perfeita.. para enviar email com o logo embaixo..

:HTMLBody = "<p>"+ALLTRIM( cMsg )+"</p>" + "<p><img src='cid:id_imagen10'></p>"

loBP:=:AddRelatedBodyPart(vAnexoCorpoEmail, "id_imagen10", 1)

WITH OBJECT loBP:Fields

:Item("urn:schemas:mailheader:Content-ID") = "id_imagen10"

:Update()

END WITH

só que o texto que está dentro do cMsg, e que está com linhas puladas.. no email fica tudo junto isto é.. nao pula linhas.. mesmo usando no texto o Chr(13)+ Chr(10)

alguem saberia??

--------------------------------------------------------------

ele fica assim:

Segue a proposta ta, atenciosamente, vitor

-------------------------------------------------------------------------

preciso que fique assim:

segue a proposta tal,

atenciosamente,

vitor

[kapiaba]

Maybe / Talvez:

   oMail:htmlbody := MEMOREAD(cFile)

[kapiaba]

https://groups.google.com/forum/#!topic/comp.lang.xharbour/vuyUuu_1vJI

[Vitor Reis]

MEMOREAD(cFile).. nao deu

[Vitor Reis]

mais alguem tem sugestao ?

[aferra]

Troque o CRLF por '<br />'

[Vitor Reis]

ebaaaaaa.. ai sim em aferra.. matou a pau... obrigado

[kapiaba]

Alessandro, se já tenho o Texto(cTxt = cMsg), como no caso abaixo, que tenho que fazer para funcionar?

   cTxt  := "Prezados,"+HB_OsNewLine()+HB_OsNewLine()+;

            "Estamos solicitando cotação do objeto epigrafado no assunto deste email cujas especificações constam no anexo."+HB_OsNewLine()+;

            "O recurso orçamentário está previsto no Plano Interno _______ e Natureza de Despesa ________."+HB_OsNewLine()+;

            "Abra o anexo deste email para verificar se sua empresa trabalha com o objeto que possa atender as nossas necessidades."+HB_OsNewLine()+;

            "Todos os custos devem estar incluídos na proposta (Frete, diferença de ICMS etc.)"+HB_OsNewLine()+;

            "A Administração contratará com a proposta mais vantajosa, o critério é 'menor preço'."+HB_OsNewLine()+;

            "A Nota de Empenho do recurso orçamentário é sua garantia de pagamento!"+HB_OsNewLine()+;

            "Gentileza confirmar o recebimento deste email e manifestar interesse em participar."+HB_OsNewLine()+;

            "Atenciosamente,"+HB_OsNewLine()+HB_OsNewLine()



   :HTMLBody = "<p>"+( cMsg )+"<br />" + "<p><img src='cid:id_imagen10'></p>"

Assim, o <br /> não funcionou, continua tirando os espaços em branco.

Abs

[kapiaba]

Acho que entendi, Alessandro:

   cTxt  := "<p> Prezados, <br />"                              +;

            "<p> Estamos solicitando cotação do objeto epigrafado no assunto deste email cujas especificações constam no anexo. <br />" + ;

            "<p> O recurso orçamentário está previsto no Plano Interno _______ e Natureza de Despesa ________. </p>"

Ou,

cMsg += "<br>"+tbody1+"<br>"+tbody2+"<br>"+tbody3

Very thanks.

[Ariston Santos]

Que tal tirar os <p> (paragrafos) e substituir os CRLF por <br /> (quebra de linha em HTML).

Ex: cMsg := STRTRAN(cMsg, CRLF, "<br /><br />") // Pulando uma linha

Detalhe: Se iniciar um parágrafo com <p>, tem que finalzar com </p>. No seu exemplo acima estou vendo o </p> so no final de todos os parágrafos. Assim, apesar do uso da HB_OsNewLine(), que retorna Chr(13)+Chr(10) (ou apenas Chr(10), dependendo do S.O.), todo o seu texto consiste em apenas um parágrafo, a não ser que você também converta o HB_OsNewLine().

Ex: cMsg := STRTRAN(cMsg, HB_OsNewLine(), "<br /><br />")