Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mails eines Outlook-Ordners in einen anderen verschieben

Gruppe

Outlook

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