Макрос в outlook

@vkolmakov · Регистрация: 08.08.2013

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

Всем привет! Нужна помощь в макросе для outlook, все что есть на форуме пробовал не работает, так как скорее всего написано под свои задачи
Моя задача
В outlook 2010 созданы папки а именно
Филиалы Газпромтранс (вроде родительская папка)
Астраханский филиал
И так далее (образец прикладываю)
в которые по правилам приходят письма от определенных адресатов со вложениями в формате ексель (у всех разные 2003, 2007, 2010), темы тоже разные, но могу всем сказать чтобы указывали одну единую тему письма, имя файла тоже разные ( также могу сказать чтобы именовали как нужно)

На сетевом диске создал папки аналогично как в outlook чтобы сохранять отчеты которые приходят.
Просьба помочь в решении данной задачи, заранее спасибо

@CountMay · 08.08.2013, 12:03

Вопрос: как сохранять по каталогам на сетевом диске? Если да, то вариантов может быть два:
1) через "RULES" самого MSOutlook
2) через специальную программу, которая должна висеть вместе с MSOutlook и постоянно его проверять.
Или вопрос в другом?

@vkolmakov · 08.08.2013, 16:09 **[ТС]**

X:\Справка простоя вагонов филиалов

Добавлено через 3 часа 53 минуты
Я имел ввиду прописать путь, где сохранять

@CountMay · 08.08.2013, 18:57

Видимо как-то так: в макросе MSOutlook создаёте процедуру:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub SaveIncomingAtt(itm As Outlook.MailItem)
 
    Dim objAtt As Outlook.Attachment, sPath As String
    ' цикл обработки всех вложений
    For Each objAtt In itm.Attachments
        If itm.SenderEmailAddress = "Астрахань" Then
            sPath = "X:\Астрахань\"
        ElseIf itm.SenderEmailAddress = "Москва" Then
            sPath = "X:\Москва\"
        ElseIf itm.SenderEmailAddress = "Оренбург" Then
            sPath = "X:\Оренбург\"
        End If
        'сохранить
        objAtt.SaveAsFile sPath & objAtt.FileName
    Next
End Sub

делаете правило в MSOutlook, что на все входящие от таких-то или с такою темою, или с такими-то условиями - сами определяете, что и как - должна вызываться процедура SaveIncomingAtt

@vkolmakov · 09.08.2013, 10:13 **[ТС]**

Спасибо, завтра по пробую...

Добавлено через 12 часов 8 минут
Выдает ошибку после запуска макроса

@vkolmakov · 09.08.2013, 10:21 **[ТС]**

Выдает ошибку после запуска макроса

@CountMay · 09.08.2013, 10:24

Просто так макрос запустить нельзя. Он добавлен должен быть в правило(а) MSOutlook'а и запускается тогда, когда выполняется само правило, т.е. приходит новый e-mail.
Сделайте тест: пометьте e-mail как непрочитанный и запустить принудительно правило на этот один непрочитанный e-mail. Если выдаст ошибку, то надо ловить отладчиком по шагам.

@vkolmakov · 09.08.2013, 10:37 **[ТС]**

Не могу найти где можно добавить в правило, могу вам перезвонить

@CountMay · 09.08.2013, 14:26

У меня нет Office2010, но должно быть всё идентично.
1) создаёте правило
2) от кого, тема письма и т.п.
3) На следующей вкладке находите Run a script (выполнить макрос / запустить макрос - как-то так должно быть в русском MSOffice) ставите галочку. выбираете свою процедуру из макросов.
Таким образом Вы создаёте правило: что для e-mail'ов с таким условием должна работать такая процедура.

@CountMay · 09.08.2013, 14:28

И в коде
If itm.SenderEmailAddress = <<<здесь должен быть реальный e-mail, как-то: alex@mail.ru>>> Then

@smirno · 03.04.2014, 18:20

день добрый, может кто из гуру наставит: скрипт в правиле. требуется сохранять приложения в разные папки на сервере. не программист, но сделать нужно, а в текущей трактовке не работает

5 Public Sub saveDMRtoDisk(itm As Outlook.mailItem)
10 Dim objAtt As Outlook.Attachment, saveFolder As String

15 For Each objAtt In itm.Attachments

20 '----------------------------------Saving report from different senders:
25 'sender1: sender1@yandex.ru;
30 If itm.SenderEmailAddress = "sender1@yandex.ru" Then saveFolder = "K:\SENDER1"

35 'sender2: sender2@yandex.ru;
40 If itm.SenderEmailAddress = "sender1@yandex.ru" Then saveFolder = "K:\SENDER1"

45 End If

