Auslesen eines Outlook-Suchordners

Sub ListOutlookMails() Dim olApp As Object Dim objFolder As Object Dim item As Object Dim i As Long Set olApp = CreateObject("outlook.application") Set objFolder = olApp.GetNameSpace("MAPI").GetDefaultFolder(6) ' 6 = olFolderInbox i = 1 For Each item In objFolder.Items If TypeName(item) = "MailItem" Then i = i + 1 Cells(i, 1).Value = item.CreationTime Cells(i, 2).Value = item.SenderName Cells(i, 3).Value = item.Subject 'Cells(i, 4).Value = item.Body End If Next Set objFolder = Nothing Set olApp = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Philipp,
probier das mal, habe ich mir durchgetested bis es klappte.
Option Explicit
'===========================================================================================
' Diese Routine entnimmt den "Query-Server-entry" aus den Searchfoldern des Servers und zeigt ihn an.
' per CTRL-SHIFT-"F" kann dann das allgemeine Searchfenster hier aufgesetzt werden.
'===========================================================================================

Sub OLU50_SearchFolders()
Dim colStores As Outlook.Stores        'PST-files: Name  + Disk-location
Dim oStore As Outlook.Store
Dim oSearchFolders As Outlook.Folders
Dim oFolder As Outlook.Folder
Dim olu50DBUG As Long
Dim test As Variant
Dim i As Long, xL1 As Long, xL2 As Long, xL3 As Long, xL4 As Long, xL5 As Long
On Error Resume Next
On Error GoTo 0
olu50DBUG = 1  'debug schalter
Set colStores = Application.Session.Stores
'GoTo nodebug01
test = ""
For i = 1 To colStores.Count
test = test & Chr(10) & i & "   " & colStores(i).DisplayName
'===>  Suchkriterium anpassen:
If colStores(i).DisplayName = "Firmus.Nachname@domain.com" Then xL1 = i    'Outlook.STORE  _
suchen  (Exchange-Account or PSTfiles)
Next i
If olu50DBUG = 0 Then GoTo nodebug01
MsgBox test
i = i
nodebug01:
If xL1 = 0 Then xL1 = 2         'Kein passender Store gefunden, dann Default auf Store 1 setzen
Set oStore = colStores(xL1)
Set oSearchFolders = oStore.GetSearchFolders                            'pull out the  _
SearchFolders
xL2 = 0
test = "Begrenzung vorne: "
For i = 1 To oSearchFolders.Count
test = test & Chr(10) & i & "   " & oSearchFolders(i).Name                'FolderPath
If xL2 = 0 And InStr(1, oSearchFolders(i).Name, "_Query_SERVER_")  0 Then xL2 = i   ' _
searchfolder suchen
Next i
If olu50DBUG = 0 Then GoTo nodebug02
test = test & " :Begrenzung hinten"
MsgBox test
i = i
nodebug02:
If xL2 = 0 Then xL2 = 1         'Kein passender Searchfolder gefunden, dann Default auf  _
searchfolder 1 setzen
oSearchFolders(xL2).Display           'Variante 1
Set oFolder = oSearchFolders(xL2)
oFolder.Display
'https://msdn.microsoft.com/en-us/library/office/ff866933.aspx  for more details
End Sub

Gruss,
Firmus

Hallo Philipp,
sorry, hat etwas gedauert, meine Brauchwasser-Solaranlage(wasserbetrieben) macht z.Z. etwas Stress.
Anbei ein XLSM-Beispiel, dass von XLS kommend in Outlook auf die Searchfolder navigiert.
Es ist das gleiche Beispiel wie unter Outlook, nur mit anderem Startverhalten.
Ein wichtiger Punkt: Die VBA-Klasse "Application" gibt es zweimal. 1x für Excel, 1x für Outlook.
Die Reihenfolge der Verweise (siehe xlsfile screenshot drin).
Da sich Outlook in der Reihenfolge nicht vor Excel setzen läßt (oder kann ich nicht), musste ich
in einer Zeile "Outlook.application.session....." adressieren, damit auf die Outlook-Klasse referenziert wird.
https://www.herber.de/bbs/user/110885.xlsm
Lass wissen, ob es klappt, oder ob noch Fragen offen sind.
Gruß
Firmus

Beliebteste Forumthreads (12 Monate)

Auslesen eines Outlook-Suchordners

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread