根据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。