vbscript将同步问题文件夹电子邮件保存到文件夹

背景：

我是几个Windows7机器的系统管理员。我们已从本地Exchange服务器切换到Office 365 Exchange Online。计算机正在使用Outlook 2013/2010连接到Exchange Online。所有客户端都使用完全缓存模式，因此每台计算机上都有一个完整的OST缓存文件

因此，Outlook的文件夹视图中现在显示以下文件夹：同步问题、然后（子文件夹）冲突、本地故障和服务器故障

我找不到远程管理或查看这些邮件的方法，因此我唯一的选择似乎是手动打开每个用户的Outlook并查看文件夹。我已尝试设置规则，将这些文件夹中出现的任何邮件转发给我，但我无法让他们处理这些文件夹中出现的新电子邮件

我想写一个脚本，将这些文件夹中的电子邮件保存到一个网络文件夹中，以便以后查看。如果可能的话，我还想让脚本在网络上所有计算机名称的输入文本文件上运行

我没有写剧本的背景或知识。到目前为止，我从网络上拼凑了以下内容：

Dim OL, NmeSpace  
Set OL = CreateObject("Outlook.Application") 
Set NmeSpace = OL.GetNamespace("MAPI") 
Set Inbx = NmeSpace.GetDefaultFolder(olFolderSyncIssues) 
Set Fldr = Application.ActiveExplorer.CurrentFolder 
DirName = "C:\Emails\" 
For Each itm In Fldr.Items 
    ' Save email as a file. 
Next

---

提前感谢您提供的任何建议。我正在学习脚本编写，但我还不具备编写所需脚本的知识。

以下是如何使用vbscript编写脚本。现在它只做oSyncFolder，因为我省略了另外两个文件夹，所以你可以自己练习写它

Dim oApp 
Dim ns 
Dim oSyncFolder
Dim oConflictFolder
Dim oSrvFailuresFolder
Dim dirName
dirName = "PathToFolder\"

Set oApp = CreateObject("Outlook.Application")
Set ns = oApp.GetNamespace("MAPI")

Set oSyncFolder = ns.GetDefaultFolder(20)'olFolderSyncIssues
Set oConflictFolder = ns.GetDefaultFolder(19)'olFolderConflicts
Set oSrvFailuresFolder = ns.GetDefaultFolder(22)'olFolderServerFailures

Dim iCounter
iCounter = oSyncFolder.Items.Count

    For iCounter = oSyncFolder.Items.Count To 0 Step -1
    Dim oItem
    Set oItem = oSyncFolder.Items.Item(iCounter)
        oItem.SaveAs dirName & "email" & CStr(iCounter) & ".msg"
        'uncomment line below to remove the item after it has been relocated.
        'oItem.Delete
    Next
Set oSyncFolder = Nothing
Set oConflictFolder = Nothing
Set oSrvFailuresFolder = Nothing
Set oApp = Nothing



msgbox "Finished"

---

这个问题看起来更适合服务器故障。非常感谢！我马上就要开始测试，并从中学习。谢谢，索切丽。最初运行时，我遇到一个关于索引/数组越界的错误，但我只是在“For iCounter…”行中将值从0更改为1，脚本完成时没有出现错误。此外，我发现本地故障文件夹的文件夹ID为21，并在变量和绑定部分添加了相应的行。