Guardar correos electrónicos como archivos PDF en Outlook: una guía paso a paso
Guardar correos electrónicos importantes como archivos PDF puede ser altamente beneficioso para archivar, compartir o documentación legal. Microsoft Outlook no tiene una opción directa para guardar correos electrónicos como PDF, pero existen varios métodos que puedes utilizar para lograrlo. Aquí tienes una guía completa sobre cómo guardar correos electrónicos como archivos PDF en Outlook.
Guardar un correo electrónico como archivo PDF usando la función Imprimir
Guardar correos electrónicos seleccionados como archivo PDF usando código VBA
Guardar un correo electrónico como archivo PDF usando la función Imprimir
Si solo deseas guardar un correo electrónico como archivo PDF, la función Imprimir puede ayudarte.
1. Selecciona el correo electrónico que deseas guardar como archivo PDF.
2. Haz clic en "Archivo" > "Imprimir".
3. En el menú desplegable de la impresora, selecciona "Microsoft Print to PDF" y haz clic en "Imprimir".
4. En la ventana "Guardar salida de impresión como", elige la carpeta de destino, ingresa el nombre del archivo y haz clic en "Guardar".
Guardar correos electrónicos seleccionados como archivo PDF usando código VBA
1. Primero, debes seleccionar el correo electrónico que deseas guardar como PDF.
2. Presiona "Alt + F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".
3. Haz clic en "Insertar" > "Módulo", luego copia y pega el siguiente código VBA en la ventana del Módulo.
El código VBA para guardar correo electrónico como archivo PDF
Sub SaveAsPDFfile()
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 SubNota: Este código VBA se ha probado con éxito en Outlook 2007 y 2010
4. Haz clic 
para ejecutar el código.
5. Aparecerá un cuadro de diálogo "Guardar archivo" mientras se ejecuta el código. Selecciona una ruta para guardar el archivo, asígnale un nombre y finalmente haz clic en el botón "Guardar".
6. Cuando el código termine de ejecutarse, el correo electrónico se habrá convertido exitosamente en un archivo PDF.
Guardar correos electrónicos seleccionados como archivo PDF u otros formatos de archivo usando Kutools para Outlook
Con "Kutools para Outlook" instalado, puedes usar su utilidad "Guardar correos electrónicos seleccionados en varios formatos como PDF" para guardar o exportar rápidamente los correos electrónicos seleccionados a archivos PDF/Excel/CSV u otros formatos de archivo.
¡Dile adiós a la ineficiencia de Outlook! Kutools para Outlook facilita el procesamiento de correos electrónicos en lote, ¡ahora con funciones gratuitas impulsadas por inteligencia artificial! Descarga Kutools para Outlook ahora!!
1. En una carpeta de correo electrónico, selecciona los mensajes que deseas guardar como PDF, haz clic en "Kutools" > "Guardar correos electrónicos seleccionados en varios formatos como PDF".
2. En el cuadro de diálogo "Guardar correo electrónico como otros archivos", selecciona una ruta para colocar los nuevos archivos, marca "Formato PDF" y puedes especificar el "Guardar contenido" según sea necesario.
3. Haz clic en "Aceptar". Luego, los correos electrónicos seleccionados se habrán guardado como archivos PDF individualmente.
Las mejores herramientas de productividad para Office
Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.
📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...
📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar 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 emails importantes / Minimizar Outlook en vez de cerrar...
👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.
🚀 Descarga con un solo clic — Consigue todos los complementos para Office
Muy recomendado: Kutools para Office (5 en1)
Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.
- ✅ Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
- 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
- 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint