Генериране на известия по имейл за актуализации на 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

Край Под

Предишна Статия Следваща Статия

Топ Съвети