如何按主題使用VBA代碼將Outlook中的電子郵件傳輸到特定文件夾？

Question

我在Excel中有2列。 第一列是電子郵件的主題，第二列是具有特定主題的電子郵件必須移動到的文件夾。 例如兩列：

Subject Folder
 A        1
 B        2
 C        3

因此，當我收到主題為“A”的電子郵件時，它必須移動到文件夾1.所以我的問題是如何制作代碼以在Excel工作表中搜索郵件必須移動到哪個文件夾（我只需要這個部分代碼）。

我無法在互聯網上了解任何事情。

Answer 1

請參閱有關如何將每封電子郵件從收件箱移動到子文件夾的示例

現在循環遍歷2列，請參見下面的示例

Dim ItemSubject As String
Dim SubFldr As String

i = 2 '  i = Row 2

With Worksheets("Sheet1") ' Sheet Name
   Do Until IsEmpty(.Cells(i, 1))

   ItemSubject = .Cells(i, 1).Value '(i, 1) = (Row2,Column1) = A2 Value = Subject
   SubFldr = .Cells(i, 2).Value '(i, 2) = (Row 2, Column 2) = B2 Value = FolderName

        '// Loop through Inbox Items backwards
        For lngCount = Items.Count To 1 Step -1
            Set Item = Items.Item(lngCount)

                If Item.Subject = ItemSubject Then ' if Subject found then
                    Set SubFolder = Inbox.Folders(SubFldr) ' Set SubFolder
                    Item.Move SubFolder ' Move to SubFldr
                End If

            End If
        Next ' exit loop

        i = i + 1 '  = Row 2 + 1 = Row 3
   Loop ' now loop on Row 3
End With