在我的收件箱下访问文件夹时随机错误

Question

我对Python相对较新，所以不要太粗糙地判断我:)
我有以下代码可以连接到我的收件箱，并将电子邮件移至收件箱下的另一个文件夹。 问题是我第一次打开Outlook时，它起作用。之后，它停止工作并生成错误：

追溯（最近的最新通话）： 文件“ C：\ Learn！新过程Cerberus \ OutlookCheck.py”，第72行，in Identity_new_create = common_account.folders ['inbox']。文件夹['Identity Registration']* 文件“ c：\ user \ me \ appdata \ local \ temp \ temp \ gen_py \ 3.7 \ 00062fff-0000-0000-0000-0000-0000-000000000000000000000046x0x9x6x6_folders.py”，第103行 返回自我。 -0000-C000-0000000046}'） pywintypes.com_error：（-2147352567，“发生异常”。 >

在结束并再次打开Outlook之后，程序再次起作用。 我试图删除临时文件，在此处搜索答案，但是我尝试过的工作，每次都没有效果和开放式前景并不代表解决方案，因为收件箱是用于办公室的，并且与服务器同步需要永远。 请参阅下面的代码（我已经删除了非相关变量和列表，因为它们不是原因，我已经尝试过）：

import win32com.client as client
from pathlib import Path

common_account='WorkAccount'

try:
    outlook = client.gencache.EnsureDispatch("Outlook.Application")
except:
    home = str(Path.home()) + r'\AppData\Local\Temp\gen_py'
    try:
        rem(Path(home))
    except:
        print('Could not perform a Python reset. Please delete temp files and folders yourself')
    try:
        outlook = client.gencache.EnsureDispatch("Outlook.Application")
    except:
        print('Could not link to Outlook')

namespace = outlook.GetNamespace("MAPI")
common_account = namespace.Folders[common_account]

common_inbox = common_account.Folders['Inbox'].Items
identity_new_create = common_account.Folders['Inbox'].Folders['Identity Registration']

# Everything is perfect, program run flowless on the first run.
# After the first run I get the error above.
# After closing Outlook and opening it again, program runs again without error.

email = common_inbox.GetLast()
#Some other irellevant code
email.move(identity_new_create)

以后进行编辑：

我每次我每次搜索文件夹都找到了一种绕过此错误的方法初始化Outlook，但不是一个优雅的解决方案，需要额外的处理时间和计算能力。所以问题仍在继续。

Answer 1

我已经看到了该行

common_account = namespace.Folders[common_account]

可以从您的Exchange帐户返回PF文件夹的情况，而交换帐户显然没有收件箱文件夹。如果您始终想要默认的邮箱，则可以使用namep.getDefaultFolder（olfolderinbox）而不是common_account.folders ['inbox']。

您也可以尝试尝试使用namepace.getSharedDefaultFolder（common_account，olfolderinbox）。

Answer 2

似乎以下代码在运行时会引发错误：

Identity_new_create = common_account.folders ['inbox']。文件夹['Identity Registration']

在这种情况下，我建议您在所有子文件夹上进行迭代并检查文件夹名称，因此您将找到目标文件夹并至少确保存在此类文件夹存在那里。

另外，我已经注意到了以下代码行：

common_account.Folders['Inbox'].Items

而是使用 getDefaultFolder 返回文件夹对象的方法，它表示当前配置文件的默认文件夹；例如，为当前登录的用户获取默认inbox文件夹。然后，您可以得到子文件夹。

如果您在Outlook中配置了多个帐户，则可以使用 namepace.stores 返回stores集合对象的属性，该对象表示当前配置文件中的所有Store对象。

Sub EnumerateFoldersInStores() 
 Dim colStores As Outlook.Stores
 Dim oStore As Outlook.Store 
 Dim oRoot As Outlook.Folder 
 
 On Error Resume Next 
 Set colStores = Application.Session.Stores 
 For Each oStore In colStores 
   Set oRoot = oStore.GetRootFolder 
   Debug.Print (oRoot.FolderPath) 
   EnumerateFolders oRoot 
 Next 
End Sub 
 
Private Sub EnumerateFolders(ByVal oFolder As Outlook.Folder) 
 Dim folders As Outlook.folders 
 Dim Folder As Outlook.Folder 
 Dim foldercount As Integer 
 On Error Resume Next 
 Set folders = oFolder.folders 
 foldercount = folders.Count 
 'Check if there are any folders below oFolder 
 If foldercount Then 
   For Each Folder In folders 
     Debug.Print (Folder.FolderPath) 
     EnumerateFolders Folder 
   Next 
 End If 
End Sub