选择特定文件夹中的所有项目并将其移动到另一个文件夹

jshapy8

如何在共享帐户（不是我的个人帐户）的Deleted Items文件夹中选择所有邮件，然后将它们移到另一个文件夹，称为“ Deleted Items”。现在，我们将目标文件夹称为“旧电子邮件”。

到目前为止，这是我写的内容：

'Macro for pseudo-archiving
Sub PseudoArchive()
On Error Resume Next

Dim objNamespace As Outlook.NameSpace
Dim sourceFolder As Outlook.MAPIFolder
Dim Messages As Selection
Dim Msg As MailItem

Set objNamespace = GetNamespace("MAPI")
Set sourceFolder = objNamespace.Folders("[email protected]")
Set sourceFolder = objFolder.Folders("Deleted Items")

'Define path to the target folder
Set destinationFolder = ns.Folders("[email protected]").Folders("Old Emails")

'Move emails in sourceFolder to destinationFolder
For Each Msg In sourceFolder
    Msg.Move destinationFolder
Next

Set objNamespace = Nothing
Set sourceFolder = Nothing
Set Messages = Nothing
Set Msg = Nothing

End Sub

我对如何获取宏来选择中的所有项目sourceFolder感到困惑，因此可以将其移至destinationFolder。我不希望在运行宏之前不手动选择文件夹中的电子邮件。

如果有人可以提供帮助，将不胜感激。谢谢！

安德鲁·韦恩

SO不是代码编写服务，但是下面的代码片段应该会有所帮助。

Dim olApp As Outlook.Application
Dim olFol As Outlook.Folder, olDestFol As Outlook.Folder
Dim olItem As Object
Dim i as Long, j as Long
Set olApp = New Outlook.Application olApp.GetNamespace("MAPI").Folders("mailboxnamehere").Folders("Deleted Items")
Set olDestFol = olApp.GetNamespace("MAPI").Folders("mailboxnamehere").Folders("Inbox").Folders("Deleted Items") ' Destination Folder
Do Until olFol.Items.Count = 0
    olFol.Items(1).Move olDestFolder
Loop

如果您对此有任何疑问，请在评论中让我知道。

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。