Enviar emails pelo Excel

Leia também...

O segredo do quadradinho verde

Sabe o quadradinho verde que aparece no canto inferior direito de uma célula selecionada? Bom aquele quadradinho é meio que mágico, e ajuda muito na hora de disseminar fórmulas por toda a sua planilha dizendo “crescei e multiplicai-vos!”. Pois o quadradinho verde guarda um segredo, o segredo do quadradinho verde, e que também pode ser chamado de Preenchimento automático.

Ler »

Detetive de Macros

Detetive de Macros Seis mulheres estão mortas por causa do Assassino Sem Sombra. Neste exato momento uma nova vítima está caída, sangrando, em uma rua

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 = "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

E aí, o que achou?

Compartilhe

Planilhas prontas

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 »

Leia também...

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 »