Извлекать адреса электронной почты из тела письма Outlook с помощью VBA?

#vba #outlook

#vba #outlook

Вопрос:

Я использую Outlook 2000 с идентификатором входа на сервере Exchange моей компании.

У меня есть папка с именем «undelivered_email», которая находится в разделе «Личная папка». Я установил правило для перемещения копии всех электронных писем с заголовком, похожим на «недоставленное электронное письмо».

Теперь, как я могу просмотреть все электронные письма в этой папке «undelivered_email» и получить доступ к телу каждого электронного письма, а затем получить любой адрес электронной почты, внутри тела содержимого?

Например, это копия содержимого недоставленного уведомления по электронной почте:

 ####################################################################
# THIS IS A WARNING ONLY.  YOU DO NOT NEED TO RESEND YOUR MESSAGE. #
####################################################################

Your message could not be delivered for 1 days, 20 hours, 0 minutes.
It will be retried until it is 3 days, 0 hours, 0 minutes old.

For further assistance, please send mail to <postmaster>

If you do so, please include this problem report. You can
delete your own text from the attached returned message.

< abc@xyz.com >: this domain could be reached at this time
  

Ну, мне действительно не нужно использовать vba, подойдет любой метод. Должно быть самым простым.
Мне нужно обработать много таких недоставленных уведомлений по электронной почте, мне нужно извлечь электронное письмо внутри. И было бы хорошо, если бы мы могли экспортировать список адресов электронной почты в файл.

Ответ №1:

Я погуглил «outlook vba отскочил от электронной почты» и получил несколько многообещающих результатов: