Note: The other languages of the website are Google-translated. Back to English

¿Cómo exportar correos electrónicos de múltiples carpetas / subcarpetas para sobresalir en Outlook?

Al exportar una carpeta con el asistente de importación y exportación en Outlook, no es compatible con Incluir subcarpétas opción si exporta la carpeta a un archivo CSV. Sin embargo, será bastante lento y tedioso exportar cada carpeta a un archivo CSV y luego convertirlo a un libro de Excel manualmente. Aquí, este artículo presentará un VBA para exportar rápidamente múltiples carpetas y subcarpetas a libros de Excel a gusto.

Exporte varios correos electrónicos de varias carpetas / subcarpetas a Excel con VBA

Pestaña Office: habilite la edición y navegación con pestañas en Office, y haga el trabajo mucho más fácil ...
Kutools para Outlook: trae 100 potentes funciones avanzadas a Microsoft Outlook
  • Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos por reglas; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
  • Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
  • Responder (todos) con todos los archivos adjuntos en la conversación por correo; Responder muchos correos electrónicos a la vez; Agregar saludo automáticamente cuando responda; Agregar automáticamente fecha y hora al asunto ...
  • Herramientas de adjunto: Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo automáticamente ... Informe rápido, Contar correos seleccionados, Eliminar correos y contactos duplicados ...
  • Más de 100 funciones avanzadas resuelve la mayoría de tus problemas en Outlook 2021 - 2010 u Office 365. Funciones completas Prueba gratuita de 60 días.

flecha azul burbuja derecha Exporte varios correos electrónicos de varias carpetas / subcarpetas a Excel con VBA

Siga los pasos a continuación para exportar correos electrónicos desde múltiples carpetas o subcarpetas a libros de Excel con VBA en Outlook.

1. Prensa otro + F11 teclas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic en recuadro > Móduloy luego pegue el código VBA debajo en la nueva ventana del Módulo.

VBA: exporta correos electrónicos de varias carpetas y subcarpetas a Excel

Const MACRO_NAME = "Export Outlook Folders to Excel"

Sub ExportMain()
ExportToExcel "destination_folder_path\A.xlsx", "your_email_accouny\folder\subfolder_1"
ExportToExcel "destination_folder_path\B.xlsx", "your_email_accouny\folder\subfolder_2"
MsgBox "Process complete.", vbInformation + vbOKOnly, MACRO_NAME
End Sub
Sub ExportToExcel(strFilename As String, strFolderPath As String)
Dim      olkMsg As Object
Dim olkFld As Object
Dim excApp As Object
Dim excWkb As Object
Dim excWks As Object
Dim intRow As Integer
Dim intVersion As Integer

If strFilename <> "" Then
If strFolderPath <> "" Then
Set olkFld = OpenOutlookFolder(strFolderPath)
If TypeName(olkFld) <> "Nothing" Then
intVersion = GetOutlookVersion()
Set excApp = CreateObject("Excel.Application")
Set excWkb = excApp.Workbooks.Add()
Set excWks = excWkb.ActiveSheet
'Write Excel Column Headers
With excWks
.Cells(1, 1) = "Subject"
.Cells(1, 2) = "Received"
.Cells(1, 3) = "Sender"
End With
intRow = 2
For Each olkMsg In olkFld.Items
'Only export messages, not receipts or appointment requests, etc.
If olkMsg.Class = olMail Then
'Add a row for each field in the message you want to export
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
intRow = intRow + 1
End If
Next
Set olkMsg = Nothing
excWkb.SaveAs strFilename
excWkb.Close
Else
MsgBox "The folder '" & strFolderPath & "' does not exist in Outlook.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The folder path was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The filename was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If

Set olkMsg = Nothing
Set olkFld = Nothing
Set excWks = Nothing
Set excWkb = Nothing
Set excApp = Nothing
End Sub

Public Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder
Dim arrFolders As Variant
Dim varFolder As Variant
Dim bolBeyondRoot As Boolean

On Error Resume Next
If strFolderPath = "" Then
Set OpenOutlookFolder = Nothing
Else
Do While Left(strFolderPath, 1) = "\"
strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
Loop
arrFolders = Split(strFolderPath, "\")
For Each varFolder In arrFolders
Select Case bolBeyondRoot
Case False
Set OpenOutlookFolder = Outlook.Session.Folders(varFolder)
bolBeyondRoot = True
Case True
Set OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)
End Select
If Err.Number <> 0 Then
Set OpenOutlookFolder = Nothing
Exit For
End If
Next
End If
On Error GoTo 0
End Function

