Пометить почтовое сообщение как отправленное (прогноз VBA)

У меня проблема с изменением свойства sent для почты, потому что свойство доступно только для чтения, и мне нужно изменить его с уровня vba.

Проблема появляется после отправки почты из общего почтового ящика (в режиме онлайн-просмотра). Почта не отправляется в папку «отправленные сообщения» в общем почтовом ящике, а остается в папке «Исходящие». Я сделал макрос для перемещения почты в правильную папку, и все в порядке, но почта имеет статус неотправленный (когда вы открываете почтовый элемент, вы находитесь в режиме редактирования). Я не могу найти решение этой проблемы.

Это папка «Исходящие» с правильно отправленной почтой и почтой, отправленной из общего почтового ящика:

 lokusking01 июл. 2016 г., 08:12
Можете ли вы Verfy, почтадействительно послал?
 Błażej Łaszewski01 июл. 2016 г., 08:27
Да, каждое письмо, отправленное из общего почтового ящика, было доставлено.
 Błażej Łaszewski01 июл. 2016 г., 08:51
Хорошо, когда я нажимаю кнопку «Отправить / Получить», почта меняет статус, так что это полезно;) Помните, что я пишу о проблеме с Outlook в онлайн-режиме (не в режиме обмена). Как я уже говорил, почта доставляется, но как-то в папке исходящих сообщений остается неотправленной.
 lokusking01 июл. 2016 г., 08:36
Похоже на тоэтот описывает вашу проблему. Там нет возможности достичь своей цели с VBA, очевидно,

Ответы на вопрос(2)

MSGFLAG_UNSENT немного вPR_MESSAGE_FLAGS свойство) можно изменить только до того, как элемент будет сохранен в первый раз.

Конечно, на объектную модель Outlook распространяются те же ограничения, и единственный способ создать элемент в отправленном состоянии - это создатьPostItem объект - он создается в отправленном состоянии. Затем вам нужно будет изменить класс сообщения обратно наIPM.Note и удалите связанные свойства значка, чтобы убедиться, что элемент выглядит правильно.

Искупление позволяет изменить состояние элемента (RDOMail.Sent это чтение / запись до первого вызова Save).

Возвращаясь к вашей конкретной проблеме, вам нужно выяснить, почему элементы остаются в папке в неотправленном состоянии, а не пытаться «исправить» это.

 Błażej Łaszewski03 июл. 2016 г., 15:21
Обычно проблема глобальная, и даже Microsoft написала об этом (я не могу найти ее прямо сейчас), поэтому я пытаюсь это исправить. Я постараюсь сделать это, используя ваш метод завтра :)
 Błażej Łaszewski04 июл. 2016 г., 08:49
Хорошо, я создал объект postitem, и когда я пытаюсь скопировать содержимое из «поврежденного» mailitem в postitem, я не могу этого сделать. По данным сайта:ссылка на сайт Я должен изменить свойство, такое как отправитель, но в outlook vba во время отладки у меня есть всплывающее окно "Объект не поддерживает это свойство или метод" Может быть есть другой более простой способ сделать это? Также у меня проблема с иконкой изменения ...
 Dmitry Streblechenko05 июл. 2016 г., 21:36
Вы не сможете создавать отправленные элементы и наполнять их содержимое содержимым других сообщений, используя только объектную модель Outlook, если только вы не скопируете одно свойство по таймеру.

SentItemsStyle на 0, и когда я это сделал, отправленные письма перешли в мою личную папку «Отправленные». Затем я просто перемещаю почту в общий почтовый ящик.

Ваш ответ на вопрос