¿Cómo convertir por lotes varios correos electrónicos a archivos pdf en Outlook?

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

Convierta un correo electrónico a un archivo PDF con la función de impresión

Convierta un correo electrónico a un archivo PDF con VBA

Convierta correos electrónicos por lotes en archivos PDF separados con la utilidad Guardar como archivo

Convierta un correo electrónico a un archivo PDF con la función de impresión

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

1. Seleccione el correo electrónico que desea convertir a PDF, haga clic en File > Imprimir, seleccione Microsoft Print to PDF del desplegable Printer lista desplegable y haga clic Print.

2. En el Save Print Output As cuadro de diálogo, seleccione una ruta para colocar el archivo y asígnele un nombre.

3. Hacer clic en SaveY haga clic en Cancel para detener la impresión.

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

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

Convierta un correo electrónico a un 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 Alt + F11 claves para habilitar el Microsoft Visual Basic for Applications ventana.

2. Hacer clic en Insert > Moduley pegue el código siguiente en el Module guión.

VBA: convierte 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. Prensa F5 para habilitar el cuadro de diálogo Guardar archivo, seleccione una carpeta para colocar el archivo y asígnele un nombre.

4. Hacer clic en Save.

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

Convierta correos electrónicos por lotes 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 por lotes varios correos electrónicos en archivos PDF separados, puede intentar Kutools para Outlook, Ahorro masivo utilidad.

Instalación gratuita Kutools para Outlook, y luego siga los pasos a continuación:

1. Seleccione los correos electrónicos que desea convertir y luego haga clic en Kutools > Bulk Save.

2. En el Save message as other files cuadro de diálogo, seleccione una ruta para localizar el archivo y verifique PDF opción de formato, puede consultar las opciones sobre cómo guardar contenidos en la sección derecha.

3. Hacer clic en Ok.

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

  Save as File

---

Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionales: Guardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

Leer Mas       Descargar gratis      Comprar