Автоматическое перемещение прикрепленных сообщений в папку «Входящие» в Outlook

Question

Я регулярно получаю пересылаемые электронные письма, которые поступают как файлы в формате .msg в формате Outlook. Эти письма были отправлены в виде вложений с другого сервера обмена. Если я перетаскиваю прикрепленные сообщения в папку «Входящие», они отображаются точно так же, как и любое другое электронное письмо. Я хотел бы найти автоматизированный способ извлечь эти прикрепленные письма в мой почтовый ящик и удалить исходный обмен сообщениями, содержащий файл .msg.

Я уверен, что это может быть достигнуто с помощью правила в сочетании с Outlook VBA, но мне не хватает навыков написания этого кода с нуля.

Любые указатели или код примера, чтобы я начал?

Answer 1

Вот как я это сделаю. Тем не менее, я дам вам фрагменты кода, которые вам придется объединить вместе.

Logic:

1. Extract вложение и сохранить его, чтобы сказать C:\
2. Используйте метод CreateItemFromTemplate(), чтобы открыть файл .msg. Подробнее об этом HERE
3. Переместить сообщение в соответствующую папку

Код для извлечения вложений: крытое HERE

код для открытия .msg файла:

Sub CreateFromTemplate() 
    Dim MyItem As Outlook.MailItem 

    Set MyItem = Application.CreateItemFromTemplate("C:\Blah Blah.msg") 
    MyItem.Display 
End Sub 

сейчас у вас есть ручка для .msg ie MyItem, просто переместить его в соответствующую папку, а затем удалите исходное письмо

код для перемещения в другую папку: крытое HERE. Если вы будете искать в Google, вы получите больше образцов кода для этого.

Надеюсь, это поможет вам на правильном пути.