Регистрация входящих писем Outlook в Excel

@ivsir · Регистрация: 15.07.2015

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

Добрый день! Решил написать небольшой макрос по регистрации входящей почты outlook в книге excel. Получилось следующее:
1. в Excel необходимые данные (от кого, кому, тема письма) благополучно переносятся.
2. нумерация писем в excel производится автоматически (от 1-го и далее).
3. если пользователь ввел свой номер (например 420, нумерация продолжается с этого номера).
4. каждый раз при запуске макроса производится оценка уже существующих позиций, и новые значения добавляются в строчки Excel уже после существующих.

Но вот возникла какая проблема. Каждый раз когда я запускаю макрос, он добавляет мне в новые позиции все имеющиеся письма с учетом поступивших новых. Т.е. происходит многоступенчатый дубляж одних и тех же писем каждый раз когда я запускаю макрос.

Мне же нужно чтобы программа работала так: При запуске макроса тот проверяет папку с входящими (в моем случае вместо входящей я выделил папку monitoring) и переносит значения в Excel, при следующем запуске макрос добавляет в Excel только те письма которых еще не было, и так каждый раз. Попробовал entryID, провозился с ним, толком ничего не вышло. Файл прилагаю. Прошу вашей помощи.

@pashulka · 24.07.2020, 20:11

Олег З,

Visual Basic
1
Set objFolder = objNamespace.Folders(1).Folders("Визирование")

@Олег З · 30.07.2020, 23:07

Огромное человеческое Спасибо!
~~Не подскажешь почему после отработки макроса из второго поста вылетает Оутглюк?~~
простите - затупил
'objOutlook.Quit

как это победить? Планирую доделать макрос, что бы заполнял статус заказов в моей учетной таблице на основании пришедшей почты, но если он каждый раз будет выпадать, то никакого режима реал-тайм не получится (

Добавлено через 23 минуты
Подскажите как получить таблицу, которая в теле письма в виде таблицы Excel?

@pashulka · 31.07.2020, 09:13

Visual Basic
1
2
3
4
5
6
Set outMail = ...
Set wdDoc = outMail.GetInspector.WordEditor
Set wdOLE = wdDoc.InlineShapes(1).OLEFormat
wdOLE.Open
Set xlBook = wdOLE.Object
Set xlList = xlBook.Activesheet

@CaliforniaHD · 18.10.2020, 23:40

Добрый день, спасибо за скрипт!
Не распознаются письма, которые начинаются "== Noon Report == " дальше идут несколько пустых строк и текст, длина текста около 3к символов, строк 200.
Отображается ошибка и указывает на строку Cells(iRow, 6) = Left(objMail.Body, 1000)

Как исправить эту ошибку? Заранее большое спасибо!

Новые блоги и статьи Все статьи Все блоги /
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .

@Олег З 0 / 0 / 0 Регистрация: 18.07.2020 Сообщений: 2
	30.07.2020, 23:07
	Огромное человеческое Спасибо! ~~Не подскажешь почему после отработки макроса из второго поста вылетает Оутглюк?~~ простите - затупил 'objOutlook.Quit как это победить? Планирую доделать макрос, что бы заполнял статус заказов в моей учетной таблице на основании пришедшей почты, но если он каждый раз будет выпадать, то никакого режима реал-тайм не получится ( Добавлено через 23 минуты Подскажите как получить таблицу, которая в теле письма в виде таблицы Excel? 0

@CaliforniaHD 0 / 0 / 0 Регистрация: 09.03.2013 Сообщений: 9
	18.10.2020, 23:40
	Добрый день, спасибо за скрипт! Не распознаются письма, которые начинаются "== Noon Report == " дальше идут несколько пустых строк и текст, длина текста около 3к символов, строк 200. Отображается ошибка и указывает на строку Cells(iRow, 6) = Left(objMail.Body, 1000) Как исправить эту ошибку? Заранее большое спасибо! Миниатюры 0