Почистить папку входящие и некоторые вложенные в нее папки от писем

@vova8885 · Регистрация: 18.02.2011

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

Всем привет!
У меня такой вопрос:
позволит ли VBA написать макрос для outlook, который бы чистил папку входящие и некоторые вложенные в нее папки от писем?

@Busine2009 · 18.02.2011, 19:53

vova8885,
думаю, что да: ведь с помощью VBA можно делать то же самое, что и с помощью интерфейса.

@vova8885 · 19.02.2011, 18:42 **[ТС]**

А можно по-подробнее))
Я хотел бы узнать как именно это можно реализовать на VBA, хотя бы пару намеков))

@Busine2009 · 19.02.2011, 20:22

vova8885,
Хорев В.Д. Самоучитель программирования на VBA в Microsoft Office
ISBN 966-7323-17-X
Глава 9. Программирование в Outlook.
Начните сразу читать со страницы 227 - Назначение и основные свойства некоторых классов Outlook.
Нам нужно узнать, как обратиться к папке Входящие и удалить из неё письма. Просматривайте книгу и если увидите что-то похожее на задание, то нужно использовать этот объект. Не вникайте в терминологию (что такое класс, объект и т.д.), просто попытайтесь найти что-то, что нужно.
Когда узнаете имя нужного класса, то перейдите в Outlook: Сервис - Макрос - Редактор Visual Basic. В справку напечатайте имя найденного в книге объекта и посмотрите связанную с ним информацию.
Ключевое слово Folders.

Добавлено через 1 час 20 минут
vova8885,
Вот так можно удалить в MS Outlook 2007 первое письмо в папке входящие:

Visual Basic
1
2
3
4
5
6
7
Sub m_1()
Dim ПространствоИмён As Outlook.NameSpace
Dim Папка As Outlook.Folder
Set ПространствоИмён = Application.GetNamespace("MAPI")
Set Папка = ПространствоИмён.GetDefaultFolder(olFolderInbox)
Папка.Items(1).Delete
End Sub

В MS Outlook 2003, наверное, 3 строку кода надо заменить на эту:

Visual Basic
1
Dim Папка As Outlook.MAPIFolder

Про VBA в MS Outlook есть в книге
Слепцова Л.Д. Программирование на языке VBA.

И есть книга на английском языке по VBA в MS Outlook 2007:
Ken Slovak Professional Outlook 2007 Programming.

@vova8885 · 19.02.2011, 22:04 **[ТС]**

А может быть можно просто создать правило в Outlook'e чтоб удалял, допустим, письмо старше 3-х дней?

@vova8885 · 22.02.2011, 14:50 **[ТС]**

Спасибо!

@vova8885 · 25.02.2011, 15:45 **[ТС]**

Как работать со стандартными папками в Outlook'e я понял. А вот как добраться до вложенных папок (созданных пользователем) в папке Входящие не совсем. В книге это как-то вскользь описано.

@Busine2009 · 25.02.2011, 16:00

vova8885,
удаление из папки Входящие в первой папке первого письма:

Visual Basic
1
Папка.Folders(1).Items(1).Delete

@vova8885 · 25.02.2011, 17:00 **[ТС]**

а если в этой папке еще папка?

@Busine2009 · 25.02.2011, 17:04

Visual Basic
1
Папка.Folders(1).Folders(1).Items(1).Delete

@vova8885 · 25.02.2011, 18:33 **[ТС]**

Логично))
Но не работает. Ругается на эту строчку.

@Busine2009 · 25.02.2011, 18:36

vova8885,

вставьте код, который используйте;
какая модель у вас MS Outllook?

@vova8885 · 26.02.2011, 11:18 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
Dim Name As Outlook.NameSpace
Dim Papka As Outlook.MAPIFolder
Set Name = Application.GetNamespace("MAPI")
Set Papka = Name.GetDefaultFolder(olFolderInbox)
Papka.Items(1).Delete
Papka.Folders(1).Items(1).Delete
Papka.Folders(1).Folders(1).Items(1).Delete   -- на эту строку ругается
Papka.Folders(2).Items(1).Delete

