Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Extern und Outlook