50 objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
55 Set objAtt = Nothing
60 Next
65 End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@vkolmakov 3 / 0 / 0 Регистрация: 08.08.2013 Сообщений: 5

	Макрос в outlook 08.08.2013, 10:35. Показов 4695. Ответов 10 Метки нет (Все метки) Всем привет! Нужна помощь в макросе для outlook, все что есть на форуме пробовал не работает, так как скорее всего написано под свои задачи Моя задача В outlook 2010 созданы папки а именно Филиалы Газпромтранс (вроде родительская папка) Астраханский филиал И так далее (образец прикладываю) в которые по правилам приходят письма от определенных адресатов со вложениями в формате ексель (у всех разные 2003, 2007, 2010), темы тоже разные, но могу всем сказать чтобы указывали одну единую тему письма, имя файла тоже разные ( также могу сказать чтобы именовали как нужно) На сетевом диске создал папки аналогично как в outlook чтобы сохранять отчеты которые приходят. Просьба помочь в решении данной задачи, заранее спасибо Миниатюры 0

@CountMay 6 / 6 / 0 Регистрация: 27.01.2012 Сообщений: 28
	08.08.2013, 12:03
	Вопрос: как сохранять по каталогам на сетевом диске? Если да, то вариантов может быть два: 1) через "RULES" самого MSOutlook 2) через специальную программу, которая должна висеть вместе с MSOutlook и постоянно его проверять. Или вопрос в другом? 0

@vkolmakov 3 / 0 / 0 Регистрация: 08.08.2013 Сообщений: 5
	08.08.2013, 16:09 [ТС]
	X:\Справка простоя вагонов филиалов Добавлено через 3 часа 53 минуты Я имел ввиду прописать путь, где сохранять 0

@vkolmakov 3 / 0 / 0 Регистрация: 08.08.2013 Сообщений: 5
	09.08.2013, 10:13 [ТС]
	Спасибо, завтра по пробую... Добавлено через 12 часов 8 минут Выдает ошибку после запуска макроса 0

@vkolmakov 3 / 0 / 0 Регистрация: 08.08.2013 Сообщений: 5
	09.08.2013, 10:21 [ТС]
	Выдает ошибку после запуска макроса Миниатюры 0

@CountMay 6 / 6 / 0 Регистрация: 27.01.2012 Сообщений: 28
	09.08.2013, 10:24
	Просто так макрос запустить нельзя. Он добавлен должен быть в правило(а) MSOutlook'а и запускается тогда, когда выполняется само правило, т.е. приходит новый e-mail. Сделайте тест: пометьте e-mail как непрочитанный и запустить принудительно правило на этот один непрочитанный e-mail. Если выдаст ошибку, то надо ловить отладчиком по шагам. 0

@vkolmakov 3 / 0 / 0 Регистрация: 08.08.2013 Сообщений: 5
	09.08.2013, 10:37 [ТС]
	Не могу найти где можно добавить в правило, могу вам перезвонить 0

@CountMay 6 / 6 / 0 Регистрация: 27.01.2012 Сообщений: 28
	09.08.2013, 14:26
	У меня нет Office2010, но должно быть всё идентично. 1) создаёте правило 2) от кого, тема письма и т.п. 3) На следующей вкладке находите Run a script (выполнить макрос / запустить макрос - как-то так должно быть в русском MSOffice) ставите галочку. выбираете свою процедуру из макросов. Таким образом Вы создаёте правило: что для e-mail'ов с таким условием должна работать такая процедура. Миниатюры 0

@CountMay 6 / 6 / 0 Регистрация: 27.01.2012 Сообщений: 28
	09.08.2013, 14:28
	И в коде If itm.SenderEmailAddress = <<<здесь должен быть реальный e-mail, как-то: alex@mail.ru>>> Then 0

@smirno 0 / 0 / 0 Регистрация: 03.04.2014 Сообщений: 10
	03.04.2014, 18:20
	день добрый, может кто из гуру наставит: скрипт в правиле. требуется сохранять приложения в разные папки на сервере. не программист, но сделать нужно, а в текущей трактовке не работает 5 Public Sub saveDMRtoDisk(itm As Outlook.mailItem) 10 Dim objAtt As Outlook.Attachment, saveFolder As String 15 For Each objAtt In itm.Attachments 20 '----------------------------------Saving report from different senders: 25 'sender1: sender1@yandex.ru; 30 If itm.SenderEmailAddress = "sender1@yandex.ru" Then saveFolder = "K:\SENDER1" 35 'sender2: sender2@yandex.ru; 40 If itm.SenderEmailAddress = "sender1@yandex.ru" Then saveFolder = "K:\SENDER1" 45 End If 50 objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName 55 Set objAtt = Nothing 60 Next 65 End Sub 0