¿Cómo convertir varios correos electrónicos a archivos PDF en lote en Outlook?

Author: Sun Last Modified: 2025-06-04

En Outlook, la función Guardar como solo permite guardar un correo electrónico en formato HTML, TXT, MHT, MSG y Archivo de plantilla. Si desea convertir el/los correo(s) a archivo(s) PDF, ¿cómo puede hacerlo? En este artículo, presento algunos trucos para resolver este problema.

Convertir un correo electrónico a archivo PDF con la función Imprimir

Convertir varios correos electrónicos en archivos PDF separados con la utilidad Guardar como Archivo

Convertir un correo electrónico a archivo PDF con VBA

Convertir un correo electrónico a archivo PDF con la función Imprimir

En Outlook, puede usar la función Imprimir para guardar un correo electrónico como archivo PDF.

1. Seleccione el correo que desea convertir a PDF, haga clic en Archivo > Imprimir, seleccione Microsoft Print to PDF de la lista desplegable de Impresora y haga clic en Imprimir.

2. En el cuadro de diálogo Guardar salida de impresión como, seleccione una ruta para colocar el archivo y asígnele un nombre.

3. Haga clic en Guardar y luego en Cancelar para detener la impresión.

Ahora el mensaje seleccionado se ha convertido en un archivo PDF.

Nota: Este método solo funciona en Outlook 2016.

Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS

Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.

Esta función admite:

Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.

Esta función admite:

Respuestas inteligentes de correo electrónico
Contenido optimizado
Borradores basados en palabras clave
Extensión inteligente de contenido
Resumen de correos electrónicos
Traducción multilingüe

¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!

Convertir varios correos electrónicos en archivos PDF separados con la utilidad Guardar como Archivo

Con los métodos anteriores, solo puede guardar un mensaje como archivo PDF a la vez. Si desea convertir varios correos electrónicos en archivos PDF separados en lote, puede probar la utilidad Guardar mensajes seleccionados como archivos en varios formatos como PDF de Kutools para Outlook.

👉 Kutools for Outlook ahora tiene una versión gratuita, cuyas 70+ funciones son gratuitas de por vida. Descarga la Versión Gratuita Ahora.

Instale gratuitamente Kutools para Outlook y luego siga los pasos a continuación:

1. Seleccione los correos que desea convertir y luego haga clic en Kutools > Procesamiento Masivo > Guardar mensajes seleccionados como archivos en varios formatos como PDF.

2. En el cuadro de diálogo Guardar mensaje como otros archivos, seleccione una ruta para ubicar el archivo, marque la opción Formato PDF y puede marcar las opciones relacionadas con guardar el contenido en la sección derecha.

3. Haga clic en Aceptar.

Ahora los correos electrónicos se han convertido en archivos PDF.

Convertir un correo electrónico a archivo PDF con VBA

Si está trabajando en Outlook 2007 o 2010, puede aplicar un código VBA para convertir un correo electrónico en un archivo PDF.

1. Seleccione un correo electrónico y presione las teclas Alt + F11 para habilitar la ventana Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue el siguiente código en el script del Módulo.

VBA: Convertir correo electrónico a PDF

Sub SaveAsPDFfile()
'UpdatebyExtendoffice
Dim MyOlNamespace As NameSpace
Dim MySelectedItem As MailItem
Dim Response As String
Dim FSO As Object, TmpFolder As Object
Dim tmpFileName As String
Dim wrdApp As Object
Dim wrdDoc As Object
Dim bStarted As Boolean
Dim dlgSaveAs As FileDialog
Dim fdfs As FileDialogFilters
Dim fdf As FileDialogFilter
Dim i As Integer
Dim WshShell As Object
Dim SpecialPath As String
Dim msgFileName As String
Dim strCurrentFile As String
Dim strName As String
Dim oRegEx As Object
Dim intPos As Long
Set MyOlNamespace = Application.GetNamespace("MAPI")
Set MySelectedItem = ActiveExplorer.Selection.Item(1)
Set FSO = CreateObject("Scripting.FileSystemObject")
tmpFileName = FSO.GetSpecialFolder(2)
strName = "email_temp.mht"
tmpFileName = tmpFileName & "\" & strName
MySelectedItem.SaveAs tmpFileName, 10
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err Then
Set wrdApp = CreateObject("Word.Application")
bStarted = True
End If
On Error GoTo 0
Set wrdDoc = wrdApp.Documents.Open(FileName:=tmpFileName, Visible:=False, Format:=7)
Set dlgSaveAs = wrdApp.FileDialog(msoFileDialogSaveAs)
Set fdfs = dlgSaveAs.Filters
i = 0
For Each fdf In fdfs
i = i + 1
If InStr(1, fdf.Extensions, "pdf", vbTextCompare) > 0 Then
Exit For
End If
Next fdf
dlgSaveAs.FilterIndex = i
Set WshShell = CreateObject("WScript.Shell")
SpecialPath = WshShell.SpecialFolders(16)
msgFileName = MySelectedItem.Subject
Set oRegEx = CreateObject("vbscript.regexp")
oRegEx.Global = True
oRegEx.Pattern = "[\/:*?""<>|]"
msgFileName = Trim(oRegEx.Replace(msgFileName, ""))
dlgSaveAs.InitialFileName = SpecialPath & "\" & msgFileName
If dlgSaveAs.Show = -1 Then
strCurrentFile = dlgSaveAs.SelectedItems(1)
If Right(strCurrentFile, 4) <> ".pdf" Then
Response = MsgBox("Sorry, only saving in the pdf-format is supported." & _
vbNewLine & vbNewLine & "Save as pdf instead?", vbInformation + vbOKCancel)
If Response = vbCancel Then
wrdDoc.Close 0
If bStarted Then wrdApp.Quit
Exit Sub
ElseIf Response = vbOK Then
intPos = InStrRev(strCurrentFile, ".")
If intPos > 0 Then
strCurrentFile = Left(strCurrentFile, intPos - 1)
End If
strCurrentFile = strCurrentFile & ".pdf"
End If
End If
wrdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
strCurrentFile, _
ExportFormat:=17, _
OpenAfterExport:=False, _
OptimizeFor:=0, _
Range:=0, _
From:=0, _
To:=0, _
Item:=0, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=0, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
End If
Set dlgSaveAs = Nothing
wrdDoc.Close
If bStarted Then wrdApp.Quit
Set MyOlNamespace = Nothing
Set MySelectedItem = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
Set oRegEx = Nothing
End Sub

3. Presione la tecla F5 para habilitar el cuadro de diálogo Guardar archivo, seleccione una carpeta para colocar el archivo y asígnele un nombre.

4. Haga clic en Guardar.

Consejo: Si el código no se puede ejecutar, puede intentar ir al Centro de confianza para verificar la opción Habilitar todas las macros en la sección Configuración de macros.

Las mejores herramientas de productividad para Office

Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!

Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!

🤖 Kutools AI : Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar emails.

📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...

📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...

🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...

👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Desbloquea al instante Kutools para Outlook con un solo clic. ¡No esperes más, descárgalo ahora y aumenta tu productividad!