Inquiridor
Configurar corpo email outlook com Macro Excel

Pergunta
-
Boa tarde,
A alguns dias estou com o problema relatado abaixo, e até agora não achei a solução apropriada, alguem pode me ajudar?
Criei uma macro para enviar algumas células da planilha por e-mail(Outlook).
Porém, além do corpo da planilha tem uma mensagem padrão q eu não posso enserir na planilha e não posso colocar como Introdução porque ela precisa ser formatada. Tem alguma idéia de como inserir esse texto formatado no corpo da msg?
segue a Macro:
Sub Envio_Email()
Sheets("4- PROGRAMAÇÃO").Activate
ActiveSheet.Range("E15:M35").Select
ActiveWorkbook.EnvelopeVisible = TrueWith ActiveSheet.MailEnvelope
.Introduction = "Material para veiculação da campanha" & texto q precisa ser formatado".
.Item.To = "..."
.Item.Subject = "Teste e-mail excel5".
.Item.Send
End With
End SubVlw Master's!
- Movido AndreAlvesLima sexta-feira, 25 de junho de 2010 18:38 (De:.NET Development - Geral)
sexta-feira, 25 de junho de 2010 17:48
Todas as Respostas
-
vc precisa escrever como HTML, a tempos achei um código na net e trabalhei em cima dele....vou postar aqui abaixo, veja se te ajuda...
With OutMail
.To = ""
.cc = ""
.BCC = ""
.Subject = "Crédito em Celular (" & DateTime.Date & ")"
.HTMLBody = dia & "<html><body><br></br>Seu texto<br></br></body></html>" & tec & "<br></br>" & tel & "<br></br>" & cc & "<br></br>"
.Display 'para enviar direto use .send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
sexta-feira, 25 de junho de 2010 18:23 -
desculpe no codigo anterior eu esqueci de apagar minhas variaveis....segue o codigo mais limpo....
With OutMail
.To = "tyoshimura@myb.com.br"
.cc = "rogerio@myb.com.br"
.BCC = ""
.Subject = "Crédito em Celular (" & DateTime.Date & ")"
.HTMLBody = dia & "<html><body><br></br>Teria como colocar 50 reais em créditos no celular do técnico:<br></br></body></html>"
.Display 'para enviar direto use .send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothingsexta-feira, 25 de junho de 2010 18:26 -
Prezado,
Estou migrando seu post para o fórum de Excel.
Por favor, das próximas vezes que for postar alguma dúvida referente a esse assunto, poste por lá.
Obrigado.
André Alves de Lima
Visite o meu site: http://andrealveslima.spaces.live.com
Me siga no Twitter: @andrealveslimasexta-feira, 25 de junho de 2010 18:38 -
Fernando, obrigado pela ajuda.. mais não funcionou...
não aparece a mensagem no corpo do e-mail... vou ver se descubro o porque disso!
olha como ficou o codigo:
-
Sub Envio_Email()
Sheets("4- PROGRAMAÇÃO").ActivateActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Material para veiculação"
.Item.To = "..."
.Item.Subject = "Teste e-mail excel5"
.Item.HTMLBody = "<html><body> Teste MSG corpo do email </body></html>"
.Item.Send
End With
End Subsexta-feira, 25 de junho de 2010 21:01