Item.Move 在前景中没有 "Moving"

Question

我有下面的 VBA，效果很好。

Private Sub Application_Startup()
Set MySents = Session.GetDefaultFolder(olFolderSentMail).Items
End Sub


Private Sub MySents_ItemAdd(ByVal Item As Object)
Dim objNS As Outlook.NameSpace
Dim targetFolder As Outlook.MAPIFolder

Set objNS = Outlook.GetNamespace("MAPI")

Select Case Item.SenderName
    Case "Sender1"
        Set targetFolder = objNS.Folders("Folder1").Folders("Sent Items")
    Case "Sender2"
      Set targetFolder = objNS.Folders("Folder2").Folders("Sent Items")
End Select

Item.Move targetFolder

End Sub

但是，如果我只将最后一行更改为

Item.Copy targetFolder

我得到一个 "Error 450: Wrong number of arguments or invalid property assignment." 任何人都可以阐明我做错了什么吗？

谢谢

Answer 1

MailItem.Copy 不接受任何参数。 returns 给定消息的副本是一个函数。然后您可以将它移动到任何文件夹

set NewItem = Item.Copy 
NewItem.Move targetFolder

Item.Move 在前景中没有 "Moving"

Item.Move in outlook not "Moving"

outlook

vba

copy