How to create an excel reminder to Outlook? is it possible?

[Maximilian88]

Hello all and thanks in advance,

I wonder if it is possible to create a macro, and if so how, that tells excel ,that everytime that changes in the sheet get saved , send an email to a certain outlook account. That would help heaps to fix some comunication problems that happen in the company where Im working as information is not always comunicated .

Thanks again in advance!

 

[jumbledore]

you can use the below vba code which will send out an email before saving the workbook. you have to modify the code as per your needs and you should save it under "ThisWorkbook":

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim aOutlook As Object
Dim aEmail As Object
Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String
Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)
strRecipients = "xyz@abc.com" 'change the email id

'set Importance
aEmail.Importance = 2
'Set Subject
aEmail.Subject = "Test Mail"
'Set Body for mail
aEmail.Body = "Sending mail just before saving workbook"

'Set Recipient
aEmail.To = strRecipients


aEmail.Send

End Sub