Excel - Értesítés postai úton, amikor megosztott munkafüzet frissül

Probléma

Van egy Excel munkafüzetem, amelyet egy hálózati meghajtón tárolok és több felhasználó használ. Szükségem van egy makróra, amely értesítést küld (levélben) minden alkalommal, amikor valaki frissíti az Excel lapot. Hogyan lehet ezt megvalósítani?

Megoldás

Ez a makró automatikusan elküldi az e-mailt bármely címre / címre, amikor a munkafüzet mentésre kerül:

 Privát Sub Workbook_BeforeSave (ByVal SaveAsUI mint Boolean, _

Booleanként törlése

Válasz Sztringként

answer = MsgBox ("Ez az a hely, ahol a szöveget a felhasználóra kéri, ha el akarja menteni, vagy nem" vbYesNo, "itt van a doboz címe")

Ha a válasz = vbNo, akkor Cancel = True

Ha a válasz = vbYes, akkor

"nyílt kilátástípusú cucc

OutlookApp = CreateObject beállítása ("Outlook.Application")

OlObjects = OutlookApp.GetNamespace ("MAPI") beállítása

Newmsg = OutlookApp.CreateItem (olMailItem) beállítása

'címzettek hozzáadása

'newmsg.Recipients.Add ("Név itt")

newmsg.Recipients.Add (" ")

'Téma hozzáadása

newmsg.Subject = " Az automatikus e-mail cím itt "

- add testet

newmsg.Body = "automatikus e-mail cím itt"

newmsg.Display "kijelző

Új üzenet küldése

„adja meg az elküldött üzenet konformációját

MsgBox "beilleszti a megerősítő doboz tesztjét", "a megerősítő doboz címe"

Vége Ha

'mentse el a dokumentumot

„Me.Worksheets.Save

Vége vége

Ennek köszönhetően a shark2000br.

Előző Cikk Következő Cikk

Top Tippek