Views

Histats

Vitrine

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



André Luiz Bernardes
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/
bernardess@gmail.com

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias