Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo importar archivos de msg del sistema de archivos a la carpeta de Outlook?

Normalmente, puede importar archivos msg desde el sistema de archivos a una carpeta de Outlook arrastrándolos y soltándolos. En este artículo, vamos a mostrarle un método sencillo para importar todos los archivos msg de un sistema de archivos a una carpeta especificada de Outlook en detalles.

Importe archivos msg del sistema de archivos a la carpeta Outlook con el código VBA


Guarde fácilmente los correos electrónicos seleccionados como archivos de formato diferente en Outlook:

Con la herramienta Guardar como archivo de Kutools para Outlook, puede guardar fácilmente varios correos seleccionados: 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 captura de pantalla.

Kutools for Outlook: con más de 40 complementos de Outlook, puede probar sin limitaciones en días 45. Descargar y prueba gratis ahora!


Importe archivos msg del sistema de archivos a la carpeta Outlook con el código VBA

Haga lo siguiente para importar archivos msg del sistema de archivos a una carpeta especificada 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 debajo del código VBA en la ventana del Módulo.

Código VBA: importar archivos msg del sistema de archivos a la carpeta Outlook

Sub ImportMessagesInFolder () Dim xFSO As Scripting.FileSystemObject Dim xSourceFld As Scripting.Folder Dim xSourceFldPath As String Dim xFileItem As Scripting.File Dim xMSG como objeto Dim xMailItem como MailItem Dim xSaveFld como Outlook.Folder en caso de error Resume Next Set xFSO = New Scripting. FileSystemObject Establecer xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Seleccionar una carpeta:", 0, 0) If Not TypeName (xSelFolder) = "Nothing" Then xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Salir del Sub End If Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Establecer xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder If TypeName (xSaveFld) = "Nothing" A continuación, salga del Sub End If para cada xFileItem en xSourceFld.Files Configure xMSG = Session.OpenSharedItem (xFileItem.Path) Establezca xMailItem = xMSG.Copy xMailItem.Move xSaveFld Establezca xMailItem = Nada xMSG.Delete Establezca xMSG = Nada Siguiente xFileItem Establezca xFileItem = Nothing Establecer xSourceFld = Nothing Set xFSO = N othing 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 de mensajes que importará a la carpeta de Outlook y luego haga clic en OK botón. Ver captura de pantalla:

4. Ahora un Seleccionar carpeta cuadro de diálogo emergente, seleccione un Outlook carpeta para guardar los archivos importados de msg, y haga clic en OK botón.

A continuación, todos los archivos msg en una determinada carpeta de su sistema de archivos se importan inmediatamente a una carpeta especificada de Outlook.


Artículos relacionados:



Herramientas de productividad recomendadas

Office Tab

gold star1 Lleve las pestañas útiles a Excel y a otros programas de Office, como Chrome, Firefox y el nuevo Internet Explorer.

Kutools for Excel

gold star1 ¡Asombroso! Aumente su productividad en minutos 5. ¡No necesita ninguna habilidad especial, ahorre dos horas todos los días!

gold star1 Las nuevas características de 300 para Excel hacen que Excel sea mucho más fácil y potente:

  • Fusionar celdas / filas / columnas sin perder datos.
  • Combine y consolide varias hojas y libros de trabajo.
  • Comparar rangos, copiar rangos múltiples, convertir texto a la fecha, unidad y conversión de moneda.
  • Cuenta por colores, subtotales de paginación, clasificación avanzada y superfiltro,
  • Más Seleccionar / Insertar / Eliminar / Texto / Formato / Enlace / Comentario / Libros de trabajo / Hojas de trabajo Herramientas ...

Captura de pantalla de Kutools para Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Amey Thombre · 10 months ago
    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.