Добрый день!
На листе работает макрос, который по клику ПКМ в диапазоне G5:V500 открывает папку по гиперссылке из ячейки столбца Е той же строки, затем активирует окно Outlook, из которого я перетаскиваю файл руками в открытую папку.
Можно ли автоматизировать процесс, чтобы файл копировался в папку из сообщения сам (не важно - открыта папка, или нет)
Прошу прощения - файл выложить не могу, корпоративный интернет(
Код:
На листе работает макрос, который по клику ПКМ в диапазоне G5:V500 открывает папку по гиперссылке из ячейки столбца Е той же строки, затем активирует окно Outlook, из которого я перетаскиваю файл руками в открытую папку.
Можно ли автоматизировать процесс, чтобы файл копировался в папку из сообщения сам (не важно - открыта папка, или нет)
Прошу прощения - файл выложить не могу, корпоративный интернет(
Код:
Код |
---|
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("G5:V500")) Is Nothing Then ' Открывает нужную папку гиперссылкой ActiveCell.EntireRow.Cells(5).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Application.Wait Now + TimeSerial(0, 0, 2) 'Задержка срабатывания макроса Target = Date Outlook.ActiveExplorer.Activate 'Активирует Аутлук Application.EnableEvents = True Cancel = True End If End Sub |