Function GetSMTPAddress(Item As Outlook.MailItem, intOutlookVersion As Integer) As String
Dim olkSnd As Outlook.AddressEntry
Dim olkEnt As Object

On Error Resume Next
Select Case intOutlookVersion
Case Is < 14
If Item.SenderEmailType = "EX" Then
GetSMTPAddress = SMTPEX(Item)
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
Case Else
Set olkSnd = Item.Sender
If olkSnd.AddressEntryUserType = olExchangeUserAddressEntry Then
Set olkEnt = olkSnd.GetExchangeUser
GetSMTPAddress = olkEnt.PrimarySmtpAddress
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
End Select
On Error GoTo 0
Set olkPrp = Nothing
Set olkSnd = Nothing
Set olkEnt = Nothing
End Function

Function GetOutlookVersion() As Integer
Dim arrVer As Variant
arrVer = Split(Outlook.Version, ".")
GetOutlookVersion = arrVer(0)
End Function

Function SMTPEX(olkMsg As Outlook.MailItem) As String
Dim olkPA As Outlook.propertyAccessor
On Error Resume Next
Set olkPA = olkMsg.propertyAccessor
SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")
On Error GoTo 0
Set olkPA = Nothing
End Function

3. Ajuste el código VBA anterior según lo necesite.

(1) Reemplazar ruta_carpeta_destino en el código anterior con la ruta de la carpeta de destino en la que guardará los libros de trabajo exportados, como C: \ Usuarios \ DT168 \ Documentos \ TEST.
(2) Reemplace your_email_accouny \ folder \ subfolder_1 y your_email_accouny \ folder \ subfolder_2 en el código anterior con las rutas de las carpetas de las subcarpetas en Outlook, como Kelly @extendoffice.com \ Bandeja de entrada \ A y Kelly @extendoffice.com \ Bandeja de entrada \ B

4. presione el F5 o haga clic en el Ejecutar botón para ejecutar este VBA. Y luego haga clic en el OK en el cuadro de diálogo emergente Exportar carpetas de Outlook a Excel. Ver captura de pantalla:

Y ahora los correos electrónicos de todas las subcarpetas o carpetas especificadas en el código VBA anterior se exportan y guardan en libros de Excel.


flecha azul burbuja derechaArtículos Relacionados


Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.

  • Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
  • Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
  • Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
  • Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
  • Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.
tiro kutools outlook kutools pestaña 1180x121
tiro kutools outlook kutools plus pestaña 1180x121
 
Comentarios (10)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
¿Cómo consigo que esto se repita automáticamente en subcarpetas?
Este comentario fue minimizado por el moderador en el sitio
hola querida, todo funciona bien, muchas gracias, pero el cuerpo no se exporta, ¿cómo puedo exportar el cuerpo del correo electrónico también? en mi negocio muchas gracias de nuevo
Este comentario fue minimizado por el moderador en el sitio
Hola Montaser,
El script de VBA se ejecuta en función de la función Exportar de Outlook, que no admite la exportación de contenido de mensajes cuando se exportan correos electrónicos de forma masiva desde una carpeta de correo. Por lo tanto, este script de VBA tampoco puede exportar el contenido del mensaje.
Este comentario fue minimizado por el moderador en el sitio
esto funciona muy bien, pero ¿hay alguna manera de agregar la información no solo para los 4 campos anteriores sino también para todo lo que da la exportación de Outlook a PST? Asunto Cuerpo De: (Nombre) De: (Dirección) De: (Tipo) A: (Nombre) A: (Dirección) A: (Tipo) CC: (Nombre) CC: (Dirección) CC: (Tipo) CCO: ( Nombre) BCC: (Dirección) BCC: (Tipo) Información de facturación Categorías Importancia Millas Sensibilidad

Intenté agregar "Importancia" y funciona, pero agradecería si alguien pudiera proporcionar el código para los otros campos. ¡¡gracias!!
con excWks
.Celdas(1, 1) = "Asunto"
.Celdas(1, 2) = "Recibido"
.Celdas(1, 3) = "Remitente"
.Celdas(1, 4) = "Cuerpo"
.Celdas(1, 5) = "Importancia"
End With
FilaEntrada = 2
Para cada olkMsg en olkFld.Items
'Solo exportar mensajes, no recibos ni solicitudes de citas, etc.
Si olkMsg.Class = olMail Entonces
'Agregue una fila para cada campo en el mensaje que desea exportar
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(entRow, 4) = olkMsg.Body
excWks.Cells(intRow, 5) = olkMsg.Importancia
Este comentario fue minimizado por el moderador en el sitio
Hola, por favor revisa el siguiente código según tus necesidades:
Const MACRO_NAME = "Exportar carpetas de Outlook a Excel"

