Este fórum está sendo desativado

[Diego100ges]

Bom dia Pessoal,
Gostaria de uma solução pra um problema, é o seguinte, faço alguns disparos de e-mail direto pelo excel, o que está funcionando legal, porém eu gostaria de personalizar a mensagem que será enviada, com assinatura e logo etc.. e acredito que a única forma é por html, o que funcionou! colei o código html na célula e quando o email é disparado ele lê o código no formato correto, inserindo assinatura e logo!
O problema é o seguinte, como são alguns emails que são enviados, para clientes distintos, tenho uma coluna valor, onde eu gostaria que esse valor fosse para o texto( para o código html), porém por fórmulas está muito complicado, eu estou precisando dividir o código em 3 ou 4 células para depois concatenar todas as partes em 1 para que o código seja remontado, pensei que VBA seria uma solução, mas não consegui pensar em alguma forma.

Segue um exemplo, código:

Código: Selecionar todos

<table width="570">
<tbody>
<tr>
<td>
<p style="text-align: justify;">Prezados,</p>
<p style="text-align: justify;">Texto Texto Texto Texto Texto Texto Texto Texto Texto Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;<strong>DIA de MES de ANO</strong>,&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto.</p>
<p style="text-align: justify;">Texto&nbsp;Texto&nbsp;Texto Texto&nbsp;Texto <strong>NOME DO AGENTE</strong>&nbsp;&eacute; de&nbsp;<strong>VALOR</strong>. Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;de <strong>M&Ecirc;S&nbsp;de ANO.</strong></p>
<p style="text-align: justify;">Estamos &agrave; disposi&ccedil;&atilde;o para quaisquer esclarecimentos.</p>
<p style="text-align: justify;">Atenciosamente,</p>
</td>
</tr>
</tbody>
</table>

Onde está NOME DO AGENTE, VALOR, MÊS e ANO, os valores viram de colunas, porém minha dúvida é como montar isso de uma forma funcional.

Muito Obrigado!

[babdallas]

Não sei se entendi. Segue uma proposta:

Código: Selecionar todos

Dim strHTML as String

strHTML = “<table width="570">
<tbody>
<tr>
<td>
<p style="text-align: justify;">Prezados,</p>
<p style="text-align: justify;">Texto Texto Texto Texto Texto Texto Texto Texto Texto Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;<strong>” & VBA.Format(planilha1.Range("A1").Value, "dd \de mmmm \de yyyy") & “</strong>,&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto.</p>
<p style="text-align: justify;">Texto&nbsp;Texto&nbsp;Texto Texto&nbsp;Texto <strong>” & _
Range(“A1”).value & “</strong>&nbsp;&eacute; de&nbsp;<strong>” & _
Range(“A2”).value & “</strong>. Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;Texto&nbsp;de <strong>M&Ecirc;S&nbsp;de ANO.</strong></p>
<p style="text-align: justify;">Estamos &agrave; disposi&ccedil;&atilde;o para quaisquer esclarecimentos.</p>
<p style="text-align: justify;">Atenciosamente,</p>
</td>
</tr>
</tbody>
</table>”

Depois você usa esta string no HTMLBody.