locked
Configurar corpo email outlook com Macro Excel RRS feed

  • 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 = True

       With 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 Sub

     

    Vlw 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 = Nothing

    sexta-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: @andrealveslima
    sexta-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").Activate

     ActiveWorkbook.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 Sub

    sexta-feira, 25 de junho de 2010 21:01