将电子邮件从 Outlook 子文件夹导出到 Excel

Question

我找到了一个 VBA 宏，它从 Outlook 中获取电子邮件并将它们放入 Excel 中的单元格中。该代码有效，但我只想告诉 Excel 从特定子文件夹获取电子邮件。在我的收件箱文件夹中，我有一个名为 Info 的子文件夹。我希望能够从此子文件夹中获取电子邮件。

这是我现在的代码：

Sub Download_Outlook_Mail_To_Excel()
'Add Tools->References->"Microsoft Outlook nn.n Object Library"
'nn.n varies as per our Outlook Installation
Dim folders As Outlook.folders
Dim folder As Outlook.MAPIFolder
Dim iRow As Integer
Dim Pst_Folder_Name
Dim MailboxName



'Mailbox or PST Main Folder Name (As how it is displayed in your Outlook Session)
MailboxName = "My email address"

'Mailbox Folder or PST Folder Name (As how it is displayed in your Outlook Session)
Pst_Folder_Name = "Inbox"

Set folder = Outlook.Session.folders(MailboxName).folders(Pst_Folder_Name)
If folder = "" Then
    MsgBox "Invalid Data in Input"
    GoTo end_lbl1:
End If

'Rad Through each Mail and export the details to Excel for Email Archival
Sheets(1).Activate

For iRow = 1 To folder.Items.Count
    Sheets(1).Cells(iRow, 1).Select
    Sheets(1).Cells(iRow, 1) = folder.Items.Item(iRow).SenderName
    Sheets(1).Cells(iRow, 2) = folder.Items.Item(iRow).Subject
    Sheets(1).Cells(iRow, 3) = folder.Items.Item(iRow).ReceivedTime
    Sheets(1).Cells(iRow, 4) = folder.Items.Item(iRow).Size
    Sheets(1).Cells(iRow, 5) = folder.Items.Item(iRow).SenderEmailAddress
    'Sheets(1).Cells(iRow, 6) = Folder.Items.Item(iRow).Body
Next iRow
MsgBox "Outlook Mails Extracted to Excel"

end_lbl1:

End Sub

如何确保它从子文件夹而不是主文件夹接收电子邮件？

Answer 1

尝试使用以下代码：

'Mailbox or PST Main Folder Name (As how it is displayed in your Outlook Session)
MailboxName = "My email address"

'Mailbox Folder or PST Folder Name (As how it is displayed in your Outlook Session)
Pst_Folder_Name = "Inbox"

' subfolder name
Dim subFolderName As String
subFolderName = "Info"

Set folder = Outlook.Session.folders(MailboxName).folders(Pst_Folder_Name).Folders(subFoldersName)
If folder = "" Then
   MsgBox "Invalid Data in Input"
   GoTo end_lbl1:
End If

您也可以考虑使用命名空间 class 的 GetDefaultFolder 方法来获取 Folder 对象，该对象表示当前配置文件所请求类型的默认文件夹。

将电子邮件从 Outlook 子文件夹导出到 Excel

Exporting emails from an Outlook subfolder to Excel

email

excel

outlook

vba