Sub Exportación principal ()

ExportToExcel "destination_folder_path\A.xlsx", "your_email_accouny\folder\subfolder_1"

ExportToExcel "destination_folder_path\B.xlsx", "your_email_accouny\folder\subfolder_2"

MsgBox "Proceso completo.", vbInformation + vbOKOnly, MACRO_NAME

End Sub

Sub ExportToExcel(strFilename como cadena, strFolderPath como cadena)

Dim olkMsg como objeto

Dim olkFld como objeto

Dim excApp como objeto

Dim excWkb como objeto

Dim excWks como objeto

Dim intRow como entero

Dim intVersion como entero

Si strNombreArchivo <> "" Entonces

Si strFolderPath <> "" Entonces

Establecer olkFld = OpenOutlookFolder(strFolderPath)

Si TypeName(olkFld) <> "Nada" Entonces

intVersion = GetOutlookVersion()

Establecer excApp = CreateObject("Excel.Application")

Establecer excWkb = excApp.Workbooks.Add()

Establecer excWks = excWkb.ActiveSheet

'Escribir encabezados de columna de Excel

con excWks

.Celdas(1, 1) = "Asunto"

.Celdas(1, 2) = "Cuerpo"

.Celdas(1, 3) = "Recibido"

.Celdas(1, 4) = "De: (Nombre)"

.Celdas(1, 5) = "De: (Dirección)"

.Celdas(1, 6) = "De: (Tipo)"

.Celdas(1, 7) = "Para: (Nombre)"

.Celdas(1, 8) = "Para: (Dirección)"

.Celdas(1, 9) = "Para: (Tipo)"

.Celdas(1, 10) = "CC: (Nombre)"

.Celdas(1, 11) = "CC: (Dirección)"

.Celdas(1, 12) = "CC: (Tipo)"

.Celdas(1, 13) = "CCO: (Nombre)"

.Celdas(1, 14) = "CCO: (Dirección)"

.Celdas(1, 15) = "CCO: (Tipo)"

.Cells(1, 16) = "Información de facturación"

.Celdas(1, 17) = "Categorías"

.Celdas(1, 18) = "Importancia"

.Cells(1, 19) = "Millas"

.Cells(1, 20) = "Sensibilidad"

End With

FilaEntrada = 2

Para cada olkMsg en olkFld.Items

'Solo exportar mensajes, no recibos ni solicitudes de citas, etc.

Si olkMsg.Class = olMail Entonces

'Agregue una fila para cada campo en el mensaje que desea exportar

excWks.Cells(intRow, 1) = olkMsg.Subject

excWks.Cells(entRow, 2) = olkMsg.Body

excWks.Cells(intRow, 3) = olkMsg.ReceivedTime

excWks.Cells(intRow, 4) = olkMsg.SenderName

excWks.Cells(intRow, 5) = GetAddress(olkMsg.Sender, intVersion)

excWks.Cells(intRow, 6) = olkMsg.Sender.Type

excWks.Cells(intRow, 7) = GetRecipientsName(olkMsg, 1, 1, intVersion)

excWks.Cells(intRow, 8) = GetRecipientsName(olkMsg, 1, 2, intVersion)

excWks.Cells(intRow, 9) = GetRecipientsName(olkMsg, 1, 3, intVersion)

excWks.Cells(intRow, 10) = GetRecipientsName(olkMsg, 2, 1, intVersion)

excWks.Cells(intRow, 11) = GetRecipientsName(olkMsg, 2, 2, intVersion)

excWks.Cells(intRow, 12) = GetRecipientsName(olkMsg, 2, 3, intVersion)

excWks.Cells(intRow, 13) = GetRecipientsName(olkMsg, 3, 1, intVersion)

excWks.Cells(intRow, 14) = GetRecipientsName(olkMsg, 3, 2, intVersion)

excWks.Cells(intRow, 15) = GetRecipientsName(olkMsg, 3, 3, intVersion)

excWks.Cells(intRow, 16) = olkMsg.BillingInformation

excWks.Cells(intRow, 17) = olkMsg.Categories

excWks.Cells(intRow, 18) = olkMsg.Importancia

excWks.Cells(entRow, 19) = olkMsg.Mileage

