这是我完成这项任务的代码。该问题与Windows中的无效字符有关。我可以在文件上很好地替换它们,但在文件夹中似乎不起作用。
Dim xFSO As Scripting.FileSystemObject
Sub CopyOutlookFldStructureToWinExplorer()
ExportAction "Copy"
End Sub
Sub ExportAction(xAction As String)
Dim xFolder As Outlook.Folder
Dim xFldPath As String
xFldPath = SelectAFolder()