有没有什么办法通过Excel VBA提取Outlook的邮件信息（.pst文件）

qisile

请教，有没有办法通过Excel 的VBA提取到Outlook里面的邮件信息：标题、发件人、收件人、内容 等。
网上搜了很多相关outlook的代码，都是针对默认账户的，如果是另一个账户的，就不行了。如下图



默认账户是P.ost文件，但是实际上我想要导出的是Po.pst里面的邮件信息。

1. Dim nmsName As Outlook.Namespace
   
2. Dim inFolder As Outlook.MAPIFolder
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Set nmsName = Outlook.Application.GetNamespace("MAPI")
   
5. Set inFolder = nmsName.GetDefaultFolder(Outlook.olFolderSentMail)

复制代码

请问要如何修改上述的代码，使得我可以提取Po.pst里面（Inbox底下有很多子目录）的所有邮件信息呢。
还望大神指点，多谢。

约定的童话

参考下吧，问别人要的