Перенести письма Outlook из одной папки в другую с помощью VB.NET


0

Кто-нибудь знает, как переместить набор электронных писем из одной папки Outlook в другую на основе функции som qualifying (т. Е. Не всех электронных писем)? У меня есть следующий код, который работает нормально для первого квалификационного письма, но не второго или третьего ... Dim objOL As Outlook.Application = Новый Outlook.Application
Dim objNS As Outlook.NameSpace = objOL.GetNamespace (" MAPI ")
olSourceFolder = objNS.Folders (MailboxIndex) .Folders (3) '(3 в качестве примера)
Dim myItems As 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 не будет правильно назначено в следующий раз Я предполагаю, что я действительно не знаю, как я должен выполнять итерацию через ema ils ?? Спасибо.

0

Используйте вниз "для" петли

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