VBA에 액세스 : 사용자 지정 폴더에서 다른 폴더로 전자 메일을 이동하는 방법

Question

Outlook으로 이동하여 "AlarmsExportAccess"라는받은 편지함 하위 폴더에서 "Event_Archive"라는 다른받은 편지함 하위 폴더로 전자 메일을 이동해야합니다. 원하는 결과를 얻으려면 폴더를 가리키는 방법을 모르겠습니다. 누군가 나를 위해 이것에 대해 밝혀 줄 수 있습니까?

감사합니다.

Answer 1

원하는대로 할 수 있습니다.

Option Compare Database 

Private Sub Command0_Click() 


Dim myNameSpace As Outlook.NameSpace 
Dim myInbox As Outlook.Folder 
Dim myDestFolder As Outlook.Folder 
Dim myItems As Outlook.Items 
Dim myItem As Object 
Dim ol As Outlook.Application 
Dim olns As Outlook.NameSpace 

' Set the Application object. 
Set ol = New Outlook.Application 

' Set the Namespace object. 
Set olns = ol.GetNamespace("MAPI") 

Set myInbox = olns.GetDefaultFolder(olFolderInbox) 
Set myItems = myInbox.Items 
Set myDestFolder = myInbox.Folders("OverHere") 


For Each myItem In myItems 
    If myItem.Class = olMail Then 
     If InStr(1, myItem.Subject, "Happy Birthday") > 0 Then 
      'Debug.Print "Found" 
      'Found = True 
      myItem.Move myDestFolder 
     End If 
    End If 
Next myItem 

While TypeName(myItem) <> "Nothing" 

Set myItem = myItems.FindNext 
Wend 
End Sub