Hi All,
i have a shared mailbox in which i am running the below script to move the incoming messages to subfolder in round robin style.can we achive this using microsoft flow ? or any other way to automate it in background,
thanks ,
Dim i As Long
Private WithEvents olInboxItems As Items
Private Sub Application_Startup()
Dim objNS As NameSpace
Set objNS = Application.Session
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
Set objNS = Nothing
End Sub
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
Dim objDestFolder As Outlook.MAPIFolder
Dim moveFolder As String
If Item.Class = olMail Then
Select Case i
Case 0
moveFolder = "Folder01"
Case 1
moveFolder = "Folder02"
Case 2
moveFolder = "Folder03"
Case 3
moveFolder = "Folder04"
Case 4
moveFolder = "Folder05"
End Select
Set objDestFolder = Session.GetDefaultFolder(olFolderInbox).Folders(moveFolder)
Item.move objDestFolder
End If
Err.Clear
i = i + 1
Debug.Print i
If i = 5 Then i = 0
Set objDestFolder = Nothing
End Sub