Excel - paziņojiet pa pastu, kad tiek atjaunināta kopīga darbgrāmata

Izdevums

Man ir Excel darbgrāmata, kas ir saglabāta tīkla diskā un to izmanto vairāki lietotāji. Man vajag makro, kas katru dienu nosūtīs paziņojumu (pa pastu), kad kāds atjauninās Excel lapu. Kā to var īstenot?

Risinājums

Šis makro automātiski nosūtīs e-pastu uz jebkuru adresi / adreses, kad darbgrāmata ir saglabāta:

Privāts subgrāmatas_BeforeSave (ByVal SaveAsUI Kā Būla, _

Atcelt kā boolean)

Atbildēt kā virkni

answer = MsgBox ("Šis ir tas, kur jūs ievietojat tekstu, lai uzaicinātu lietotāju, ja viņš vēlas saglabāt vai nē" vbYesNo, "šeit ir šīs kastes nosaukums")

Ja atbilde = vbNo Tad Atcelt = True

Ja atbilde = vbYes Tad

'atvērtu perspektīva veida stuff

Iestatīt OutlookApp = CreateObject ("Outlook.Application")

Iestatīt OlObjects = OutlookApp.GetNamespace ("MAPI")

Set newmsg = OutlookApp.CreateItem (olMailItem)

'pievienot adresātus

'newmsg.Recipients.Add ("Nosaukums šeit")

newmsg.Recipients.Add (" ")

'pievienot tēmu

newmsg.Subject = " Automātiskās e-pasta tēmas rinda šeit "

pievienot ķermeni