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?