excWks.Cells(intRow, 20) = olkMsg.Sensitivity

FilaEntrada = FilaEntrada + 1

Si terminar

Siguiente

Establecer olkMsg = Nada

excWkb.SaveAs strFilename

excWkb.Cerrar

otro

MsgBox "La carpeta '" & strFolderPath & "' no existe en Outlook.", vbCritical + vbOKOnly, MACRO_NAME

Si terminar

otro

MsgBox "La ruta de la carpeta estaba vacía.", vbCritical + vbOKOnly, MACRO_NAME

Si terminar

otro

MsgBox "El nombre del archivo estaba vacío.", vbCritical + vbOKOnly, MACRO_NAME

Si terminar



Establecer olkMsg = Nada

Establecer olkFld = Nada

Establecer excWks = Nada

Establecer excWkb = Nada

Establecer excApp = Nada

End Sub



Función pública OpenOutlookFolder (strFolderPath As String) como Outlook.MAPIFolder

Dim arrFolders como variante

Dim varFolder como variante

Dim bolBeyondRoot como booleano

On Error Resume Next

Si strFolderPath = "" Entonces

Establecer OpenOutlookFolder = Nada

otro

Hacer Mientras Izquierda(strFolderPath, 1) = "\"

strFolderPath = Derecha(strFolderPath, Len(strFolderPath) - 1)

Red ISTE Loop

arrFolders = Split(strFolderPath, "\")

Para cada varFolder en arrFolders

Seleccionar caso bolBeyondRoot

caso falso

Establecer OpenOutlookFolder = Outlook.Session.Folders(varFolder)

bolMás allá de la raíz = Verdadero

caso verdadero

Establezca OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)

Fin Seleccionar

Si Err.Number <> 0 Entonces

Establecer OpenOutlookFolder = Nada

Salir para

Si terminar

Siguiente

Si terminar

En caso de error, vaya a 0

Función finales



Función GetOutlookVersion() como entero

Dim arrVer como variante

arrVer = Dividir (Outlook.Version, ".")

GetOutlookVersion = arrVer(0)

Función finales



Función SMTPEX (Entrada como entrada de dirección) como cadena

Dim olkPA como Outlook.PropertyAccessor

On Error Resume Next

Establecer olkPA = Entry.PropertyAccessor

SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")

En caso de error, vaya a 0

Establecer olkPA = Nada

Función finales



Función GetAddress(Entrada como entrada de dirección, intOutlookVersion como entero) como cadena

Dim olkEnt como objeto

On Error Resume Next

Seleccionar caso intOutlookVersion

El caso es < 14

Si Entrada.Tipo = "EX" Entonces

ObtenerDirección = SMTPEX(Entrada)

otro

GetAddress = Entrada.Dirección

Si terminar

Caso Else

Si Entry.AddressEntryUserType = olExchangeUserAddressEntry Entonces

Establecer olkEnt = Entry.GetExchangeUser

GetAddress = olkEnt.PrimarySmtpAddress

otro

GetAddress = Entrada.Dirección

Si terminar

Fin Seleccionar

En caso de error, vaya a 0

Establecer olkEnt = Nada

Función finales



Función GetRecipientsName(Item As MailItem, rcpType As Integer, Ret As Integer, intOutlookVersion As Integer) As String

Dim xRcp como destinatario

Dim xNames como cadena

xNombres = ""

Para cada xRcp en Item.Recipients

Si xRcp.Type = rcpType Entonces

Si Ret = 1 Entonces

Si xNombres = "" Entonces

xNombres = xRcp.Nombre

otro

xNombres = xNombres & "; " & xRcp.Nombre

Si terminar

ElseIf Ret = 2 Entonces

Si xNombres = "" Entonces

xNombres = ObtenerDirección(xRcp.AddressEntry, intOutlookVersion)

otro

xNombres = xNombres & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

Si terminar

ElseIf Ret = 3 Entonces

Si xNombres = "" Entonces

xNombres = xRcp.AddressEntry.Type

otro

xNombres = xNombres & "; " & xRcp.AddressEntry.Type

Si terminar

Si terminar

ElseIf xRcp.Type = rcpType Entonces

Si Ret = 1 Entonces

Si xNombres = "" Entonces

xNombres = xRcp.Nombre

otro

xNombres = xNombres & "; " & xRcp.Nombre

Si terminar

ElseIf Ret = 2 Entonces

Si xNombres = "" Entonces

xNombres = ObtenerDirección(xRcp.AddressEntry, intOutlookVersion)

