VBA Outlook: Как открыть сообщение для редактирования через объектную модель Word?

@alarmos · Регистрация: 18.11.2015

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

Добрый день!

Подскажите, плиз, как открыть сообщение (MailItem) для редактирования через объектную модель Word (через свойство Inspector.WordEditor)?
(сообщение не новое - а полученное или уже отосланное)
Outlook 2010.

Руками это делается в окне чтения сообщения в ленте через Сообщение - Переместить - Действия - Изменить сообщение. А как это сделать программно?

В приведенном ниже коде попытка sRange.InsertAfter - приводит к ошибке "Run-time error '4605': Метод или свойство недоступны, поскольку документ заблокирован для редактирования."
Посмотрел, в sDoc.ProtectionType стоит "wdAllowOnlyReading". А если вручную открыть на редактирование - то "wdNoProtection".
Но попытка сделать sDoc.Unprotect приводит к ошибке "Run-time error '4605': Данная команда недоступна."

В свойствах MailItem или Inspector ничего подходящего не вижу.
Если сделать "Изменить сообщение" руками - то приведенный код работает.

Подскажите, плиз!

Visual Basic

Private Sub test1()
    Dim Msg As MailItem, AI As Inspector, sDoc As Word.Document, sRange As Word.Range
    Set AI = ActiveInspector
    Set Msg = AI.CurrentItem
    Set sDoc = AI.WordEditor
    Set sRange = sDoc.Range(0, 0)
    sRange.InsertAfter "[Вставленный текст]"
End Sub

Добавлено через 31 минуту
PS. В аутлуке нет макрорекордера. Посмотреть код ручного нажатия "Изменить сообщение" нельзя

@alarmos · 06.02.2017, 16:01 **[ТС]**

