问题描述
通过自动化处理电子邮件后,我想将它们移动到特定的子文件夹。在我的 Outlook 会话中,我有一个主电子邮件帐户,以及多个通过 Office365 共享的电子邮件帐户。我可以将项目从共享收件箱移动到主电子邮件帐户的子文件夹没有问题,但是我尝试将电子邮件从共享收件箱移动到它自己的子文件夹的几种方法都没有运行而不会出现“无法移动项目”之类的错误或在此代码的特定情况下:'尝试的操作失败。找不到对象。'
以下代码没有问题:
Dim Recipient As Outlook.Recipient = OutlookSession.CreateRecipient("NotSharedInBox@Domain.ca")
Recipient.Resolve()
Dim DestinationFolder As Outlook.MAPIFolder = OutlookSession.GetSharedDefaultFolder(Recipient,Outlook.OlDefaultFolders.olFolderInBox).Folders("AR Payments VIA E-TRANSFER & EFT")
SelectedEmail.Move(DestinationFolder)
但是,此仅将收件人地址更改为共享帐户的代码会引发错误“尝试的操作失败。找不到对象。'
Dim Recipient As Outlook.Recipient = OutlookSession.CreateRecipient("SharedInBox@Domain.ca")
Recipient.Resolve()
Dim DestinationFolder As Outlook.MAPIFolder = OutlookSession.GetSharedDefaultFolder(Recipient,Outlook.OlDefaultFolders.olFolderInBox).Folders("AR Payments VIA E-TRANSFER & EFT")
SelectedEmail.Move(DestinationFolder)
我的问题是选择共享子文件夹的过程是什么?
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)