Answers:
首先,删除 fastmail的“垃圾邮件”文件夹(如果当前存在)。然后使用以下说明:
安装协作数据对象。(请注意,它不会直接安装-您下载的文件只会解压缩真正的安装程序。令人讨厌。)
在Outlook中,打开Visual Basic编辑器:要么Alt+ F11,或工具 - 宏 - Visual Basic编辑器
在VB窗口中,转到工具 - 参考,然后CDO 1.2.1
在列表中启用。
在左侧的树中,打开Project1 - Microsoft Office Outlook - ThisOutlookSession,然后将此脚本(原始源)粘贴到打开的窗口中:
Sub CDORenameFolder()
Dim outlookApp As Outlook.Application
Dim cdoSession As MAPI.Session
Dim folder As Outlook.MAPIFolder
Dim cdoFolder As MAPI.folder
Dim newName As String
Set outlookApp = New Outlook.Application
Set cdoSession = New MAPI.Session
cdoSession.Logon ShowDialog:=False, NewSession:=False
Set folder = outlookApp.Session.PickFolder()
Set cdoFolder = cdoSession.GetFolder(folder.EntryID, folder.StoreID)
newName = InputBox("Rename '" + cdoFolder.Name + "' to:", "Rename folder", cdoFolder.Name)
If newName <> "" Then
cdoFolder.Name = newName
cdoFolder.Update
End If
cdoSession.Logoff
Set cdoSession = Nothing
Set outlookApp = Nothing
End Sub
按F5(或运行 - 运行Sub),然后运行ThisOutlookSession.CDORenameFolder
宏。将会弹出一个文件夹选择窗口。在您的IMAP帐户下,选择“垃圾邮件”文件夹(由Outlook创建的文件夹),然后单击“确定”。
(如果收到“未定义用户定义的类型”,则您忘记安装和/或激活CDO。)
是的,这就是为什么我现在讨厌Outlook。