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

[shao]

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

нашел...а как нахывается эта библиотека ? что выбрать надо?

[shao]

Спасибо всем!включил всё пашет!!!

[shao]

еще интерестно к данной теме реализовать следующее:
пример: ячейка А1 в ней стоит дата: 20.11.2008,
можно ли что б 20.11.2008 отправлялось письмо на мыло?при этот файл никто не открывает,он себе спокойно лежит...

[Naeel Maqsudov]

Ну, это же совсем меняет концепцию!
Вы же понимаете, что чудес не бывает. Надо чтобы работало где-то постоянно некое приложение (которое в данном случае предстоит написать), которое раз в день, или каждые N минут сканирует список файлов, проверяет изменились ли они с момента последнего оповещения, затем проверяет пришло ли время оповещения... и т.д. и т.п.

Hint:
Подумайте над разработкой или приобретением корпоративной автоматизированной системы ведения документации.

[shao]

Naeel Maqsudov, возможно я не совсем прапвильно написал, хотел сказать следующее:
в файле в ячейке стоит дата, нужно если эта дата= сегодня дата, то отправить письмо на почту.
файл лежит спокойно, его никто не открывает итд.

[Naeel Maqsudov]

Да, я вроде все правильно понял....
Сейчас у вас все сделано на основе обработчика события:
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Если никто не трогает документ, и при этом никто не нажимает кнопку Save, то эта программа не запускается. И если даже если Range("A1")=Date(), то никто об этом не узнает.

Т.е. чтобы решить эту (новую) задачу, надо написать отдельную (от документа) программу, которая проверяет ячейку А1 и отправляет что надо и куда надо. И это уже не задча для VBA.

[shao]

а теперь понял все, спасибо огромное...

[shao]

подскажите пожалуйста еще пару вопросов:
1. а как обойти сообщение которое высвечивается при отправке письма:Програмы пытается автоматически отправить...ДА НЕТ итд.
возможно ли обойти вставкой :
Application.SendKeys "{ENTER}"

2. как вставить ссылку (например с:\1.xls) на файл в body:

With MyItem
.To = ""
.Subject = ""
.Body = ""
.Send
End With

Спасибо

[Aent]

Цитата:
Сообщение от shao
А что за програмы не подскажите? и как их правильно насторить?
Сообщение от Naeel Maqsudov
Там ссылка была выше.

Naeel, cсылка там была на почтовый сендер, работающий из командной строки.
А вот ссылка на очень приличную и бесплатную программу автоматизации, решающую проблему shao
http://www.xstarter.com/rus/index.html
Рекомендую.

[shao]

Aent, спасибо за ссылку, вечером скачаю,полезно будет.

Задачу в общем решил уже почти всю, осталось только два вопроса, пост #18, кто подскажет?