Cursos, tutoriais e planilhas prontas

Enviar emails pelo Excel

Share on facebook
Share on twitter
Share on linkedin
Share on whatsapp
Share on telegram

Leia também...

Enviar emails pelo Excel

Já quis enviar emails automaticamente através de suas planilhas mas nunca soube como fazer isso? Bom, o video abaixo te ensina a como enviar e-mails pelo Excel de maneira fácil utilizando o Outlook, mas isso não quer dizer que você precisa ter uma conta de e-mail outlook.com, no vídeo mesmo mostramos a como usar uma conta do Gmail para tal.


Vídeo explicativo de como enviar emails pelo Excel

Logo abaixo do vídeo está o código VBA que você irá precisar.

Coloque o vídeo em tela cheia para assistir normalmente

 


Código VBA para enviar emails pelo Excel

Sub Enviar_Email()
 Dim OutlookApp As Object
 Dim OutlookMail As Object
 Set OutlookApp = CreateObject("Outlook.Application")
 Set OutlookMail = OutlookApp.CreateItem(0)

On Error Resume Next

With OutlookMail
 .SentOnBehalfOfName = "zzz@zzz.com" 'Remetente
 .To = "xxx@xxx.com" 'Enviar para
 .CC = "" 'Com cópia para
 .BCC = "" 'Com cópia oculta para
 .Subject = "Assunto Importante" 'Assunto
 
 'ESCOLHA ABAIXO ENTRE .HTMLBody e .Body
 '.HTMLBody - Possibilita uma personalização maior do texto, mas não _
 identifica quebra de linha de textos em células.
 '.Body - Identifica quebra de linha de texto em células _
 mas não permite personalizações.
 .Body = "Aqui está a mensagem do e-mail."
 'ESCOLHA ABAIXO ENTRE .Display e .Send
 '.Display - Usado para exibir o email na tela, não enviar automaticamente
 '.Send - Usado para enviar automaticamente, sem exibi-lo na tela
 .Display
 End With
 
 On Error GoTo 0
 Set OutlookMail = Nothing
 Set OutlookApp = Nothing
End Sub

'DICAS DE HTMLBody
'<br> Próxima linha
'<b> Texto em negrito </b>
'<i> Texto em itálico </i>
'<s> Texto riscado </s>
'<u> Texto sublinhado </u>
'<font color=""red""> Texto em vemelho </font>
'<font color=""blue""> Texto em azul </font>
'<font color=""darkblue""> Texto em azul escuro </font>

Acompanhe o Função Excel
facebook-logo youtube-logo googleplus-logo twitter-logo

Leia também...

2 thoughts on “Enviar emails pelo Excel

  1. boa tarde,

    Como faço para anexar imagens no corpo do e-mail?

    Estou usando

    Set Mensagem = ThisWorkbook.Sheets(2).Range(“B2:I32”)

    Porém mesmo havendo imagens e ícones na planilha dentro desse Range ele não vão junto quando executo o código.

Deixe um comentário ou uma dúvida

Compartilhe

Share on facebook
Share on twitter
Share on linkedin
Share on whatsapp
Share on telegram

Planilhas prontas

Histórico de Cotações

Baixe cotações históricas de ações, índices, moedas, criptomoedas, commodities e fundos em mais de 50 bolsas de valores no mundo, direto no Excel. Selecione os parâmetros desejados e deixe o arquivo fazer o resto para você, de forma rápida, simples e organizada.

Saber mais »

Planilha de Controle Uber, Cabify & 99 Pop

Com a Planilha de Controle Uber, Cabify & 99 Pop você terá total controle de seus ganhos e gastos como motorista, sabendo de onde vem e para onde vai seu dinheiro.
Com esta planilha você terá em detalhes todo o fluxo de dinheiro que envolve seu trabalho como motorista, e poderá controlar melhor sua renda.

Saber mais »

Leia também...

Faça uma doação

Nos ajude a continuar te ajudando.
Faça uma doação!

Compartilhe com o mundo

Gostou do artigo?
Não seja egoista, compartilhe!

Share on facebook
Share on twitter
Share on linkedin
Share on whatsapp

fique SEMPRE ATUALIZADO!

Junte-se a lista de e-mails do Função Excel

Receba e-mails semanais e melhore constantemente suas habilidades com Excel

Inscreva-se