На всякий добавлю, что можно, конечно, делать через .HTMLBody, но для основной задачи (функции замены строки1 на строку2) он хуже, т.к. там могут куда-либо вклиниться тэги, а отлавливать их - это отдельный гемор...
К тому же, некоторые письма в HTML выглядят неожиданно (состоят не из нормальных знаков, а из их кодов а-ля & # 1088 ; ).
Короче, надо будет либо писать какой-то мегакод вместо небольшого и понятного, либо доделывать руками.
Модель Word, мне кажется, всё бы решила...

@alarmos · 07.02.2017, 16:45 **[ТС]**

Всю голову себе сломал.
По 7 раз пересмотрел членов MailItem, Inspector, Application, Word.Document и бог знает чего еще...
Почитал несколько учебников, где про Аутлук пишут... но всё мимо

Ничего не нахожу рабочего

Кажется, нашел решение через SendKeys:
Application.ActiveInspector.Activate
SendKeys "%TCC", True - делает симуляцию нажатия кнопки "Изменить сообщение"

В тесте, вроде, отрабатывает. Надеюсь, и в бою будет...
Но буду рад если кто подскажет решение через объекты всё же!
Т.к. более надежно и понятно. И более быстро, наверное...

@alarmos · 09.02.2017, 15:21 **[ТС]**

SendKeys работает, но долго.
Так что тема по-прежнему актуальна!

Добавлено через 8 часов 47 минут
Как выясняется, sDoc.Unprotect работает. Но не на всех сообщениях. На каких-то работает, на каких-то нет. От чего зависит, не понятно.

По-прежнему очень надеюсь на ответ, как через VBA в инспекторе сделать "Сообщение - Действия - Изменить сообщение" без SendKeys!

@Sasha_Smirnov · 09.02.2017, 15:38

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

Как выясняется, sDoc.Unprotect работает.

Думаете, это ещё у кого-то используется? Вы первопроходец.

@alarmos · 09.02.2017, 15:53 **[ТС]**

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

Думаете, это ещё у кого-то используется? Вы первопроходец.

Думаю, что наверняка используется. Тут вопрос не в какой-то специфической задаче, а чисто в одном действии - разлочить

Наверняка на форуме сидит сотня людей, который знают ответ. Но не говорят

@Sasha_Smirnov · 09.02.2017, 17:51

Кто знает, кто знает… Процентf 93 тут о ВБА-то только что-то слышали, а уж в аутлуке!..

@alarmos · 11.02.2017, 12:38 **[ТС]**

Странно. Я половину ответов на возникающие вопросы выгугливал на этом форуме

Добавлено через 27 минут
В основном по Excel'ю, правда

@alarmos · 13.02.2017, 13:54 **[ТС]**

Пока не нашел то, что нужно, прям в самих объектах.
Но нашел, как через объекты симулировать нажатие "Изменить сообщение" без SendKeys:

Visual Basic

1	Insp.CommandBars.ExecuteMso ("EditMessage")

Ну и что-то типа такого при имеющемся MailItem:

Visual Basic

Dim Insp As Inspector, MI As MailItem
Set Insp = MI.GetInspector
Insp.Activate: DoEvents
Insp.CommandBars.ExecuteMso ("EditMessage"): DoEvents

(DoEvents, возможно, не нужно)

@alarmos 0 / 0 / 0 Регистрация: 18.11.2015 Сообщений: 13
	06.02.2017, 16:01 [ТС]	2
	На всякий добавлю, что можно, конечно, делать через .HTMLBody, но для основной задачи (функции замены строки1 на строку2) он хуже, т.к. там могут куда-либо вклиниться тэги, а отлавливать их - это отдельный гемор... К тому же, некоторые письма в HTML выглядят неожиданно (состоят не из нормальных знаков, а из их кодов а-ля & # 1088 ; ). Короче, надо будет либо писать какой-то мегакод вместо небольшого и понятного, либо доделывать руками. Модель Word, мне кажется, всё бы решила... 0

@alarmos 0 / 0 / 0 Регистрация: 18.11.2015 Сообщений: 13
	07.02.2017, 16:45 [ТС]	3
	Всю голову себе сломал. По 7 раз пересмотрел членов MailItem, Inspector, Application, Word.Document и бог знает чего еще... Почитал несколько учебников, где про Аутлук пишут... но всё мимо Ничего не нахожу рабочего Кажется, нашел решение через SendKeys: Application.ActiveInspector.Activate SendKeys "%TCC", True - делает симуляцию нажатия кнопки "Изменить сообщение" В тесте, вроде, отрабатывает. Надеюсь, и в бою будет... Но буду рад если кто подскажет решение через объекты всё же! Т.к. более надежно и понятно. И более быстро, наверное... 0

@alarmos 0 / 0 / 0 Регистрация: 18.11.2015 Сообщений: 13
	09.02.2017, 15:21 [ТС]	4
	SendKeys работает, но долго. Так что тема по-прежнему актуальна! Добавлено через 8 часов 47 минут Как выясняется, sDoc.Unprotect работает. Но не на всех сообщениях. На каких-то работает, на каких-то нет. От чего зависит, не понятно. По-прежнему очень надеюсь на ответ, как через VBA в инспекторе сделать "Сообщение - Действия - Изменить сообщение" без SendKeys! 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	09.02.2017, 15:38	5
	Сообщение от alarmos Как выясняется, sDoc.Unprotect работает. Думаете, это ещё у кого-то используется? Вы первопроходец. 0

@alarmos 0 / 0 / 0 Регистрация: 18.11.2015 Сообщений: 13
	09.02.2017, 15:53 [ТС]	6
	Сообщение от Sasha_Smirnov Думаете, это ещё у кого-то используется? Вы первопроходец. Думаю, что наверняка используется. Тут вопрос не в какой-то специфической задаче, а чисто в одном действии - разлочить Наверняка на форуме сидит сотня людей, который знают ответ. Но не говорят 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	09.02.2017, 17:51	7
	Кто знает, кто знает… Процентf 93 тут о ВБА-то только что-то слышали, а уж в аутлуке!.. 0

@alarmos 0 / 0 / 0 Регистрация: 18.11.2015 Сообщений: 13
	11.02.2017, 12:38 [ТС]	8
	Странно. Я половину ответов на возникающие вопросы выгугливал на этом форуме Добавлено через 27 минут В основном по Excel'ю, правда 0

	13.02.2017, 13:54