Outlook 2003 sp3

Papka.Folders(1).Folders(1).Items(1).Del ete по логике должно работать, но увы...

@Busine2009 · 26.02.2011, 11:51

vova8885,
может связано с разными моделями MS Outlook - в MS Outlool 2010 эта команда работает.
Проверить в MS Outlook 2003 не могу, т.к. на одном компьютере может быть только одна модель MS Outlook.

@Ципихович Эндрю · 26.02.2011, 12:38

по этому скрипту:

PureBasic
1
2
3
Dim Papka As Outlook.MAPIFolder
Set Papka = NameSpace.GetDefaultFolder(olFolderInbox)
Количество = Papka.Items.Count

Количество = 2, это что считает ???

@Busine2009 · 26.02.2011, 12:40

Сообщение от Ципихович Эндрю

Количество = 2, это что считает ???

2 письма в папке Входящие.

@Ципихович Эндрю · 26.02.2011, 12:52

понял, спасибо, так а как посчитать папки в папке Входящие??

@Busine2009 · 26.02.2011, 12:58

Сообщение от Ципихович Эндрю

понял, спасибо, так а как посчитать папки в папке Входящие??

Visual Basic
1
Папка.Folders.Count

@vova8885 · 28.03.2011, 17:29 **[ТС]**

Разобрался как ходить по папкам в Outlook.

А вот как, например, выбирать из письма определенные строки (или фразы) и копировать из в excel ?
Подскажите, пожалуйста.

@Ципихович Эндрю · 28.03.2011, 17:34

Сообщение от vova8885

Разобрался как ходить по папкам в Outlook.

и как же?

Сообщение от vova8885

А вот как, например, выбирать из письма определенные строки (или фразы) и копировать из в excel ?

А Вы в переменную всё письмо можете взять?

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@vova8885 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 13

	Outlook Почистить папку входящие и некоторые вложенные в нее папки от писем 18.02.2011, 18:24. Показов 11754. Ответов 22 Метки нет (Все метки) Всем привет! У меня такой вопрос: позволит ли VBA написать макрос для outlook, который бы чистил папку входящие и некоторые вложенные в нее папки от писем? 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	18.02.2011, 19:53
	vova8885, думаю, что да: ведь с помощью VBA можно делать то же самое, что и с помощью интерфейса. 0

@vova8885 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 13
	19.02.2011, 18:42 [ТС]
	А можно по-подробнее)) Я хотел бы узнать как именно это можно реализовать на VBA, хотя бы пару намеков)) 0

@vova8885 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 13
	19.02.2011, 22:04 [ТС]
	А может быть можно просто создать правило в Outlook'e чтоб удалял, допустим, письмо старше 3-х дней? 0

@vova8885 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 13
	22.02.2011, 14:50 [ТС]
	Спасибо! 0

@vova8885 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 13
	25.02.2011, 15:45 [ТС]
	Как работать со стандартными папками в Outlook'e я понял. А вот как добраться до вложенных папок (созданных пользователем) в папке Входящие не совсем. В книге это как-то вскользь описано. 0

@vova8885 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 13
	25.02.2011, 17:00 [ТС]
	а если в этой папке еще папка? 0

@vova8885 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 13
	25.02.2011, 18:33 [ТС]
	Логично)) Но не работает. Ругается на эту строчку. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	25.02.2011, 18:36
	vova8885, вставьте код, который используйте; какая модель у вас MS Outllook? 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	26.02.2011, 11:51
	vova8885, может связано с разными моделями MS Outlook - в MS Outlool 2010 эта команда работает. Проверить в MS Outlook 2003 не могу, т.к. на одном компьютере может быть только одна модель MS Outlook. 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,327
	26.02.2011, 12:52
	понял, спасибо, так а как посчитать папки в папке Входящие?? 0

@vova8885 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 13
	28.03.2011, 17:29 [ТС]
	Разобрался как ходить по папкам в Outlook. А вот как, например, выбирать из письма определенные строки (или фразы) и копировать из в excel ? Подскажите, пожалуйста. 0