Автоматическое сохранение писем на жесткий диск/сетевую папку

@Cedo · Регистрация: 18.02.2019

Студворк — интернет-сервис помощи студентам

Здравствуйте!

Имею Outlook 2010
Суть вопроса такова - Мне необходимо отправлять ежедневные отчеты определенной группе получателей (Доменная сеть). Помимо этого, нужно сохранять копию этого письма на сетевом диске. Знаю, что можно это сделать по средствам создания скрипта. Сам в этом не разбираюсь и очень прошу помочь в этом!
Идея такова - я могу настроить правило, которое будет срабатывать при отправке определенному получателю, в котором укажу запуск скрипта, который будет копировать письмо в определенную папку на сетевом диске. В случае недоступности сетевого ресурса, необходимо, что бы он предупреждал об этом и делал повторную попытку.
Т.к. отчеты на сетевом диске нужно группировать по году и месяцу, небходимо что бы он автоматически создавал новую папку на новый месяц в формате \2019.02 (гггг.мм) Название письма это - тема письма и в конце нужно добавлять индекс (переменную)
Например мне нужно скидывать 4 письма в день. название темы у всех писем одинаковое "Осмотр помещения 15.02.2019", ежедневно будет меняться только дата. т.е в день у меня должно получится "\\Сетевой путь\2019.02\Осмотр помещения 15.02.2019(1).msg" "\\Сетевой путь\2019.02\Осмотр помещения 15.02.2019(2).msg" "\\Сетевой путь\2019.02\Осмотр помещения 15.02.2019(3).msg" "\\Сетевой путь\2019.02\Осмотр помещения 15.02.2019(4).msg"

Очень сильно прошу помочь в решении этой задачи!

@Cedo · 24.02.2019, 19:39 **[ТС]**

Сsnipe, Спасибо за помощь! Получилось как раз то, что нужно было!

Добавлено через 20 минут
Мой конечный скрипт, может кому пригодится:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub CustomMailMessageRule(Item As Outlook.MailItem)
 
    Const network_path As String = "\\192.168.1.1\IT\" 'сетевой путь
    Const MSG_FORMAT As String = "msg"
    Const DATE_FORMAT As String = "yyyy.mm"
    Dim sdt As String
    Dim curr_folder As String
    sdt = Format(Now, DATE_FORMAT)
    
    curr_folder = network_path & sdt
    If Dir(curr_folder, vbDirectory) = "" Then ' проверяем, если папки нет
        MkDir curr_folder ' то создаем ее
    End If
    
    Item.SaveAs Replace(curr_folder & "\" & Item.Subject & " в " & Format(Item.ReceivedTime(), "hh-mm") & "." & MSG_FORMAT, Chr(34), "") ' Сохраняем письмо: Имя файла - тема письма + время отправки + удаление символа " из имени файла + формат письма
    
End Sub

Новые блоги и статьи Все статьи Все блоги /
20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.
Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .

@Cedo 1 / 2 / 0 Регистрация: 18.02.2019 Сообщений: 21

	Outlook Автоматическое сохранение писем на жесткий диск/сетевую папку 18.02.2019, 16:28. Показов 14094. Ответов 20 Метки outlook, vba, vba outlook, vba макрос (Все метки) Здравствуйте! Имею Outlook 2010 Суть вопроса такова - Мне необходимо отправлять ежедневные отчеты определенной группе получателей (Доменная сеть). Помимо этого, нужно сохранять копию этого письма на сетевом диске. Знаю, что можно это сделать по средствам создания скрипта. Сам в этом не разбираюсь и очень прошу помочь в этом! Идея такова - я могу настроить правило, которое будет срабатывать при отправке определенному получателю, в котором укажу запуск скрипта, который будет копировать письмо в определенную папку на сетевом диске. В случае недоступности сетевого ресурса, необходимо, что бы он предупреждал об этом и делал повторную попытку. Т.к. отчеты на сетевом диске нужно группировать по году и месяцу, небходимо что бы он автоматически создавал новую папку на новый месяц в формате \2019.02 (гггг.мм) Название письма это - тема письма и в конце нужно добавлять индекс (переменную) Например мне нужно скидывать 4 письма в день. название темы у всех писем одинаковое "Осмотр помещения 15.02.2019", ежедневно будет меняться только дата. т.е в день у меня должно получится "\\Сетевой путь\2019.02\Осмотр помещения 15.02.2019(1).msg" "\\Сетевой путь\2019.02\Осмотр помещения 15.02.2019(2).msg" "\\Сетевой путь\2019.02\Осмотр помещения 15.02.2019(3).msg" "\\Сетевой путь\2019.02\Осмотр помещения 15.02.2019(4).msg" Очень сильно прошу помочь в решении этой задачи! 0