Question

有没有人知道如何根据som限定功能（即不是所有电子邮件）将一组电子邮件从一个Outlook文件夹移动到另一个文件夹？我有以下代码适用于第一个符合条件的电子邮件，但不适用于第二个或第三个...     Dim objOL As Outlook.Application = New Outlook.Application
    Dim objNS As Outlook.NameSpace = objOL.GetNamespace（“MAPI”）
    olSourceFolder = objNS.Folders（MailboxIndex）.Folders（3）'（3作为例子）

    Dim myItems作为Outlook.Items = olSourceFolder.Items

Dim i As Integer = 1  
Dim M As Outlook.MailItem  

Do While i <= myItems.Count  
  M = myItems(i)  
  If qualifyingFunction(M)  
    M.Move(olDestinationFolder)  
  Else 
    i = i + 1  
  End If 
Loop

“移动”后，下一次M将无法正确分配我猜我真的不知道如何迭代电子邮件？感谢。

Answer 1

使用向下“for”循环

for i = myItems.Count to 1 step -1
  M = myItems(i)  
  If qualifyingFunction(M)  
    M.Move(olDestinationFolder)   
  End If 
Loop

使用VB.NET将Outlook电子邮件从一个文件夹移动到另一个文件夹

1 个答案: