BigAp.ru — интернет-магазин электроники и бытовой техники

Автор Тема: [Решено] Экспорт писем из Outlook в Excel  (Прочитано 6426 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн sysadmin

  • Administrator
  • сисадми́н
  • *****
  • Сообщений: 8528
  • Karma: +114/-0
  • Пол: Мужской
    • Share Post
    • сайт для сис. админов и не только...
[Решено] Экспорт писем из Outlook в Excel
« : Август 26, 2014, 09:44:43 am »
Недавно понадобилось сделать экспорт всей почты из папки "Входящие" в документ Excel, здесь на помощь пришел VBA:

- Открываем Outlook
- Переходим на вкладку Разработчик, запускаем Visual Basic
- В открывшемся окне в панели дерева проекта создаем новый модуль (или используем существующий)
- Вставляем в него код:

Скрытая информация. Зарегистрируйтесь, чтобы увидеть её.

- Нажимам кнопку запустить или F5

У меня входящей почты достаточно много, во время работы скрипта может подвиснуть Excel, Outlook это не страшно, достаточно выждать некоторое время (в моем случае 20 минут) и результат можно будет наблюдать в открывшейся книге Excel.




« Последнее редактирование: Март 29, 2015, 07:42:07 pm от sysadmin »
дорогу осилит идущий...
......................
MCP, MCTS, RHCSA
......................
also aka xck...

 

Seven777

  • Гость
Re: Экспорт писем из Outlook в Excel
« Ответ #1 : Ноябрь 26, 2014, 06:11:02 pm »
А как указать конретный файл куда письма должны переносится?
Я попробовал, скрипт все письма переносит, достаточно быстро, правда надо еще для себя сделать так, чтобы только новые в этот же документ добавлял и разделить от кого, сообщение, дату.

Оффлайн sysadmin

  • Administrator
  • сисадми́н
  • *****
  • Сообщений: 8528
  • Karma: +114/-0
  • Пол: Мужской
    • Share Post
    • сайт для сис. админов и не только...
Re: Экспорт писем из Outlook в Excel
« Ответ #2 : Ноябрь 27, 2014, 08:40:38 am »
"От" должен помещать в отдельный столбец, так как это есть в скрипте - "xlobj.Range("c" & 1).Value = "Sender"", на сколько помню он (скрипт) на "лету" данные помещает в файл, т.е. после генерации файла его можно сохранить под нужным именем в нужное место... Решение было "однодневное" дальше копать - развивать скрипт уже небыло времени, если тобой будут внесены какие то новшества, дай знать плз, думаю это будет полезно не только мне и тебе ))

Khutr

  • Гость
Re: Экспорт писем из Outlook в Excel
« Ответ #3 : Ноябрь 27, 2014, 10:27:40 am »
Интересно при повторном экспорте он по новой заливает или же дополняет новыми если второй вариант то цены ему нет.

Оффлайн sysadmin

  • Administrator
  • сисадми́н
  • *****
  • Сообщений: 8528
  • Karma: +114/-0
  • Пол: Мужской
    • Share Post
    • сайт для сис. админов и не только...
Re: Экспорт писем из Outlook в Excel
« Ответ #4 : Ноябрь 27, 2014, 11:05:13 am »
Интересно при повторном экспорте он по новой заливает или же дополняет новыми если второй вариант то цены ему нет.

Ишь какие хитрые :acute: Каждый раз, новый файл...

Seven777

  • Гость
Re: Экспорт писем из Outlook в Excel
« Ответ #5 : Ноябрь 27, 2014, 02:12:58 pm »
Скрипт будем постепенно дорабатывать, по итогам интересное что-нибудь выложу

Оффлайн sysadmin

  • Administrator
  • сисадми́н
  • *****
  • Сообщений: 8528
  • Karma: +114/-0
  • Пол: Мужской
    • Share Post
    • сайт для сис. админов и не только...
Re: Экспорт писем из Outlook в Excel
« Ответ #6 : Ноябрь 27, 2014, 05:05:51 pm »
Скрипт будем постепенно дорабатывать, по итогам интересное что-нибудь выложу

Будет круто

Оффлайн Greymem

  • Опытный пользователь
  • ***
  • Сообщений: 129
  • Karma: +11/-0
  • Пол: Мужской
  • Банда кошаков :)
    • Share Post
Re: [Решено] Экспорт писем из Outlook в Excel
« Ответ #7 : Октябрь 21, 2016, 09:25:29 am »
О небольшой опечатке
В строке
xlobj.Range("e" & 1).Value = "Recieved Time"
Правильнее:
xlobj.Range("e" & 1).Value = "Categories"
Потому что:
xlobj.Range("e" & i + 1).Value = myitem.Categories

Приведенный код, у меня на компе почему-то не открывает приложение Excel. Сначала Outlook думает, потом видимо что-то сохраняет вникуда.
Поэтому нашел еще одно изящное решение: https://techniclee.wordpress.com/2011/10/29/exporting-outlook-messages-to-excel/
Сохраняет файл сразу на диск.


xx
Скрипт экспорта писем из Outlook в txt

Автор ilyxaaa

1 Ответов
1469 Просмотров
Последний ответ Январь 15, 2015, 06:25:14 pm
от ilyxaaa
moved
Перенесено: Скрипт экспорта писем из Outlook в txt

Автор sysadmin

0 Ответов
6 Просмотров
Последний ответ Апрель 17, 2015, 08:39:23 pm
от sysadmin
xx
[Решено] Как просмотреть очередь писем в Sendmail?

Автор sysadmin

0 Ответов
2493 Просмотров
Последний ответ Декабрь 22, 2013, 11:43:15 am
от sysadmin
thumbup
[Решено] Экспорт истории сообщений Skype в текстовой файл

Автор Greymem

2 Ответов
10079 Просмотров
Последний ответ Декабрь 08, 2016, 02:09:13 pm
от sysadmin