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