Outlook makro

det kan nok gøres pænere

flytter valgt mail fra inbox til inbox\reklamer


Sub MoveItems()
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 objItem As Outlook.MailItem


Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("reklamer")
  For Each objItem In Application.ActiveExplorer.Selection
  If myDestFolder.DefaultItemType = olMailItem Then
      If objItem.Class = olMail Then
        objItem.Move myDestFolder
        End If
          End If
Next


End Sub

Hvad nu hvis det er en subfolder til reklamer?

du tænker Inbox\reklamer\subfolder

Sub MoveItems()
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 objItem As Outlook.MailItem


Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("reklamer").Folders("Subfolder")
  For Each objItem In Application.ActiveExplorer.Selection
  If myDestFolder.DefaultItemType = olMailItem Then
      If objItem.Class = olMail Then
        objItem.Move myDestFolder
        End If
          End If
Next


End Sub

hov Webnoob du skal lige huske at acceptere svaret og lukke spørgsmålet hvis løsningen virkede for dig

mvh

Det er rigtigt, det har jeg glemt.