Saltar al contenido principal

¿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

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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...

Descripción


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is amazing and just does what i was looking for. just make sure that you have Microsoft System Runtime library selected in the references of the VBA project as Scripting object is from that library.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations