✔ Programação GLOBAL®: VBA Excel: Envie um email com sua planilha a partir do Excel

VBA Excel: Envie um email com sua planilha a partir do Excel

Já imaginou enviar sua mensagem diretamente para as pessoas que deseja apenas pelo pressionamento de teclas de combinação ou um pequeno botão na planilha?

Pois isso será possível através do código abaixo:

Não se esqueça de efetuar as referências ao MS Outlook. Este código deve ser colocado num módulo dentro do MS Excel.

Sub MailPlan()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem

Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
  .To = "bernardess@gmail.com"
  .Subject = "A&A: Teste de envio a partir do Excel " & Format$(DateAdd("m", -1, Date), "mmmm")
    .Body = "A assiduidade do mês de " & Format$(DateAdd("m", -1, Date), "mmmm")

  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs ("c:\teste.xls")
  Application.DisplayAlerts = True
  
  .Attachments.Add ActiveWorkbook.FullName
  'No Excel 97 use ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
  .Display 'ou para enviar direto sem interface use .Send
 
End With
  Set OutMail = Nothing
Set OutApp = Nothing
End Sub