Gruppe
Extern
Problem
Die Mails eines Outlook-Ordners sollen in einen anderen Ordner verschoben werden.
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