VBA展望2010移动

Question

m.display工作但m.move(A)没有。

该文件夹存在。

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 
    Dim arr() As String 
    Dim myInbox As Outlook.Folder 
    Dim A As Outlook.Folder 
    Set myNameSpace = Application.GetNamespace("MAPI") 
    Set myInbox = 
      myNameSpace.GetDefaultFolder(olFolderInbox) 
    Set A = myInbox.Folders("A") 
    Dim i As Integer 
    Dim m As MailItem 
    On Error Resume Next 
    arr = Split(EntryIDCollection, ",") 
    For i = 0 To UBound(arr) 
    Set m = Application.Session.GetItemFromID(arr(i)) 

    If m.SenderEmailAddress = "notifications@transcore.com" Then 
     'MsgBox (m.Body) 
     m.Display 
     m.Move (A) 
    End If 

    Next 
End Sub 

Answer 1

移动是一个函数，而不是一个子。先移动消息，然后显示它：

set m = m.Move(A) 
m.Display