Ir para conteúdo
Fórum Script Brasil

rbgra2

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre rbgra2

rbgra2's Achievements

0

Reputação

  1. Deixe a aba onde esta sua tabela dinâmica selecionada. Aperte Alt+F11 -> Inserir -> Modulo -> Cole o código abaixo -> de um clique no meio do código e aperte F5. Sub enviar_planilha_corpo_email() Application.ScreenUpdating = False ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Item.To = "SeuEmail@email.com.br" .Item.Subject = "TESTE ENVIO EMAIL" .Item.Send End With MsgBox "Sua mensagem foi enviada com sucesso!!", vbInformation Application.ScreenUpdating = True End Sub
×
×
  • Criar Novo...