根據excel中的數據更改電子郵件的類別標記

Question

因此，我基本上想循環收件箱中的每封電子郵件，直到A列中的主題行與電子郵件的主題行相匹配。當它找到一個匹配項時，它將沿着C列中的同一行查找，並根據此處找到的內容（YES，NO或MULTIPLE），電子郵件的類別將發生變化。

在宏運行之前，每封郵件都被標記爲「ATLG」。

下面的代碼是非常多的工作正在進行中，但我不知道從哪裏去。有什麼建議麼？

Dim mail As Outlook.MailItem 
Dim fld As Outlook.MAPIFolder 

For Each mail In fld.Items 
With mail 
If mail.Subject = Sheets("Mail Report").Range("A65000").End(xlUp).Value Then 
If Sheets("Mail Report").Range("C65000").End(xlUp).Value = "YES" Then 
mail.Category = "ATLG" 
If Sheets("Mail Report").Range("C65000").End(xlUp).Value = "NO" Then 
mail.Category = "MAN" 
If Sheets("Mail Report").Range("C65000").End(xlUp).Value = "MULTIPLE" Then 
mail.Category = "MULT" 
Next mail 

Answer 1

這是你想什麼呢？ （未經測試）

Dim mail As Outlook.MailItem 
Dim fld As Outlook.MAPIFolder 
Dim ws As Worksheet 


Set ws = Sheets("Mail Report") 

Set fld = GetObject("", "Outlook.Application") _ 
.GetNamespace("MAPI").Session.PickFolder 
If fld Is Nothing Then 
    MsgBox "No Inbox selected" 
    Exit Sub 
End If 

'~~> Find last row in Col A 
lRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row 

For Each mail In fld.Items 
    With mail 
     '~~> Loop through values of Col A 
     For i = 2 To lRow 
      '~~> Match subject 
      If mail.Subject = ws.Range("A" & i).Value Then 
       Select Case UCase(ws.Range("B" & i).Value) 
        Case "YES": mail.Categories = "ATLG" 
        mail.Save 
        Case "NO": mail.Categories = "MAN" 
        mail.Save 
        Case "MULTIPLE": mail.Categories = "MULT" 
        mail.Save 
       End Select 

       Exit For 
      End If 
     Next i 
    End With 
Next mail 

我終於得到了上面的代碼工作。這很簡單，因爲在每個Case行下面使用mail.Save。