Gruppe
Extern
Bereich
Outlook
Thema
Mails eines Outlook-Ordners in einen anderen verschieben
Problem
Die Mails eines Outlook-Ordners sollen in einen anderen Ordner verschoben werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub MoveMsgs()
Dim oOutlook As Object
Dim oNSpace As Object
Dim oFolderA As Object
Dim oFolderB As Object
Dim oMsg As Object
Dim iCounter As Integer, iCount As Integer
Set oOutlook = CreateObject("Outlook.Application")
Set oNSpace = oOutlook.GetNamespace("MAPI")
Set oFolderA = oNSpace.folders("Persönliche Ordner") _
.folders("Gelöschte Objekte")
Set oFolderB = oNSpace.folders("Persönliche Ordner") _
.folders("Temp")
iCount = oFolderA.Items.Count
If iCount > 0 Then
For iCounter = 1 To iCount
Set oMsg = oFolderA.Items(1)
oMsg.Move oFolderB
Next iCounter
End If
Set oNSpace = Nothing
Set oFolderA = Nothing
Set oFolderB = Nothing
Set oMsg = Nothing
Set oOutlook = Nothing
End Sub