Bom dia Amigos,
Estou utilizando o modulo abaixo para mover mensagens de
uma pasta do Outlook para outra.
Se tiver uma ou duas mensagens ele funciona, mas se tiver
mais de 5 mensagens, ele não move todas.
Alguem pode me ajudar?
Sds,
Estou utilizando o modulo abaixo para mover mensagens de
uma pasta do Outlook para outra.
- Código:
Public Sub Move_Pasta()
Dim objApp As Outlook.Application
Dim olNamespace As Outlook.NameSpace
Dim objDestino As Outlook.MAPIFolder
Dim objItem As Outlook.MailItem
Set objApp = New Outlook.Application
Set olNamespace = objApp.GetNamespace("MAPI")
For Each objItem In olNamespace.Folders("Pastas Particulares").Folders("Caixa de Entrada").Folders("PastaTeste").Items 'Pasta de Origem
If objItem.Class = olMail Then
Set objDestino = olNamespace.Folders("Pastas Particulares").Folders("Caixa de Entrada").Folders("PastaDestino") ' Pasta Destino
objItem.Move objDestino
End If
Next
Set objItem = Nothing
Set olNamespace = Nothing
Set objApp = Nothing
End Sub
Se tiver uma ou duas mensagens ele funciona, mas se tiver
mais de 5 mensagens, ele não move todas.
Alguem pode me ajudar?
Sds,