Outlook 2010 u. 2016 Ordner via VBA verschieben

Hallo zusammen,

ich möchte gerne Unterordner einer PST-Datei auf einem Netzlaufwerk in meine "Standard"E-mail-Datei (oder wie man das nennt) verschieben.
Der "Projekte" Ordner und "900-20 Bauherr - Bvh" sind Unterordner meines Exchange-Ordners. Der "900 -20 Test" ist eine vorhandene geöffnete PST-Datei.

Die Ordner "Posteingang" , "gesendete Objekte" und "Kontakte" sollen verschoben werden, dass es so aussieht:

Ich bitte um Hilfe.

Grüße aus dem Westerwald

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 599349

Url: https://administrator.de/forum/outlook-2010-u-2016-ordner-via-vba-verschieben-599349.html

Ausgedruckt am: 23.12.2024 um 11:12 Uhr

3 Kommentare

Neuester Kommentar

Ich bitte um Hilfe.

Bitte, gerne.
RTFM
https://docs.microsoft.com/de-de/office/vba/api/outlook.folder.copyto
https://docs.microsoft.com/de-de/office/vba/api/outlook.folder.moveto

Hallo,
auch wenn ich mich jetzt erst melde. Ich bekomme es nicht hin.
Bei diesem Code wird aus

folgendes:

For Each objstore In objNS.Stores

 ordner = objstore.FilePath
 SP = (strStorePath)
' If (LCase(Left(ordner, 3)) = "k:\") Or (LCase(Left(ordner, 3)) = "l:\") Then  
 If (LCase(Left(ordner, 14)) = LCase(Left(x, 14))) Then
'  OpenFolder (ordner)  
 
   Set objfolder = objstore.GetRootFolder()
   For i = 1 To objfolder.Folders.Count
     Set AOrd = objfolder.Folders(i)
     If AOrd.Name = "Posteingang" Then 'Or AOrd.Name = "gesendete Objekte" Then  

         AOrd.MoveTo ProOrd.Folders.Add("PE")  
         
     End If
   Next i

 End If
Next

Ich möchte gerne den "Zwischenordner" PE weghaben, also den Posteingang direkt unter 900-20 Bau...
Was mache ich falsch?

Grüße aus dem Westerwald

Entschuldigung,
so muss es aussehen.

Bei diesem Code wird aus

folgendes:

For Each objstore In objNS.Stores

ordner = objstore.FilePath
SP = (strStorePath)
' If (LCase(Left(ordner, 3)) = "k:\") Or (LCase(Left(ordner, 3)) = "l:\") Then  
If (LCase(Left(ordner, 14)) = LCase(Left(x, 14))) Then
' OpenFolder (ordner)  

Set objfolder = objstore.GetRootFolder()
For i = 1 To objfolder.Folders.Count
Set AOrd = objfolder.Folders(i)
If AOrd.Name = "Posteingang" Then 'Or AOrd.Name = "gesendete Objekte" Then  

AOrd.MoveTo ProOrd.Folders.Add("PE")  

End If
Next i

End If
Next