Change
toSet folder1 = ns.GetDefaultFolder(olFolderInbox).Parent.folders.Item("Datenbank")
Set folder1 = ns.GetDefaultFolder(olFolderInbox).Parent.folders.Item("# Datenbank")
Change
toSet folder1 = ns.GetDefaultFolder(olFolderInbox).Parent.folders.Item("Datenbank")
Set folder1 = ns.GetDefaultFolder(olFolderInbox).Parent.folders.Item("# Datenbank")
Graham Mayor - MS MVP (Word) 2002-2019
Visit my web site for more programming tips and ready made processes
http://www.gmayor.com