VBA - Envio automático de Email pelo Excel.

Поделиться
HTML-код
  • Опубликовано: 14 май 2020
  • Quer saber mais de Excel e ser valorizado no mercado de trabalho e poder ganhar salários maiores?
    Conheça meu curso Excel Essentials
    yeraexplica.com/excel-essentials
    ACESSE MEU INSTAGRAM PARA MAIS CONTEÚDOS:
    / yeraexplica
    Nessa aula você vai aprender a enviar emails diretamente do Excel. Podendo automatizar envio de relatórios com os filtros já definidos para cada cliente ou área.
    A planilha utilizada para esta aula está disponível para download aqui:
    bit.ly/2X2mfsC
    ************ Comunidade Yera de Excel *******
    Faça parte dessa comunidade dinâmica e tenha conteúdos exclusivos e atualizados semanalmente
    pay.kiwify.com.br/PU3H6B0
    *************************************************
    ****** OUTROS VÍDEOS **************
    Tabela Dinâmica, Gráfico e Segmentação de Dados. Criando o seu painel
    • Tabela Dinâmica, Gráfi...
    Dashboard - Episódio 01 - Plano de Fundo e Histórico de Faturamento
    • Dashboard - Episódio 0...
    VBA e Macros - O que é? Por onde começar?
    • VBA e Macros - O que é...
    ************************************

