Генериране на известия по имейл за актуализации на Excel лист
Когато работите в споделена мрежа, много често служителите имат достъп и променят общите файлове през целия ден. Тази статия ще обясни как да приложите макрос в Microsoft Excel, който ще изпраща автоматичен имейл всеки път, когато се прави промяна в общ документ.
Excel макрос за сигнални промени в документа
Можете да програмирате този макрос, за да изпращате имейли до определени членове на екипа, за да ги предупреждавате за промени в мрежов файл.Частна под-работна книга_BeforeSave (ByVal SaveAsUI като булева, _Отказ като логично)
Дим отговор като низ
answer = MsgBox ("Това е мястото, където поставяте текста, за да подскажете на потребителя дали иска да запази или не" vbYesNo, "тук е заглавието на това поле")
Ако отговорът е = vbNo, тогава Cancel = True
Ако отговор = vbYes Тогава
- отворете вида на Outlook
Задаване на OutlookApp = CreateObject ("Outlook.Application")
Задаване на OlObjects = OutlookApp.GetNamespace ("MAPI")
Задаване на newmsg = OutlookApp.CreateItem (olMailItem)
"добави получатели
"newmsg.Recipients.Add (" Име тук ")
newmsg.Recipients.Add (" ")
"добави тема
newmsg.Subject = "Ред на темата за автоматичен имейл тук"
"добави тялото."
newmsg.Body = "тяло на автоматично имейл тук"
дисплей на newmsg.Display
newmsg.Send 'изпрати съобщение
дайте потвърждение на изпратеното съобщение
MsgBox "вмъкни тест за потвърждение тук", "заглавие на полето за потвърждение"
Край Ако
'запази документа
"Me.Worksheets.Save
Край Под