¿Cómo importar archivos MSG desde el sistema de archivos a una carpeta de Outlook?
Normalmente, puede importar archivos MSG desde el sistema de archivos a una carpeta de Outlook simplemente arrastrándolos y soltándolos. En este artículo, le mostramos un método sencillo para importar todos los archivos MSG de una ubicación del sistema de archivos a una carpeta específica de Outlook, paso a paso.
Importe archivos MSG desde el sistema de archivos a una carpeta de Outlook con código VBA
Importe archivos MSG desde el sistema de archivos a una carpeta de Outlook con código VBA
Siga estos sencillos pasos para importar archivos MSG desde su sistema de archivos directamente a una carpeta específica en Outlook.
1. Pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, copie el siguiente código VBA en la ventana del módulo.
Código VBA: Importar archivos MSG desde el sistema de archivos a una carpeta de Outlook
Sub ImportMessagesInFolder()
Dim xFSO As Scripting.FileSystemObject
Dim xSourceFld As Scripting.Folder
Dim xSourceFldPath As String
Dim xFileItem As Scripting.File
Dim xMSG As Object
Dim xMailItem As MailItem
Dim xSaveFld As Outlook.Folder
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
Set xSelFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select a folder：", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
xSourceFldPath = xSelFolder.self.Path + "\"
Else
xSourceFldPath = ""
Exit Sub
End If
Set xSourceFld = xFSO.GetFolder(xSourceFldPath)
Set xSaveFld = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder
If TypeName(xSaveFld) = "Nothing" Then
Exit Sub
End If
For Each xFileItem In xSourceFld.Files
Set xMSG = Session.OpenSharedItem(xFileItem.Path)
Set xMailItem = xMSG.Copy
xMailItem.Move xSaveFld
Set xMailItem = Nothing
xMSG.Delete
Set xMSG = Nothing
Next xFileItem
Set xFileItem = Nothing
Set xSourceFld = Nothing
Set xFSO = Nothing
End Sub3. Pulse la tecla F5 para ejecutar el código. A continuación, en el cuadro de diálogo Examinar carpeta que se abre, seleccione la carpeta que contiene los archivos MSG que desea importar a Outlook y haga clic en el botón Aceptar. Vea la captura de pantalla:
4. Ahora aparece un cuadro de diálogo Seleccionar carpeta. Por favor, selecciona una carpeta de Outlook para guardar los archivos MSG importados y haz clic en el botón Aceptar.
Así, todos los archivos MSG de una carpeta específica del sistema de archivos se importan directamente a una carpeta determinada de Outlook.
Guarde fácilmente los correos electrónicos seleccionados como archivos en distintos formatos en Outlook:
Con la utilidad Guardado masivo de Kutools para Outlook, puede guardar fácilmente varios correos electrónicos seleccionados individualmente como archivo en formato HTML, archivo en formato de texto, documento de Word, archivo CSV o archivos PDF en Outlook, tal como se muestra en la siguiente demostración.
¡Descargue ya la versión gratuita de Kutools para Outlook! /a>
Artículos relacionados:
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para 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 aporta una interfaz con pestañas a Office y hace su trabajo mucho más fácil
- Active 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 ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools. Un solo instalador.
Kutools for Office es una suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, lo que la convierte en la opción ideal para equipos que trabajan con distintas aplicaciones de Office.
- Suite todo en uno— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Funcionan mejor juntos— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a comprar complementos por separado