Екцел - Бити обавештен путем поште када се дељена радна књига ажурира

Питање

Имам радну књигу програма Екцел која је ускладиштена на мрежном диску и коју користи више корисника. Треба ми макро који ће послати обавештење (поштом) сваки пут када неко ажурира Екцел лист. Како се ово може спровести?

Решење

Овај макро ће аутоматски послати е-пошту на било коју адресу / адресе сваки пут када се радна књига сачува:

 Привате Суб Воркбоок_БефореСаве (БиВал СавеАсУИ као Боолеан, _
Откажи као логички)
Дим одговор Ас Стринг
ансвер = МсгБок ("Ово је место где сте ставили текст да упита корисника да ли жели да сачува или не" вбИесНо, "овде је наслов тог поља")
Ако је одговор = вбНо онда Цанцел = Труе
Ако је одговор = вбИес Онда
'опен оутлоок тип ствари
Постави ОутлоокАпп = ЦреатеОбјецт ("Оутлоок.Апплицатион")
Постави ОлОбјецтс = ОутлоокАпп.ГетНамеспаце ("МАПИ")
Постави невмсг = ОутлоокАпп.ЦреатеИтем (олМаилИтем)
'додајте примаоце
'невмсг.Реципиентс.Адд ("Име овде")
невмсг.Реципиентс.Адд ("  ")
'адд субјецт
невмсг.Субјецт = " Линија теме е-поште овде "
'додајте тело
невмсг.Боди = "тело е-поште овде"
невмсг.Дисплаи 'дисплаи
невмсг.Сенд 'пошаљи поруку
'дати потврду послате поруке
МсгБок "уметните потврдни тест овде",, "наслов поља за потврду"
Енд Иф
'сачувајте документ
'Ме.Ворксхеетс.Саве
Енд Суб

Захваљујући схарк2000бр за овај тип.