¿Cómo abrir una carpeta específica de Outlook desde Excel?
¿Alguna vez ha intentado abrir una carpeta de Outlook específica desde un archivo de Excel, como abrir la carpeta Bandeja de entrada, la carpeta Contactos o cualquier otra carpeta? En este artículo, hablaré sobre cómo abrir una carpeta de Outlook deseada desde el libro de Excel.
Abra una carpeta específica de Outlook desde un archivo de Excel con código VBA
Abra una carpeta específica de Outlook desde un archivo de Excel con código VBA
El siguiente código de VBA puede ayudarlo a abrir una carpeta de Outlook específica desde la hoja de cálculo de Excel, haga lo siguiente:
1. En Excel, mantenga presionada la ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Ventana de módulo.
Código de VBA: abra una carpeta de Outlook específica desde el archivo de Excel:
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: En el código anterior, puede cambiar el Buzón existentes Establecer xFolder = xNameSpace.GetDefaultFolder (olFolderInbox) script a cualquier otro nombre de carpeta que desee abrir.
3. Luego, haz clic Herramientas > Referencias existentes Microsoft Visual Basic para aplicaciones ventana, en el aparecido Referencias-Proyecto1 cuadro de diálogo, comprobar Biblioteca de objetos de Microsoft Outlook Opción de la Referencias disponibles cuadro de lista, ver captura de pantalla:
4. Y luego, haga clic en OK para cerrar el cuadro de diálogo y presione F5 para ejecutar este código, y la carpeta de Outlook especificada se abrirá inmediatamente.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!