Schlagwort: VBA

Outlook – Mit VBA Macro Emails älter als 1 Tag verschieben

Sub ExtraFilter() ' Get the MAPI Outlook NameSpace Dim objNS As Outlook.NameSpace: Set objNS = GetNamespace("MAPI") ' Get the Inbox Folder Dim olFolder As Outlook.MAPIFolder Set olFolder = objNS.GetDefaultFolder(olFolderInbox) ' Get the Target Folder Dim BUILD_INFOs As Outlook.MAPIFolder Set BUILD_INFOs = objNS.Folders("meine@emailaddresse.org").Folders("BUILD_INFOs") ' Test if the Target Folder exist Debug.Print BUILD_INFOs.Items.Count Dim Item As Object …