¿Cómo abrir una carpeta específica de Outlook desde Excel?
¿Alguna vez has intentado abrir una carpeta específica de Outlook desde un archivo de Excel, como la carpeta "Bandeja de entrada", la carpeta "Contactos" o cualquier otra carpeta? En este artículo, hablaré sobre cómo abrir una carpeta deseada de Outlook desde un libro de Excel.
Abrir una carpeta específica de Outlook desde un archivo de Excel con código VBA
Abrir una carpeta específica de Outlook desde un archivo de Excel con código VBA
El siguiente código VBA puede ayudarte a abrir una carpeta específica de Outlook desde una hoja de cálculo de Excel; por favor, sigue estos pasos:
1. En Excel, mantén presionadas las teclas "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".
2. Haz clic en "Insertar" > "Módulo", y pega la siguiente macro en la "Ventana del Módulo".
Código VBA: Abrir una carpeta específica de Outlook desde un 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
Nota: En el código anterior, puedes cambiar "Bandeja de entrada" en el script "Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)" por cualquier otro nombre de carpeta que desees abrir.
3. Luego, haz clic en "Herramientas" > "Referencias" en la ventana "Microsoft Visual Basic para Aplicaciones", y en el cuadro de diálogo emergente "Referencias-Proyecto1", marca la opción "Biblioteca de objetos de Microsoft Outlook" en el cuadro de lista "Referencias disponibles". Ver captura de pantalla:
4. Luego, haz clic en "Aceptar" para cerrar el cuadro de diálogo, y presiona la tecla "F5" para ejecutar este código, y la carpeta especificada de Outlook se abrirá inmediatamente.
Las mejores herramientas de productividad para Office
Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.
📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...
📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar duplicados / Búsqueda Avanzada / Organizar carpetas...
📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...
🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan emails importantes / Minimizar Outlook en vez de cerrar...
👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.
🚀 Descarga con un solo clic — Consigue todos los complementos para Office
Muy recomendado: Kutools para Office (5 en1)
Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.
- ✅ Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
- 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
- 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint