Экспорт электронной почты из папок Outlook в Excel. Проблема с кодированием

Я работаю над следующим кодом, и я пытаюсь заставить его добавлять электронные письма из двух разных папок в Outlook, но я, очевидно, ничего не вижу, потому что это не сработает. Что происходит, когда я запускаю код, он извлекает все электронные письма из папки «PolicyCenter», но не в папку «Apex». Я не уверен, что я делаю неправильно, и любая помощь или совет будут очень признательны!

Option Explicit Sub VBA_Export_Outlook_Emails_To_Excel() Dim Folder As Outlook.MAPIFolder Dim sFolders As Outlook.MAPIFolder Dim iRow As Integer, oRow As Integer Dim MailBoxName As String, Pst_Folder_Name As String MailBoxName = "Mailbox, PL-SYSTEM-OUTAGES" Pst_Folder_Name = "Apex" Pst_Folder_Name = "PolicyCenter" For Each Folder In Outlook.Session.Folders(MailBoxName).Folders If VBA.UCase(Folder.Name) = VBA.UCase(Pst_Folder_Name) Then GoTo Label_Folder_Found For Each sFolders In Folder.Folders If VBA.UCase(sFolders.Name) = VBA.UCase(Pst_Folder_Name) Then Set Folder = sFolders GoTo Label_Folder_Found End If Next sFolders Next Folder Label_Folder_Found: If Folder.Name = "" Then MsgBox "Invalid Data in Input" GoTo End_Lbl1: End If ThisWorkbook.Sheets(1).Activate Folder.Items.Sort "Received" ThisWorkbook.Sheets(1).Cells(1, 1) = "Sender" ThisWorkbook.Sheets(1).Cells(1, 2) = "Subject" ThisWorkbook.Sheets(1).Cells(1, 3) = "Date" ThisWorkbook.Sheets(1).Cells(1, 4) = "Size" 'ThisWorkbook.Sheets(1).Cells(1, 5) = "EmailID" 'ThisWorkbook.Sheets(1).Cells(1, 6) = "Body" oRow = 1 For iRow = 1 To Folder.Items.Count If VBA.DateValue(VBA.Now) - VBA.DateValue(Folder.Items.Item(iRow).ReceivedTime) <= 60 Then oRow = oRow + 1 ThisWorkbook.Sheets(1).Cells(oRow, 1).Select ThisWorkbook.Sheets(1).Cells(oRow, 1) = Folder.Items.Item(iRow).SenderName ThisWorkbook.Sheets(1).Cells(oRow, 2) = Folder.Items.Item(iRow).Subject ThisWorkbook.Sheets(1).Cells(oRow, 3) = Folder.Items.Item(iRow).ReceivedTime ThisWorkbook.Sheets(1).Cells(oRow, 4) = Folder.Items.Item(iRow).Size 'ThisWorkbook.Sheets(1).Cells(oRow, 5) = Folder.Items.Item(iRow).SenderEmailAddress 'ThisWorkbook.Sheets(1).Cells(oRow, 6) = Folder.Items.Item(iRow).Body End If Next iRow MsgBox "Outlook Mails Extracted to Excel" Set Folder = Nothing Set sFolders = Nothing End_Lbl1: End Sub 

Благодаря!! -D

будет ли это «новое имя папки» между двумя следующими операторами?

 Next sFolders Pst_Folder_Name = "PolicyCenter" Next Folder 

Это показало, что я имел в виду …

  • Текстовое поле подсказки, которое будет сохранять форматирование Outlook
  • Отправка с дополнительной учетной записи электронной почты в Outlook
  • Захват графов (объектов) в пределах выделения
  • Копировать диапазон ячеек в почтовый адрес
  • Каждая строка отправляет электронное письмо тому же получателю
  • Слияние с полем группового ключа из баз данных Excel или SQL
  • Excel Macro для создания электронных писем работает только при открытии IDE
  • Как я могу создавать электронные письма только для уникальных адресов из столбца в excel?
  • Как сохранить исходный формат ячейки в макросе Excel?
  • Отправка электронной почты от Excel с помощью VBA - Outlook, добавляющий цвет фона
  • PHP создает электронную таблицу Excel, а затем посылает ее по электронной почте в виде вложения
  • Interesting Posts

    EXCEL VBA Используйте msgbox для отображения элементов в combobox

    Excel VBA: изменение события нажатия кнопки на событие изменения значения ячейки

    VBA, чтобы найти строку в ячейке и скопировать в другую ячейку

    Чтение данных Excel в селене с помощью testNG

    Изменение значения ячейки через VBA не запускает макрос, связанный с ячейкой

    Excel Macro: заменить формулы и сохранить лист как собственный файл без изменения оригинала документа

    Свяжите ячейку с несколькими файлами excel и измените данные на основе списка дат

    Функция поиска, значение базовой даты

    Заполнить ячейки на основе другой таблицы

    Как иметь диапазон абсолютных значений (не относительных), $ не работает

    Как исправить порядок в Microsoft Excel?

    VSTO Запуск EXCEL в коде ADDIN NOT LOADED

    Несколько результатов по критериям в одной ячейке

    Формула частотной матрицы EXCEL не вычисляет

    Обнаружение первых и последних видимых точек в диаграмме Excel, превышающей окно Excel

    Давайте будем гением компьютера.