Excel: Последнее изменения в файле на почту?

[shao]

День добрый,
подскажите а можно ли как-то оповещать , паример на email следующее:

имеем файл на сетевом диски, доступ к нему у 5ти человек, можно ли что б при внесении любых изменений и сохранении файла (кем либо из этих 5ти человек) на почту приходило сообщение о том что дата-время файл был изменен тем-то.

Спасибо
Огромное.

[AlexZZZ]

Код модуля:

Код: Выделить всё

Global ChangeBook As Boolean
Sub SendOutlook()
    Dim OutlookApp As Outlook.Application
    Dim MyItem As Outlook.MailItem
    Set OutlookApp = New Outlook.Application
    Set MyItem = OutlookApp.CreateItem(olMailItem)
    With MyItem
        .To = "Mymail@mymail.zu"
        .Subject = "Изменение файла"
        .Body = "Файл «" & ThisWorkbook.Name & "»" & Chr(10) & "изменён " & Application.Text(Now, "mm.dd.yyyy h:mm") _
                & Chr(10) & "пользователем «" & Application.UserName & "»."
        .Send
    End With
End Sub

Модуль "ЭтаКнига":

Код: Выделить всё

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ChangeBook = True Then SendOutlook
End Sub

Модуль листов, где отслеживаются изменения:

Код: Выделить всё

Sub WorkSheet_Change(ByVal Target As Range)
    ChangeBook = True
End Sub

К сожалению, всё это работает, если у пользователей настроен на отправку сообщений Outlook и в нём установлен низший уровень безопасности. Кроме того, неизвестно, как всё это будет взаимодействовать с установленными файерволами и антивирусами. Как всё это обойти - это вопрос к макровирусописателям.


P.S: С учётом замечаний коллег http://forum.developing.ru/showthread.php?t=16268 правильнее заменить "Application.UserName" на "Environ("USERNAME")".

[Aent]

Blat - Win32 utility to send
SMTP mail from the command line.
Useful for sending mail from
automated jobs, HTML CGI scripts,
etc. Includes source code.
Public Domain.
see http://www.blat.net

[Aent]

Есть куча програм оповещалок которые умеют при изменении файла высылать E-Mail и которые легко можно запустить службами на сервере
На крайний случай есть WMI
Конечно имя пользователя последним правившего файл будет доступно только на NTFS
Предполагается что есть домен

[AlexZZZ]

Интересная утилита, надо будет с ней разобраться... Это-ж с помощью неё из Экселя можно целый почтовик сварганить! Одно плохо: опять из эксель-проекта целая сборка для инсталляции получается.

Есть куча програм оповещалок которые умеют при изменении файла высылать E-Mail и которые легко можно запустить службами на сервере
На крайний случай есть WMI

Вот это, наверное, действительно оптимальное решение в данном случае. А имя пользователя, последнего изменившего файл, можно в Excel в отдельную ячейку макросом записывать.

[shao]

Есть куча програм оповещалок которые умеют при изменении файла высылать E-Mail и которые легко можно запустить службами на сервере

А что за програмы не подскажите? и как их правильно насторить?

[shao]

AlexZZZ,

Sub SendOutlook()
Dim OutlookApp As Outlook.Application

при сохранение следующая ошибка:
Compile error:
User-defined type not defined

что это может быть?

спасибо

[Naeel Maqsudov]

AlexZZZ,
при сохранение следующая ошибка:
Compile error:
User-defined type not defined
что это может быть?

Дык, Outlook.Application у Вас - неизвестный тип. Либо не установлен аутлук, либо просто не добавлеена библиотека к проекту. См. свойства проекта.

А что за програмы не подскажите? и как их правильно насторить?

Там ссылка была выше.

[shao]

Naeel Maqsudov, аутлук установлен, всё почта через аутлук отправлется, при клике на e-mail адрес открывается сразу окно аутлука.

наверное что-то с библиотекой? а где взять куда добавить? спасибо.

[demon416]

в редакторе vba
tools - refrences