otro

xNombres = xNombres & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

Si terminar

ElseIf Ret = 3 Entonces

Si xNombres = "" Entonces

xNombres = xRcp.AddressEntry.Type

otro

xNombres = xNombres & "; " & xRcp.AddressEntry.Type

Si terminar

Si terminar

ElseIf xRcp.Type = rcpType Entonces

Si Ret = 1 Entonces

Si xNombres = "" Entonces

xNombres = xRcp.Nombre

otro

xNombres = xNombres & "; " & xRcp.Nombre

Si terminar

ElseIf Ret = 2 Entonces

Si xNombres = "" Entonces

xNombres = ObtenerDirección(xRcp.AddressEntry, intOutlookVersion)

otro

xNombres = xNombres & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

Si terminar

ElseIf Ret = 3 Entonces

Si xNombres = "" Entonces

xNombres = xRcp.AddressEntry.Type

otro

xNombres = xNombres & "; " & xRcp.AddressEntry.Type

Si terminar

Si terminar

Si terminar

Siguiente

GetRecipientsName = xNombres

Función finales




Espero que esto funcione para usted.
Amanda
Este comentario fue minimizado por el moderador en el sitio
En el sub ExporttoExcel puede agregar el cuerpo

'Escribir encabezados de columna de Excel
con excWks
.Celdas(1, 1) = "Asunto"
.Celdas(1, 2) = "Recibido"
.Celdas(1, 3) = "Remitente"
.Celdas(1, 4) = "Cuerpo"
End With
FilaEntrada = 2
Para cada olkMsg en olkFld.Items
'Solo exportar mensajes, no recibos ni solicitudes de citas, etc.
Si olkMsg.Class = olMail Entonces
'Agregue una fila para cada campo en el mensaje que desea exportar
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(entRow, 4) = olkMsg.Body
FilaEntrada = FilaEntrada + 1
Este comentario fue minimizado por el moderador en el sitio
Hola, espero que alguien pueda ayudarme aquí, prácticamente no tengo conocimiento de VB pero he logrado que este script funcione para mí hasta ahora.

Sin embargo, tengo alrededor de 1500 carpetas y subcarpetas en mi bandeja de entrada en total y realmente me gustaría un script simple para exportar todas las direcciones de correo electrónico que he enviado con la línea de asunto y la fecha en columnas separadas en Excel.

He buscado durante días y he probado muchos sitios diferentes, pero no puedo obtener ningún código que funcione aparte de este.


¿Es posible lo que pido? Si es así, ¿hay alguien lo suficientemente amable e inteligente como para ayudarme con el guión que necesito?
Supongo que tiene algo que ver con esta parte:


Sub Exportación principal ()

ExportToExcel "destination_folder_path\A.xlsx", "your_email_accouny\folder\subfolder_1"

ExportToExcel "destination_folder_path\B.xlsx", "your_email_accouny\folder\subfolder_2"

MsgBox "Proceso completo.", vbInformation + vbOKOnly, MACRO_NAME

End Sub


Gracias de antemano
Este comentario fue minimizado por el moderador en el sitio
Hola,
Acabo de ejecutar esta macro que funciona bien.
entiendo que en las expresiones
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)

olkMsg.* y GetSMTPAddress(olkMsg, intVersion) extraen cosas de Outlook.

¿Cuál es el argumento a usar para obtener la dirección a la que se envió el correo?

Al usar el Asistente de exportación de Outlook, es posible exportar esta dirección, por lo que supongo que sería posible hacerlo a través de esta macro (con algunas modificaciones).
¿Puede alguien ayudarme?

saludos
Este comentario fue minimizado por el moderador en el sitio
Ejecuto esta macro pero sigo recibiendo un error de compilación:

Usuario = tipo definido no definido

En la línea 62 "Función pública OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder"

Ya he especificado la ruta de la siguiente manera:

ExportToExcel "C:\Users\kudus\Documents\MailExportTest\f1\A.xlsx", "myname@mydomain.com\Inbox\Black Hat Webcast"
ExportToExcel "C:\Users\\Documekudus\Documents\MailExportTest\f2\B.xlsx", "myname@mydomain.com\Inbox\CPD\Kaplan Training"

Estoy usando Outlook 2016 en caso de que sea necesario
Este comentario fue minimizado por el moderador en el sitio
Lo arreglé. Desde la ventana de Visual Basic, vaya a Herramientas Referencia - y el cuadro de "Microsoft Outlook 16.0 Object Library"

No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL