从Outlook中的特定文件夹导入电子邮件

作者: 清月
发布时间: 2025-03-19 03:33:22 (19天前)
转自：

4 条回复

0#
回复此人
记忆只剩空城 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 与...合作 <EM> <a href =“https://msdn.microsoft.com/en-us/library/office/aa220116%28v=office.11%29.aspx?f=255&MSPPError=-2147217396”rel =“nofollow noreferrer” > GetSharedDefaultFolder方法 </A> </EM> 为一个或多个默认文件夹访问另一个用户。 </p> <P> 这里的示例是共享收件箱 </p> <pre> <code> Dim olApp As Outlook.Application Dim olNs As Outlook.Namespace Dim olFolder As Outlook.MAPIFolder Dim olRecip As Outlook.Recipient Set olApp = Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set olRecip = olNs.CreateRecipient("0m3r@EmailAddress.com") Set olFolder = olNs.GetSharedDefaultFolder(olRecip, olFolderInbox) Or Set olFolder = olNs.GetSharedDefaultFolder(olRecip, olFolderInbox).Folders("SubfolderName") </code> </pre> <HR /> <BLOCKQUOTE> <P> <子> <EM> <a href =“https://msdn.microsoft.com/en-us/library/office/aa220116%28v=office.11%29.aspx?f=255&MSPPError=-2147217396”rel =“nofollow noreferrer” > GetSharedDefaultFolder方法 </A> 返回一个 <code> MAPIFolder </code> 表示指定用户的指定默认文件夹的对象。此方法用于委派方案，其中一个用户已为一个或多个默认文件夹（例如，其共享的日历文件夹）委派了对另一个用户的访问权限。 </EM> </子> </p> </BLOCKQUOTE> </DIV>

编辑
1#
回复此人
一腔诗意喂了狗 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 如果文件夹应该是收件箱，您可以在下面使用 </p> <pre> <code> Set olFolder = olNS.GetDefaultFolder(olFolderInbox) </code> </pre> <P> 或者对于子文件夹 </p> <pre> <code> Set olFolder = olNS.GetDefaultFolder(olFolderInbox).Folders("mysubfolder") </code> </pre> </DIV>

编辑
2#
回复此人
！啊啊 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 谢谢Erdem </p> <pre> <code> Sub ShareMail() Dim olNamespace As Outlook.Namespace Dim olApp As Outlook.Application Dim olNs As Outlook.Namespace Dim olFolder As Outlook.MAPIFolder Dim olRecip As Outlook.Recipient Set olApp = Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set olRecip = olNs.CreateRecipient("mail@mail.com") Set olFolder = olNs.GetSharedDefaultFolder(olRecip, olFolderInbox).Folders("myfolder") Call ProcessFolder(olFolder) Set olApp = Nothing Set olNs = Nothing Set olRecip = Nothing Set olFolder = Nothing End Sub </code> </pre> </DIV>

编辑

登录后才能参与评论