VPF::макрос экспорта сообщений outlook

ilyxaaa

Дата 15.1.2015, 12:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 15.1.2015

Репутация: нет
Всего: нет

Добрый день. Подскажите макрос для выполнения такой задачи:
экспорт сообщений в txt и причем что бы каждое письмо было отдельным файлом

Нашел только вариант в Excel и только в 1 файл. Привожу ниже

Код


Sub Extract()
On Error Resume Next
Set myOlApp = Outlook.Application
Set mynamespace = myOlApp.GetNamespace("mapi")
Set myfolder = myOlApp.ActiveExplorer.CurrentFolder
Set xlobj = CreateObject("excel.application.14")
xlobj.Visible = True
xlobj.workbooks.Add
'Set Heading
xlobj.Range("a" & 1).Value = "Body"
xlobj.Range("b" & 1).Value = "Recieved time"
xlobj.Range("c" & 1).Value = "Sender"
xlobj.Range("d" & 1).Value = "Subject"
xlobj.Range("e" & 1).Value = "Recieved Time"
For i = 1 To myfolder.Items.Count
 Set myitem = myfolder.Items(i)
 msgtext = myitem.Body
  
 xlobj.Range("a" & i + 1).Value = msgtext
 xlobj.Range("b" & i + 1).Value = myitem.ReceivedTime
 xlobj.Range("C" & i + 1).Value = myitem.To
 xlobj.Range("d" & i + 1).Value = myitem.Subject
 xlobj.Range("e" & i + 1).Value = myitem.Categories
  
 Next
End Sub

Akina

Дата 15.1.2015, 14:05 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Код


Sub Extract()

Const OutputPath As String = "B:\Temp\"

Dim i As Integer
Dim ff As Integer
Dim MyOlApp, MyNameSpace, MyFolder

Set MyOlApp = Outlook.Application
Set MyNameSpace = MyOlApp.GetNamespace("mapi")
Set MyFolder = MyOlApp.ActiveExplorer.CurrentFolder

On Error Resume Next

For i = 1 To MyFolder.Items.Count
    ff = FreeFile
    Open OutputPath & CStr(i) & ".txt" For Output As #ff
    Set MyItem = MyFolder.Items(i)
    Print #ff, "Body = """ & MyItem.Body & """"
    Print #ff, "ReceivedTime = """ & MyItem.ReceivedTime & """"
    Print #ff, "To = """ & MyItem.To & """"
    Print #ff, "Subject = """ & MyItem.Subject & """"
    Print #ff, "Categories = """ & MyItem.Categories & """"
    Close #ff
Next

End Sub

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

ilyxaaa

Дата 15.1.2015, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 15.1.2015

Репутация: нет
Всего: нет

Akina, Спасибо огромное.
Еще такой вопрос а как сделать что бы имя файлу давалось такое ( дата сообщения-от кого-тема )

Akina

Дата 15.1.2015, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Не советую. Обязательно попадутся символы, недопустимые в имени файла.

--------------------

ilyxaaa

Дата 15.1.2015, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 15.1.2015

Репутация: нет
Всего: нет

Akina, хотябы отправитель что был . что бы можно было понимать от кого не открывая

ilyxaaa

Дата 15.1.2015, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 15.1.2015

Репутация: нет
Всего: нет

Akina, с этим разобрался спасибо.
Но появилась новая проблема . как сделать что бы макрос автоматически запускался если появляется новое сообщение?

Akina

Дата 15.1.2015, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Для этого нужно создать надстройку с требуемой функцией и подключить её в правилах обработки писем.

--------------------

ilyxaaa

Дата 16.1.2015, 10:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 15.1.2015

Репутация: нет
Всего: нет

Akina, а можно поподробнее по поводу создания надстройки?

Akina

Дата 16.1.2015, 10:51 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Цитата(ilyxaaa @ 16.1.2015, 11:40

)

можно поподробнее по поводу создания надстройки?

Нет. Меня этот вопрос никогда не интересовал. Я ориентируюсь на справку по созданию правил сортировки почты - там в качестве внешнего обработчика писем указаны только надстройки.

Должен сказать, что я не изучал объектную модель Outlook. Возможно, там просто есть где-то в недрах метод, срабатывающий при получении письма (это может быть как метод письма, так и метод аппликации или иного объекта). Если таковой будет найден - достаточно будет просто навесить именно на него выполнение требуемой функции. Правда, нужно будет убедиться, что он срабатывает безусловно.

Возможен и другой подход - отсабклассить аппликацию или иной объект схемы (тот же CurrentFolder) и вытащить наружу эвент и интерфейс обработчика. У аппликации такой точно должен быть, ниже - надо копать описание модели.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »