Wie öffne ich einen bestimmten Outlook-Ordner in Excel?
Haben Sie jemals versucht, einen bestimmten Outlook-Ordner aus einer Excel-Datei zu öffnen, z. B. den Posteingangsordner, den Kontaktordner oder einen anderen Ordner? In diesem Artikel werde ich darüber sprechen, wie ein gewünschter Outlook-Ordner aus der Excel-Arbeitsmappe geöffnet wird.
Öffnen Sie einen bestimmten Outlook-Ordner aus einer Excel-Datei mit VBA-Code
Öffnen Sie einen bestimmten Outlook-Ordner aus einer Excel-Datei mit VBA-Code
Der folgende VBA-Code kann Ihnen beim Öffnen eines bestimmten Outlook-Ordners aus dem Excel-Arbeitsblatt helfen. Gehen Sie dazu folgendermaßen vor:
1. Halten Sie in Excel die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modulfenster.
VBA-Code: Öffnen Sie einen bestimmten Outlook-Ordner aus der Excel-Datei:
Sub OpenOutlookFolder()
Dim xOutlookApp As Outlook.Application
Dim xNameSpace As Outlook.Namespace
Dim xFolder As Outlook.Folder
Dim xFolderType As OlDefaultFolders
On Error Resume Next
Set xOutlookApp = New Outlook.Application
Set xNameSpace = xOutlookApp.Session
Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)
xFolder.Display
Set xFolder = Nothing
Set xNameSpace = Nothing
Set xOutlookApp = Nothing
Exit Sub
End Sub
Note: Im obigen Code können Sie die ändern Posteingang der Setzen Sie xFolder = xNameSpace.GetDefaultFolder (olFolderInbox) Skript zu einem anderen Ordnernamen, den Sie öffnen möchten.
3. Dann klick Tools > Bibliographie der Microsoft Visual Basic für Applikationen Fenster, in dem heraussprang Referenzen-Projekt1 Dialogfeld überprüfen Microsoft Outlook-Objektbibliothek Option von der Verfügbare Referenzen Listenfeld, siehe Screenshot:
4. Und dann klicken OK um das Dialogfeld zu schließen, und drücken Sie F5 Schlüssel, um diesen Code auszuführen, und der angegebene Outlook-Ordner wird sofort geöffnet.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!