Комментарии • 122

  • @andreluisfeliciano2411
    @andreluisfeliciano2411 4 дня назад

    Excelente conteúdo e excelente didática, fiquei só com uma dificuldade, quando protejo a planilha a macro não roda, fala que o e-mail não pode ser enviado com planilha protegida, como acertar este detalhe professor?

  • @edisondionisio1142
    @edisondionisio1142 4 года назад +2

    Excelente!

  • @cleomiltonramos1502
    @cleomiltonramos1502 4 года назад +1

    Demais!!!! Muito show!!!

    • @YeraExplica
      @YeraExplica  4 года назад +1

      Valeu Cleomilton! Abraço!

  • @leandrolamindepaulapereira9485
    @leandrolamindepaulapereira9485 2 года назад +1

    Expetacular!

  • @jaasielteodoro9048
    @jaasielteodoro9048 7 месяцев назад

    Year, sensacional seu método de explicação! Parabéns! Muito Bom!

  • @vidigalsmth
    @vidigalsmth 3 года назад +1

    Obrigado pelo compartilhamento de seu conhecimento.

  • @bernardinoaguiar5743
    @bernardinoaguiar5743 4 года назад

    Espetacular!!!!! Monstro da Didática

    • @YeraExplica
      @YeraExplica  4 года назад

      Valeu Bernardino! Abração!

  • @rodrigocosta5849
    @rodrigocosta5849 3 года назад +1

    Muito TOP meu amigo. Funciona perfeitamente. Excelente.

  • @rogeriopassos1075
    @rogeriopassos1075 4 года назад +1

    Cara...parabéns

  • @timbaster1
    @timbaster1 3 года назад +1

    Obrigado pelo video, vc ensinou de forma simples e pratico.

    • @YeraExplica
      @YeraExplica  3 года назад

      Valeu Raimundo! Grande abraço!

  • @eduardofr5916
    @eduardofr5916 2 года назад +1

    Yera, talvez você não imagine o impacto e a diferença que um vídeo como esse pode fazer na carreira de um profissional, muito obrigado pelo apoio!
    Consegue me ensinar a colar a seleção como imagem no corpo do email? Pois o dashboard que eu possuo é muito pesado e ao enviar a seleção por email fica muito pesado, de modo que o outlook não envia o conteudo

  • @automadicas
    @automadicas Год назад

    Excelente conteúdo! Ajudou muito, não só o vídeo mas também respostas dos comentários. Parabéns!

  • @igorpaiva1975
    @igorpaiva1975 Месяц назад

    Bom dia! Parabéns pela explicação, como faço pra enviar pra mais de um e-mail? E preciso encaminhar apenas um filtro como faria?

  • @neneCTBA
    @neneCTBA 4 года назад +1

    Eita piá bÃo!!

  • @sergiosousa8669
    @sergiosousa8669 Год назад +2

    Bom dia professor, ótima aula parabéns, uma dúvida
    No caso se eu quero enviar a planilha como anexo como faço?

  • @boraconstruir.1540
    @boraconstruir.1540 4 года назад +2

    Boa dica mas poderia ter ensinado a enviar anexo, com cópia para e cópia oculta também como colocar assinatura. Valeu obrigado.

    • @YeraExplica
      @YeraExplica  4 года назад

      Valeu pelo feedback meu caro! Vou abordar esse tema em Live para ensinar o que faltou. Abraço!

    • @boraconstruir.1540
      @boraconstruir.1540 4 года назад

      @@YeraExplicame inscrevi Aguardando a live obrigadão.

  • @GarotaCriativa
    @GarotaCriativa Год назад +1

    OBrigada pelo video.. nos salvou! tem algum codigo para diminuir o zoom da imagem do corpo do email. O dashboard esta chegando bem grande no email. OBrigada!

    • @YeraExplica
      @YeraExplica  Год назад +1

      Show show! O Tamanho da imagem segue "mais ou menos" o tamanho das células no excel, então se você diminuir as células no excel, provavelmente irá diminuir também na hora de colar no email.
      Abraço.

    • @GarotaCriativa
      @GarotaCriativa Год назад

      @@YeraExplica era isso mesmo. Obrigada ❤️

  • @juliasantana5706
    @juliasantana5706 8 дней назад

    Tem algum jeito de mandar sem precisar entrar no excel e clicar um botão da macro?

  • @maurorube948
    @maurorube948 4 года назад +2

    Parabéns!
    Poderia fazer uma aula para automatizar email utilizando o office 365?
    Vlw obrigado!

    • @YeraExplica
      @YeraExplica  4 года назад

      Opa Mauro, obrigado!
      Nesse vídeo aqui estou utilizando o Office 365. Deixei alguma dúvida em alguma parte?
      Abraço!

  • @falecomoeduable
    @falecomoeduable 3 года назад +2

    Nossa sensacional, parabéns pela explicação.
    Caso eu precise anexar o próprio arquivo no email, eu consigo via código?

    • @YeraExplica
      @YeraExplica  3 года назад +1

      Fala Eduardo! Seguindo a lógica desse exemplo, você pode usar o comando
      ActiveSheet.MailEnvelope.Item.attachments.Add (ThisWorkbook.FullName)
      que ele irá anexar o próprio arquivo excel sendo utilizado no email.
      Só cuidado para que esse código não seja executado em várias repetições, porque cada vez que executar essa linha, ele irá anexar o arquivo novamente.
      Grande abraço!

  • @angelaferraz6185
    @angelaferraz6185 2 года назад

    Olá, tem como colocar a assinatura do outlook ?

  • @fredericocasarin5607
    @fredericocasarin5607 Год назад

    Tem como por um código para o Excel abrir um documento Word, extrair o texto e depois colar o texto no corpo do e-mail?

  • @przinho
    @przinho 2 года назад +1

    Aula muito boa! Parabéns! Agora, consigo inserir alguma mensagem de texto no email?

    • @YeraExplica
      @YeraExplica  2 года назад

      Valeu Paulo! Como você pode mandar a própria seleção do Excel, minha sugestão é colocar o texto direto nessa seleção para ele enviar automaticamente. Mas Existem outras maneiras via VBA de inserir a mensagem sim, como por exemplo a propriedade item.introduction = "meu texto do email"
      Abração. Sucesso.

  • @diegorock9369
    @diegorock9369 2 года назад +1

    bom dia,
    Ótimo tutorial, parabéns!
    Tenho uma dúvida, preciso coletar informações de duas abas da planilha e enviar no mesmo e-mail, como faço para selecionar as células de uma aba, depois unir com as células selecionadas de outra aba e enviar no e-mail?

    • @YeraExplica
      @YeraExplica  2 года назад +1

      Opa Diego, obrigado meu caro! Então, existem várias maneiras de enviar um email pelo VBA. Essa daí que eu mostrei é bastante simples mas realmente também mais "limitada", porque o corpo do email vai ser o que você tem selecionado. Então funciona bem para quando você tem um intervalo só pra colocar no email. Você pode montar o seu "corpo do email" também dessa outra forma que eu mostro nesse outro vídeo ruclips.net/video/sXyODGdEHa4/видео.html ou ainda pesquisar sobre o termo "mail item.send vba" que você encontra outros vídeos de VBA mesmo para essa customização. Abração! Sucesso!

  • @soldadorayan249
    @soldadorayan249 2 года назад +2

    Excelente aula meu amigo, muito bom mesmo. Como eu faço para inserir um e-mail como "em cópia" para mandar para mais pessoas?

    • @YeraExplica
      @YeraExplica  2 года назад

      Valeu meu caro! Pra colocar o em cópia você pode inserir mais uma linha com esse comando antes da linha do SEND
      ActiveSheet.MailEnvelope.Item.CC = "email@provedor.com"
      Abração. Sucesso!

    • @YeraExplica
      @YeraExplica  2 года назад

      @Vanderson⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻⸻ Opa Vanderson, aí você pode simplesmente colocar o "Ponto e Vírgula" ; para separar os emails, por exemplo:
      email1@provedor.com;email2@provedor.com;email3@provedor.com
      Abração!

  • @Tallescamarguinhos
    @Tallescamarguinhos 11 месяцев назад

    Usando essa macro seria possível adicionar anexo?

  • @DPClaudemir
    @DPClaudemir 3 года назад +1

    Simples e direto isso que preciso... Ótima explicação
    Terá só tenho uma pergunta, tenho uma planilha com checkboxers onde devo enviar email somente quando selecionado
    Ou seja, quando selecionado envia o email, mas antes aplica um filtro em um relatório cópia os dados.do relatório e cola no corpo do email.
    Parecido com o seu da até para adaptar, porém onde trabalho o email usado é o Outlook 365, oi seja, somente web não tem o Outlook desktop..
    Esse código funciona para este serviço?

    • @YeraExplica
      @YeraExplica  3 года назад +1

      Opa Claudemir, show de bola!
      Quanto ao Office 365:
      Nesse exemplo que eu fiz, o excel vai usar o aplicativo Outlook, então só depende da conta configurada no outlook.
      No meu caso, eu configurei até mesmo uma conta gmail no outlook (que nada mais é do que um "portal" pro email).
      Então pra você, eu sugiro tentar configurar o outlook com a conta que você tem, e aí esse código vai funcionar.
      Se não tiver como usar o aplicativo do outlook, aí você vai ter que partir para outra solução (pode ser em VBA mesmo), mas aí é outro código.
      Abração.

  • @GustavoRodrigues-yi8kz
    @GustavoRodrigues-yi8kz 2 года назад

    Como eu faria pra por exemplo enviar um email diario sempre respondendo o mesmo email? Nao sei se deu pra entender mas tipo, vc faz envia um relatorio para seu chefe, ai todo dia vc envia um novo relatorio sempre respondendo o ultimo relatorio enviado. Tem como fazer isso?

  • @geovanalucenarodrigues9325
    @geovanalucenarodrigues9325 4 года назад

    Yera, adoro seus vídeos! Sua didática é incrível. Parabéns pelo trabalho.
    Eu tenho uma dúvida... é possível exportar para o excel informações extraídas de sistemas? Trabalho em uma montadora e desenvolvi alguns relatórios que hoje atualizo na mão porque ainda não consegui achar um jeito de extrair as informações de um sistema interno que temos para atualizar essas relatórios de forma automática.
    Abraço!!

    • @YeraExplica
      @YeraExplica  4 года назад +1

      Obrigado pelo feedback Geovana!
      Quanto a dúvida, vamos lá: Existem algumas maneiras de fazer isso sim, vou citar 2 que acredito ser mais práticas, uma mais "fácil" e outra um pouco mais complexa mas também mais performática.
      A primeira forma seria você ver a possibilidade de extrair um relatório do próprio sistema (arquivo txt, ou csv) e importar no seu excel (e talvez precise de uma macro para formatar os dados do jeito que você apresenta), mas pode te resolver.
      A segunda forma seria você ter acesso ao banco de dados do sistema (oracle, sqlserver, tem que ver como o sistema trabalha) e fazer via VBA a consulta direta no banco de dados.
      Essa forma é a mais performática, porém, a mais "difícil", tanto pela complexidade maior da macro, quanto pelo acesso ao banco de dados, que nem sempre, é dado para todas as áreas da empresa.
      Espero ter dado o caminho das pedras, rsrs.
      Abraço!

    • @geovanalucenarodrigues9325
      @geovanalucenarodrigues9325 4 года назад +1

      Ajudou sim! Tenho interesse em aprender mais coisas sobre... você dá aulas?!

    • @YeraExplica
      @YeraExplica  4 года назад

      Oi Geovana! Show de bola. Por enquanto estou dando aulas só aqui no canal mesmo. Se tiver algum tema para sugerir pode me enviar que estudamos juntos. Abraço!

  • @annialves7912
    @annialves7912 3 года назад +1

    Show! Eu só precisava do código que trocasse o "DE" porque no meu outlook tenho dois e-mails diferentes cadastrados e nem sempre quero mandar do mesmo e-mail.

    • @YeraExplica
      @YeraExplica  2 года назад

      Maravilha Anni! Existem algumas formas de fazer que envolvem alguns códigos um pouquinho mais complexos, mas nada de terrível assim rsrs.. Sugiro tentar implementar essa opção aqui: pt.stackoverflow.com/questions/453055/como-alterar-com-vba-o-e-mail-do-remetente-e-inserir-a-assinatura-para-disparo-d
      Depois me conta se deu certo.
      Abração. Sucesso!

  • @gilsonricardo1908
    @gilsonricardo1908 4 года назад +2

    tem como gerar relatorio e enviar em anexo pdf, da mesma forma demonstrada? Gostaria de poder enviaf relatorio para os representantes espalhados pelo Brasil

    • @YeraExplica
      @YeraExplica  4 года назад +2

      Opa Gilson! Tem sim, mas teria que fazer uma modificação no código. Você primeiro teria que mandar o excel imprimir como PDF e depois anexar esse PDF no email.
      Para imprimir em PDF você pode utilizar esse código exemplo:
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False, PrToFileName:=ActiveWorkbook.Path & "\Print.pdf"
      Essa linha de código irá imprimir em PDF o seu arquivo, direto na mesma pasta onde está salvo o seu Excel.
      Após ter impresso em PDF, no código de enviar email, você adiciona essa linha
      ActiveSheet.MailEnvelope.Item.Attachments.Add (ActiveWorkbook.Path & "\Print.pdf")
      Essa linha vai fazer com que seja adicionado como anexo, o seu arquivo impresso que ele vai buscar na mesma pasta onde está o seu Excel + o nome "Print.pdf"
      Espero ter ajudado.
      Grande abraço!

    • @gilsonricardo1908
      @gilsonricardo1908 4 года назад +1

      @@YeraExplica Muito Obrigado!Você além de responder tambem explica.

  • @femoreira89
    @femoreira89 3 года назад +1

    Olá boa noite,
    Eu gostaria de saber se é possível eu enviar as células selecionadas naquele momento, e não definir o Range ("A1:L50") por exemplo.

    • @YeraExplica
      @YeraExplica  3 года назад +1

      Fala Fernando! Tudo certo? Tem sim meu caro, basta você tirar a linha de código que está selecionando um intervalo específico. Dessa forma, o código vai sempre pegar de forma dinâmica a seleção que está naquele momento.
      Abração! Sucesso!

  • @michelsoubar9043
    @michelsoubar9043 2 года назад +1

    Adorei o video, sensacional !!! Alguém sabe como faço para enviar para várias pessoas ?

    • @YeraExplica
      @YeraExplica  2 года назад

      Opa Michel! Obrigado. Pra mandar pra mais gente é só você ir colocando ";" (ponto e vírgula) e os próximos emails como se fosse no outlook normal. por exemplo email1@provedor.com;email2@provedor.com;email3@provedor.com e etc.. Abraço. Sucesso!

    • @michelsoubar9043
      @michelsoubar9043 2 года назад +1

      @@YeraExplica Maravilha, muito obrigado. Consegui automatizar minha planilha. Eu só queria concatenar o assunto de acordo com o mês que estou enviando a informação. Eu já tenho a célula com a data, como faço para aparecer no assunto do e-mail ?

    • @YeraExplica
      @YeraExplica  2 года назад +1

      ​@@michelsoubar9043 maravilha meu caro. Pra juntar essa informação você pode alterar a parte da linha item.subject = "Meu assunto"
      Se você quer colocar por exemplo o conteúdo da célula A1 junto, você pode colocar dessa forma:
      item.subject = "Meu assunto " & worksheets("ABADAPLANILHA").range("A1")
      só lembra que se você tem alguma data nessa célula, você precisa formatar o texto, caso contrário o excel irá colocar o número que aquela data representa. Então se você tem a data na célula A1 e quer concatenar, você pode colocar assim:
      item.subject = "Meu assunto " & format(worksheets("ABADAPLANILHA").range("A1"), "dd/mm/yyyy")
      Só lembra de editar o "ABADAPLANILHA" para o nome da sua planilha.
      Abração, sucesso!

    • @michelsoubar9043
      @michelsoubar9043 2 года назад +1

      @@YeraExplica Sensacional, você é muito Top. Simplesmente automatizei toda minha planilha que prenchia e enviada de forma totalmente manual. Muito Obrigado.

    • @YeraExplica
      @YeraExplica  2 года назад

      Top demais Michel! Sucesso!

  • @tarcisioaugusto6405
    @tarcisioaugusto6405 2 года назад +1

    As imagens estão indo bagunçadas para o Outlook.. pode me ajudar? Mesmo definindo range

    • @YeraExplica
      @YeraExplica  2 года назад

      Opa Tarcísio, manda pra mim um email no yera@yeraexplica.com que tento te ajudar por lá, pode ser? Abraço!

  • @silvanocampos7342
    @silvanocampos7342 2 года назад +1

    Minha assinatura já está configurada no Outlook mas não está indo

    • @YeraExplica
      @YeraExplica  2 года назад

      Oi Silvano, com esse método, você vai ter que concatenar a sua assinatura na planilha mesmo. Ele não pega a assinatura automaticamente com esse envio de email. Abração.

  • @kaz4465
    @kaz4465 2 года назад

    Muito obrigada! Conteúdo excelente!
    Por favor, vc sabe como incluir a classificação de confidencialidade da mensagem para "Confidencial"?
    Obrigada :)

  • @deivideduardo2664
    @deivideduardo2664 2 года назад +1

    OPA, ÓTIMO CONTEÚDO!
    ME TIRE UMA DÚVIDA, POR FAVOR: É POSSIVÉL FAZER ISSO EM RESTAURANTES, ONDE VARIOS CLIENTE SIMUNTANEOS ACESSEM A PLANILHA VIA CRCode (celular) E AO ESCOLHER O PEDIDO, CHEGUE UM E-MAIL PARA A COZINHA? SE SIM, ONDE EU ACHO CONTEÚDO SOBRE?

    • @YeraExplica
      @YeraExplica  2 года назад

      Opa Deivid, tudo bom? Vou ser sincero contigo meu caro, possível é sim. Porém, eu acredito que pela complexidade, talvez seja mais interessante você pesquisar programas já prontos e específicos para isso. Provavelmente são pagos, porém pela segurança e integridade do seu negócio (até para emissão de notas fiscais e tudo mais...) acredito que valha a pena. Devem existir sistemas MEGA caros, e outros mais acessíveis também.
      Resumindo: Possível é sim, mas não aconselho fazer isso com planilha, por conta das funcionalidades necessárias.
      Abração. Sucesso!

  • @eleirjhonatandossantosbast2285
    @eleirjhonatandossantosbast2285 3 года назад +1

    Muito bom! Pode me passar o codigo em vba para colocar outro e-mail em cópia?

    • @YeraExplica
      @YeraExplica  3 года назад +1

      Fala Eleir! Tudo bom? Pra colocar um email em cópia, você pode adicionar essa linha dentro do with do MailEnvelope
      .Item.cc = "emailEmCópia@email.com"
      isso antes do Send.
      Abração!

  •  4 года назад +1

    Excelente! Caso fosse enviado para mais pessoas usaria qual caracter pra fazer a separação?

    • @YeraExplica
      @YeraExplica  4 года назад +1

      Valeu Allan! Pra mais de um endereço pode utilizar o ; (ponto e vírgula).
      Então ficaria "email1@provedor1.com;email2@provedor2.com;etc"
      Abraço!

    •  4 года назад +1

      Yera Explica obrigado!

  • @denisaparecidojeronimo2009
    @denisaparecidojeronimo2009 4 года назад

    Poxa, achei bacana demais pq é justamente o que eu tô precisando no meu trabalho. Pode entrar em contato comigo? Por favor

    • @YeraExplica
      @YeraExplica  4 года назад +1

      Opa Denis, tudo bom? Qualquer coisa pode entrar em contato pelo meu email yeraexplica@gmail.com
      Abraço!

    • @denisaparecidojeronimo2009
      @denisaparecidojeronimo2009 4 года назад +1

      @@YeraExplica Sim, nos falaremos sim. Abraço.

  • @c.moraes7463
    @c.moraes7463 3 года назад +2

    Gostaria de adicionar foto neste mesmo e-mail antes de enviar, como seria a programação?

    • @YeraExplica
      @YeraExplica  3 года назад

      Opa meu caro, tudo bom?
      Você pode usar o comando de attachments.add para adicionar anexos no seu email.
      Aqui está uma linha de código de exemplo que anexa a própria planilha como anexo.
      ActiveSheet.MailEnvelope.Item.attachments.Add (ThisWorkbook.FullName)
      Agora, se você estiver pensando em colocar no Corpo do email essa foto, aí você precisa dar uma pesquisada em VBA HTML Email. Porque aí o tipo do corpo de email muda e você consegue adicionar mais itens na mensagem.
      Espero ter dado o "caminho das pedras" meu caro.
      Abraço.

  • @rodrigocosta5849
    @rodrigocosta5849 3 года назад +1

    Fale Grande Yera, é possível enviar junto uma planilha com os dados em anexo no e-mail, constando apenas os dados de cada região?

    • @YeraExplica
      @YeraExplica  3 года назад

      Fala Rodrigo! É possível sim, não tenho um vídeo pronto com isso, mas a minha sugestão seria:
      Após filtrar os dados (que nesse vídeo já mostra), criar uma lógica no VBA que copie esses dados filtrados para um novo arquivo, salve o arquivo e depois envia como anexo para ter só os dados selecionados. Faz sentido?
      Abração!
      Sucesso!

    • @eduardofr5916
      @eduardofr5916 2 года назад

      @@YeraExplica Yera, consegue gravar esse vídeo? Nossa iria me ajudar muiiiiiiiiiiiiiiiiiiito, como também a outras pessoas

  • @thiago27054
    @thiago27054 2 года назад +1

    Amigão, como insiro uma variavel (Dim Nome As String) no assunto?

    • @YeraExplica
      @YeraExplica  2 года назад +1

      Fala Thiago! Você pode colocar a variável direto no subject, por exemplo:
      Dim nome as string
      nome = "Meu nome que coloquei na variável"
      with ActiveSheet.MailEnvelope
      .Item.Subject = nome
      end with
      Abração.
      Sucesso!

    • @thiago27054
      @thiago27054 2 года назад

      @@YeraExplica Eu fiz uma aplicação na empresa onde traballho. Compartilho uma planilha pelo onedrive com todos trabalhadores para que eles possam abrir as ordens de serviço. Coloquei essa função para enviar um email automaticamente quando a pessoa abrir a ordem de serviço. Porém, algumas vezes o email nao é enviado. o que poderia estar ocorrendo?

    • @YeraExplica
      @YeraExplica  2 года назад

      @@thiago27054 Opa Thiago, show de bola. Minha sugestão seria avaliar primeiro se é sempre com a mesma pessoa que dá o problema. Com esse código de VBA, a planilha usa o próprio Outlook para enviar o email, então se tiver algum problema com o outlook ou se naquele exato momento a pessoa está sem conexão, provavelmente deve ficar um "rascunho" na caixa de email. Fora isso, precisaria de mais dados pra tentar entender o que está acontecendo.
      Abraço! Sucesso!

  • @FabioSantos08
    @FabioSantos08 4 года назад +1

    Excelente... comecei a estudar o VBA e já está me ajudando.
    Só uma dúvida, no caso dos e-mails, ao invés de eu deixar fixo no código, como eu poderia fazer referência pra uma celular, que puxaria o e-mail via procv?

    • @YeraExplica
      @YeraExplica  4 года назад +2

      Opa Fabio! Show de bola!
      Tem várias maneiras de usar o valor de uma célula. Uma forma prática é colocar o que tem dentro dessa célula numa váriavel para usar no código. Por exemplo.
      conteudoDaCelula = worksheets("ABA_DE_DADOS").range("A1")
      Nessa linha de código, o VBA vai jogar o que tiver de conteúdo na célula A1 da aba "ABA_DE_DADOS" para dentro da variável conteudoDaCelula
      E aí você pode usar essa variável para o restante do seu código.
      Abraço!

    • @FabioSantos08
      @FabioSantos08 4 года назад

      @@YeraExplica desculpa perguntar novamente...
      com este código que você indicou, eu substituo a linha activesheet.mailenvelope.item.to por ele?

    • @YeraExplica
      @YeraExplica  4 года назад +1

      Opa Fabio! Teria que fazer o código ficar mais ou menos assim:
      Vamos supor que o email que você quer pegar está na célula A1.. aí o código ficaria.
      conteudoDaCelula = worksheets("ABA_DE_DADOS").range("A1")
      activesheet.mailenvelope.item.to = conteudoDaCelula
      Abraço!

    • @FabioSantos08
      @FabioSantos08 4 года назад +1

      Obrigado, deu certo!

    • @doughenryque85
      @doughenryque85 3 года назад

      @@FabioSantos08 sei que é antigo, mas como você conseguiu incluir uma lista de emails em outra aba para ele ler de acordo com o e-mail para cada item selecionado?

  • @larissavieira1786
    @larissavieira1786 2 года назад +1

    Bom dia, ótimo! Uma pergunta, como programo uma hora para envio diariamente desse e-mail, caso ele tenha tido alguma alteração somente, sem que eu precise entrar lá e enviar?

    • @YeraExplica
      @YeraExplica  2 года назад

      Obrigado Larissa! Dá uma olhadinha nesse vídeo que acredito que possa te ajudar:
      ruclips.net/video/t1TTHd7E2po/видео.html
      Abração! Sucesso!

  • @gesserpaixao1
    @gesserpaixao1 3 года назад +1

    Lucas, tenho o outlook na maquina mas não tenho email configurado a ele. embora tenha a planilha no PC o meu email de envio é office365, como posso fazer para enviar. pode me ajadar?

    • @YeraExplica
      @YeraExplica  3 года назад

      Opa Gesser, tudo bom? O email que eu usei nesse exemplo é do Gmail. Pra configurar o gmail no seu outlook você pode serguir alguns tutoriais aqui do youtube mesmo ou pelo suporte do próprio google como este artigo aqui:
      support.google.com/mail/answer/7126229?hl=pt-BR
      Depois me conta se deu certo =)
      Abração! Sucesso!

  • @matheusbeasin3521
    @matheusbeasin3521 3 года назад +1

    Sobre como enviar com um clique você não mostrou nesse vídeo, tem outro vídeo que você passa essa informação?

    • @YeraExplica
      @YeraExplica  3 года назад

      Opa Matheus, tudo bom? Com a macro já pronta, basta você vincular a macro em alguma imagem ou forma na sua planilha. Para fazer isso você precisa por exemplo:
      1 - ir no menu Inserir Forma (Pode ser um retângulo para representar um botão)
      2 - Clicar com o botão direito nessa forma e ir em Atribuir Macro.
      3 - Selecionar a macro que você criou pelo nome dela.
      Com esses 3 passos você cria o botão e aí é só formatar a forma do jeito que preferir.
      Abraço!

  • @carlosedsonn
    @carlosedsonn 3 года назад +1

    Olá, eu tenho um texto grande e gostaria de usar a formula que você ensinou, porém o Outlook faz o envio sem quebra de linha automática e com isso o e-mail é recebido pelo destinatário com "texto corrido" ou seja, sem mudar de linha. Teria alguma forma de corrigir isso? Obrigado !

    • @YeraExplica
      @YeraExplica  3 года назад +1

      Opa Carlos, tudo bom? Uma forma prática de fazer isso é utilizar o código chr(10) para quebra de linha, que é o código do "enter" pro computador.
      Então ficaria mais ou menos assim no VBA:
      Mensagem = "Texto da linha 1" & chr(10) & "Texto da linha 2" & chr(10) & "Texto da linha 3"
      Essa mensagem seria mostrada assim:
      Texto da linha 1
      Texto da linha 2
      Texto da linha 3
      Seria isso?
      Depois me conta se deu certo.
      Abração, Sucesso!

  • @rogeriodossantosdasilvap5031
    @rogeriodossantosdasilvap5031 3 года назад +1

    Olá, estou com um problema no meu trabalho sobre referência do outlook usando o vba para enviar email... o problema são as versões diferentes para usuários, quando eu crio o arquivo ele fica com a referência do office 2016 e quando o usuário vai abrir o arquivo ele está usando office 2013 e ai da erro na referência, tendo que mudar manualmente para funcionar.
    Existe algum código vba que possa trocar essa referência automática?
    Obrigado

    • @YeraExplica
      @YeraExplica  3 года назад

      Opa Rogério, consegue me enviar um email para o yeraexplica@gmail.com? Por lá fica mais fácil de te ajudar nesse assunto.
      Abraço!

  • @PauloOliveira-kz8wk
    @PauloOliveira-kz8wk 3 года назад +1

    BODY EM BRANCO, COMO PASSAR PARA O VBS PRA PEGAR A ASSINATURA DO E-MAIL?

    • @YeraExplica
      @YeraExplica  3 года назад

      Opa Paulo, tudo bom? Essa aí é um pouco mais complexa hehe.
      Minha sugestão: Se for apenas 1 assinatura, você poderia colocar no excel (num intervalo de células mesmo) e usando esse mesmo método do vídeo você poderia concatenar a assinatura no final da mensagem.
      Se você quiser as assinaturas de forma dinâmica de quem está enviando, aí minha sugestão é fazer com outro código explorando a opção de criar os objetos Outlook.Application e Outlook.MailItem.
      Eu ainda não tenho um vídeo específico disso, mas se você procurar no google algo do tipo "VBA EXCEL OUTLOOK.APPLICATION" você deve encontrar alguns exemplos em outros canais.
      Espero ter dado o caminho das pedras.
      Abração!

  • @tarcisioaugusto6405
    @tarcisioaugusto6405 2 года назад +1

    Excelente conteúdo, como sempre!
    Dúvida: como posso condicionar o e-mail destinatários a uma célula? De modo q eu não precise abrir o código cada vez que eu quiser mudar o destinatário?

    • @tarcisioaugusto6405
      @tarcisioaugusto6405 2 года назад +1

      Me heeelp! Please hahaha

    • @YeraExplica
      @YeraExplica  2 года назад +1

      Opa Tarcísio, tudo certo? Show de bola, pra fazer isso, você pode mudar a seguinte parte do código:
      ao invés de deixar fixo o email como:
      ActiveSheet.MailEnvelope.Item.to = "emailPara@provedor.com"
      você pode alterar para:
      ActiveSheet.MailEnvelope.Item.to = activesheet.range("A1")
      dessa forma, ele vai buscar o endereço que estiver na célula A1. E lá você pode deixar vários emails separados por Ponto e Vírgula, por exemplo: email1@provedor.com ; email2@provedor2.com ; email3@provedor3.com
      Espero ter ajudado meu caro.
      Abraço!
      Sucesso!

    • @tarcisioaugusto6405
      @tarcisioaugusto6405 2 года назад +1

      @@YeraExplica maravilha! Vai ajudar demais! Estou interessado (se houver) em cursos pagos! Parabéns pelo trabalho!

    • @YeraExplica
      @YeraExplica  2 года назад +1

      Show de bola Tarcísio, por enquanto só tenho um curso básico disponível na Udemy que se chamada Excel Essentials. Mas ali eu não abordo VBA. Abraço, sucesso!

    • @tarcisioaugusto6405
      @tarcisioaugusto6405 2 года назад +1

      @@YeraExplica parabéns pelo conteúdo! Isso salva vidas! Haha.. abs

  • @tamborlinerecuperadora679
    @tamborlinerecuperadora679 3 года назад +1

    Duvida, como enviar o arquivo do Excel anexo ?

    • @YeraExplica
      @YeraExplica  2 года назад

      Opa, tem sim! Você pode utilizar o comando dentro do with
      .Item.attachments.Add ("caminho do arquivo C:\blablabla.xlsx")
      Depois me conta se deu certo.
      Abração.
      Sucesso!

  • @viniciusmartin
    @viniciusmartin 3 года назад +1

    grande conseguimos fazer isso utilizando o gmail?

    • @YeraExplica
      @YeraExplica  3 года назад

      Opa Vinicius, tudo bom? Conseguimos sim, esse meu exemplo aí é utilizando o gmail. Porém o meu gmail está configurado no outlook, e por isso a macro envia através do aplicativo do outlook, utilizando a conta gmail.
      Então pra você usar essa macro, você precisaria configurar o Gmail com o Outlook.
      Sucesso!
      Grande abraço!

    • @viniciusmartin
      @viniciusmartin 3 года назад +1

      @@YeraExplica Boa, valew vou testar!! Sucesso!

  • @RodrigoAiosa
    @RodrigoAiosa 3 года назад +1

    Olá,
    Para essa finalidade é desnecessário VBA, pois temos essa funcionalidade NATIVA!!
    Abraços

    • @YeraExplica
      @YeraExplica  3 года назад

      Valeu Rodrigo. Abraço!

    • @amandamendesakiau1391
      @amandamendesakiau1391 2 года назад

      Como deixar essa funcionalidade de seleção e envio de e-mail ativo independente de acionar a macro ou não?