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.