Vitor Reis Posted February 5, 2016 Report Share Posted February 5, 2016 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 Daryabite 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 5, 2016 Report Share Posted February 5, 2016 Maybe / Talvez: oMail:htmlbody := MEMOREAD(cFile) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 5, 2016 Report Share Posted February 5, 2016 https://groups.google.com/forum/#!topic/comp.lang.xharbour/vuyUuu_1vJI Quote Link to comment Share on other sites More sharing options...
Vitor Reis Posted February 5, 2016 Author Report Share Posted February 5, 2016 MEMOREAD(cFile).. nao deu Quote Link to comment Share on other sites More sharing options...
Vitor Reis Posted February 5, 2016 Author Report Share Posted February 5, 2016 mais alguem tem sugestao ? Quote Link to comment Share on other sites More sharing options...
aferra Posted February 5, 2016 Report Share Posted February 5, 2016 Troque o CRLF por '<br />' Quote Link to comment Share on other sites More sharing options...
Vitor Reis Posted February 5, 2016 Author Report Share Posted February 5, 2016 ebaaaaaa.. ai sim em aferra.. matou a pau... obrigado Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 5, 2016 Report Share Posted February 5, 2016 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 5, 2016 Report Share Posted February 5, 2016 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. Quote Link to comment Share on other sites More sharing options...
Ariston Santos Posted February 13, 2016 Report Share Posted February 13, 2016 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 />") Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.