Mover emails da caixa de entrada para uma determinada pasta

Moderador: Avelino Sampaio

Alexan
Mensagens: 20
Registrado em: 08 Jun 2015, 16:26

Mover emails da caixa de entrada para uma determinada pasta

Mensagempor Alexan » 16 Mai 2017, 19:46

Pessoal, é o seguinte:

Meu office é 2010 e estou precisando mover os arquivos que estão na caixa de entrada (do outlook) para uma pasta "teste" que criei.

Consegui achar na Net o código abaixo:

Public Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object

Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("teste")
Set myItem = myItems.Find("[SenderName] = 'ENDEREÇODEEMAIL@XXXX.COM.BR'") ' Criterio pelo Remetente

While TypeName(myItem) <> "Nothing"

myItem.Move myDestFolder

Set myItem = myItems.FindNext

Wend
Set myItem = Nothing
Set myDestFolder = Nothing
Set myItems = Nothing
Set myInbox = Nothing
Set myNameSpace = Nothing


End Sub

Só que está dando erro na linha: Set myDestFolder = myInbox.Folders("teste"), dele diz que o objeto não existe, porém eu criei essa pasta.
Já fechei e abri o outlook...mais nada. Alguém pode me ajudar?

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Voltar para “Access x Outlook”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante