VBA Outlook 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