Auswahl-Dialog für Postfach in Outlook

Sub MailsImportieren() Dim objOutlook As Object Dim objnSpace As Object Dim objFolder As Object Dim objMsg As Object Dim intCounter As Integer, intCount As Integer, iRow As Integer Dim sTxt As String Dim Text As String Text = "Einkaufswagen" Set objOutlook = CreateObject("Outlook.Application") Set objnSpace = objOutlook.GetNamespace("MAPI") Set objFolder = objnSpace.Folders("Postfach").Folders("Posteingang").Folders("Bestellungen") intCount = objFolder.Items.Count End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
teste mal diesen Code, Ordner sollte in Tabelle1 ab A1 aufgelistet werden.
Kannst du dir für deine Bedürfnisse umbauen.
Wichtig:
Benötigt den Verweis auf Microsoft Outlook Object Library
Modul Modul1

Option Explicit 
'Benötigt den Verweis auf Microsoft Outlook Object Library 
Sub MailOrdner() 
 
 Dim objOutlook As Outlook.Application 
   Dim objnSpace As Namespace 
   Dim objFolder As MAPIFolder 
   Dim objFolder2 As MAPIFolder 
   Dim objFolder3 As MAPIFolder 
   Dim A As Long, b As Long, c As Long, Zahler As Long 
   Set objOutlook = New Outlook.Application 
   Set objnSpace = objOutlook.GetNamespace("MAPI") 
   Set objFolder = objnSpace.Folders("Postfach") 
 
'1. Ordnerebene 
For A = 1 To objFolder.Folders.Count 
 Zahler = Zahler + 1 
 Cells(Zahler, 1) = objFolder.Folders(A).Name 
  
'2. Ordnerebene 
 Set objFolder2 = objFolder.Folders(objFolder.Folders(A).Name) 
 For b = 1 To objFolder2.Folders.Count 
  Zahler = Zahler + 1 
  Cells(Zahler, 1) = objFolder2.Folders(b).Name 
 
'3. Ordnerebene 
 Set objFolder3 = objFolder2.Folders(objFolder2.Folders(b).Name) 
 For c = 1 To objFolder3.Folders.Count 
  Zahler = Zahler + 1 
  Cells(Zahler, 1) = objFolder3.Folders(c).Name 
 Next c 
   
 Next b 
 
Next A 
 
   Set objOutlook = Nothing 
   Set objnSpace = Nothing 
   Set objFolder = Nothing 
   Set objFolder2 = Nothing 
   Set objFolder3 = Nothing 
End Sub

Gruß Tino

www.VBA-Excel.de

Sub MailsImportieren() Dim objOutlook As Outlook.Application Dim objnSpace As Namespace Dim objFolder As MAPIFolder Dim objMsg As Object Dim intCounter As Integer, intCount As Integer, iRow As Integer Dim sTxt As String Dim Text As String Text = "Einkaufswagen" Set objOutlook = New Outlook.Application Set objnSpace = objOutlook.GetNamespace("MAPI") Set objFolder = objnSpace.PickFolder End Sub

Beliebteste Forumthreads (12 Monate)

Auswahl-Dialog für Postfach in Outlook

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread