Enviar emails pelo Excel

Leia também...

Remover acentos

Remover acentos Este é um problema que eu, sinceramente, nunca tive mas recentemente um dos leitores do Função Excel me passou um arquivo em que

Ler »

Arredondando números

Arredondando números Por algumas vezes precisamos arredondar os números para que possam melhores representar o dado que queremos, e existem duas maneiras de fazer isso,

Ler »

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.

 


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 = "[email protected]" 'Remetente
 .To = "[email protected]" '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

E aí, o que achou?

Compartilhe

Destaques da Loja

Doação

Quer ajudar o Função Excel a se manter no ar, ou sente que merecemos um carinho por ter te ajudado a resolver algum problema com Excel? Que tal fazer uma doação?

Para doar mais que R$5,00 altere a quantidade de “compra” para que o número seja multiplicado por R$5,00.

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 »

Bolão da Copa do Mundo FIFA 2018

Com o Bolão da Copa do Mundo FIFA 2018 do Função Excel, você terá um planilha super confiável, segura, fácil de mexer e de visual super profissional para controlar o bolão com seus amigos, familiares e principalmente, os colegas de trabalho.

Saber mais »