VBA : 메일을 정크 메일에서받은 편지함으로 이동

Question

모든 정크 메일을 VBA 코드로받은 편지함으로 이동하려고합니다. 불행하게도 나는이 온라인 상에 '424 개체에 필요한'오류 :

Item.Move (olFLD) 

내가 다른 폴더로받은 편지함에서 메일을 이동하려고하지만 난 이동하려고 할 때 주변에 다른 방식으로 작동하지 않을 때 코드가 작동 정크 메일을받은 편지함으로 보낸 메일

Dim OlNS As Outlook.NameSpace 
Dim olFLD As Outlook.Folder 
Dim olJunk As Outlook.Folder 

Sub Junk() 

Set OlNS = Outlook.GetNamespace("MAPI") 
Set olFLD = OlNS.GetDefaultFolder(olFolderInbox) 
Set olJunk = OlNS.GetDefaultFolder(olFolderJunk) 

While olJunk.Items.Count <> 0 

For Each Item In olJunk.Items 

Item.Move (olFLD) 

Next 

Wend 

End Sub 

누구든지 내 문제에 대한 답변을 제공합니까?

미리 감사드립니다.

Answer 1

괄호는 VBA에서 이상한입니다. 반환 값을 기대하지 않는 객체에서 함수를 호출하면 괄호를 벗어날 수 있습니다.

Item.Move olFLD 

또는 괄호를 사용하지 않을 때 때, 당신이 기능을 서문을 수에 혼란을 피하기 위해 Call

Call Item.Move(olFLD) 

더 읽기 :이 참이었다 귀하의 회신 What are the rules governing usage of brackets in VBA function calls?

Answer 2

시도 소스

Item.Move olFLD 

()없이 :

https://msdn.microsoft.com/en-us/vba/outlook-vba/articles/mailitem-move-method-outlook