¿Cómo importar archivos msg desde el sistema de archivos a la carpeta de Outlook?
Normalmente, puede importar archivos msg desde el sistema de archivos a una carpeta de Outlook arrastrando y soltando. En este artículo, le mostraremos un método sencillo para importar todos los archivos msg desde un sistema de archivos a una carpeta de Outlook específica en detalle.
Importe archivos msg desde el sistema de archivos a la carpeta de Outlook con código VBA
Importe archivos msg desde el sistema de archivos a la carpeta de Outlook con código VBA
Haga lo siguiente para importar archivos msg desde el sistema de archivos a una carpeta específica en Outlook.
1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie el código de VBA a continuación en la ventana del Módulo.
Código VBA: importe archivos msg del sistema de archivos a la 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 Sub
3. presione el F5 clave para ejecutar el código. En la apertura Busca por carpetas cuadro de diálogo, seleccione la carpeta que contiene los archivos msg que va a importar a la carpeta de Outlook, y luego haga clic en el OK botón. Ver captura de pantalla:
4. Ahora un Seleccionar carpeta aparece el cuadro de diálogo, seleccione un Outlook carpeta para guardar los archivos de msg importados y haga clic en el OK del botón.
Luego, todos los archivos msg en una carpeta determinada en su sistema de archivos se importan inmediatamente a una carpeta de Outlook específica.
Guarde fácilmente los correos electrónicos seleccionados como archivos de formato diferente en Outlook:
Con la Ahorro masivo utilidad de Kutools para Outlook, puede guardar fácilmente varios correos electrónicos seleccionados como archivo de formato HTML individual, archivo de formato TXT, documento de Word, archivo CSV y archivo PDF en Outlook como se muestra en la siguiente demostración.
¡Descárgalo y pruébalo ahora! (Pista gratuita de 60 días)
Artículos relacionados:
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!