[Mittelfranke]

Ich habe folgendes Problem.
Ich müsste per VBA die jeweils markierte E-Mail/s aus dem Posteingang in einen Outlook-Ordner, z.B. "Druck" verschieben oder kopieren.

[dastriebel]

Folgender Code, solte dein Problem lösen

Option Explicit

Public Sub MarkierteMailsVerschieben()

	Dim oulAnwendung As Outlook.Application
	Dim oulNamensraum As Outlook.NameSpace
	Dim oulOrdnerZiel As Outlook.MAPIFolder
	Dim oulAusgewählte As Outlook.Selection
	Dim intZähler As Integer
	
	Set oulAnwendung = CreateObject("Outlook.Application")
	Set oulNamensraum = oulAnwendung.GetNamespace("MAPI")
	Set oulOrdnerZiel = oulNamensraum.GetDefaultFolder(olFolderInbox)
	Set oulOrdnerZiel = oulOrdnerZiel.Folders("Druck")
	
	Set oulAusgewählte = oulAnwendung.ActiveExplorer.Selection
	
	For intZähler = 1 To oulAusgewählte.Count
		oulAusgewählte.Item(intZähler).Move oulOrdnerZiel
	Next intZähler
	
End Sub

der Ordner 'Druck' muss innerhalb des Posteinganges liegen

[Mittelfranke]

Funktioniert prima!

Vielen DanK