根据 Excel 中的数据集使用 VBA 将 Outlook 文件夹中的电子邮件移动到子文件夹

Question

我发现了一个与我在这里类似的问题来解决这个问题；

How can I move Mails Items from Outlook Inbox with specific subject to specific folder/sub folder?

第一个模块- 此代码的第一部分 - 我已成功将所有电子邮件数据导出到电子表格。

第二个模块- 我想指示 Excel VBA 根据我在电子表格中输入的数据集将主文件夹中的电子邮件移动到子文件夹（它不会基于电子邮件本身的过滤器/标准，只是其独特的主题标题）。

在 (c) 列中，是电子邮件的主题（所有主题标题都是特定的/唯一的），在 (h) 列中，我已经详细说明了我想要的子文件夹的名称也动了。不幸的是，我在执行我创建的代码时出错了。

我是 Excel VBA 的初学者，没有最好的理解。我根据不同的来源对我的代码有所了解，如果不正确请告诉我，我们将不胜感激

谢谢。

• 我尝试执行我在用户提出的问题中找到的与我类似的代码，但它没有工作

Sub MovingEmails_Invoices()

  'Declare your Variables
    Dim items As Outlook.items
    Dim subfolder As Outlook.Folder 'this will be the folder you want to move the Mail to

    'Set Outlook Inbox Reference
    Set OP = New Outlook.Application
    Set NS = OP.GetNamespace("MAPI")
    Set Mail = OP.CreateItem(olMailItem)

    'To loop through subfolder and its folders
    Set rootfol = NS.Folders("SYNTHES-JNJCZ-GBS.DE.AT.CH@ITS.JNJ.com")
    Set Folder = rootfol.Folders("Austria")


'The list for invoice number should be dynamic
Dim arraysearch(1 To 1000) As String
Dim i As Long
i = UBound(arraysearch)
arraysearch(i) = Range("C2").offset(i, 0).Value
If i = 0 Then
MsgBox "error"
Exit Sub
End If


'The list for folder type should be dynamic
Dim arraymove(1 To 1000) As String
i = UBound(arraymove)
arraymove(i) = Range("H2").offset(i, 0).Value
If i = 0 Then
MsgBox "error"
Exit Sub
End If

'specific folders for the mail to move to
Set subfolder = rootfol.Folders(arraymove(i))


For Each Mail In Folder.items.Restrict("[Subject] >= arraysearch(i)")

   If arraysearch(i) = arraymove(i) Then

   item.Move subfolder

   End If

   Next Mail

End Sub

Answer 1

在代码中，您将遍历文件夹中的所有项目：

  'Loop through the Items in the folder backwards
     'Setting Mail to counting backwards
    For lngCount = items.Count To 1 Step -1
    'setting object as Email item
        Set item = items.item(lngCount)

这确实不是一个好主意。特别是如果您以后使用Find 方法。

如果您需要查找符合您的条件的项目，我建议您使用 Items 类的 Find/FindNext 或 Restrict 方法。在以下文章中详细了解这些方法：

• How To: Use Find and FindNext methods to retrieve Outlook mail items from a folder (C#, VB.NET)
• How To: Use Restrict method to retrieve Outlook mail items from a folder

另外，您可能会发现 Application 类的 AdvancedSearch 方法很有帮助。在 Outlook 中使用 AdvancedSearch 方法的主要好处是：

• 搜索在另一个线程中执行。您无需手动运行另一个线程，因为 AdvancedSearch 方法会在后台自动运行它。
• 可以在任何位置（即超出某个文件夹的范围）搜索任何项目类型：邮件、约会、日历、便笺等。 Restrict 和 Find/FindNext 方法可以应用于特定的 Items 集合（请参阅 Outlook 中 Folder 类的 Items 属性）。
• 完全支持 DASL 查询（自定义属性也可用于搜索）。您可以在 MSDN 中的 Filtering 文章中阅读有关此内容的更多信息。为了提高搜索性能，如果为商店启用了即时搜索，则可以使用即时搜索关键字（请参阅Store 类的IsInstantSearchEnabled 属性）。
• 您可以随时使用Search 类的Stop 方法停止搜索过程。

Answer 2

无需尝试查找该项目。

它已经被Set item = items.item(lngCount)标识了。

您可以检查主题，看看它是否是您想要的项目。

'Find Email using Subject found on Column C
'Set item = items.Find(FilterText)

'If the object is an Email
If item.Class = olMail Then

    If item.Subject = FilterText Then 

        'Find item under the main Folder subfolders
        Set subfolder = Folder.Folders(FolderMove)

        'Mark Item as Read
        item.UnRead = False

        'Move Item to folder type in Outlook
        item.Move subfolder
    End If

End If