donky2000
Goto Top

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.
ol

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

Ich bitte um Hilfe.

Grüße aus dem Westerwald

Content-Key: 599349

Url: https://administrator.de/contentid/599349

Printed on: April 19, 2024 at 09:04 o'clock

Mitglied: 145033
145033 Aug 27, 2020 updated at 06:13:10 (UTC)
Goto Top
Member: donky2000
donky2000 Sep 03, 2020, updated at Apr 21, 2022 at 13:58:44 (UTC)
Goto Top
Hallo,
auch wenn ich mich jetzt erst melde. Ich bekomme es nicht hin.
Bei diesem Code wird aus

p1

folgendes:

p2

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
Member: donky2000
donky2000 Sep 03, 2020, updated at Apr 21, 2022 at 13:59:03 (UTC)
Goto Top
Entschuldigung,
so muss es aussehen.

Bei diesem Code wird aus

p1
folgendes:

p2

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