If a user opens an Office product (Excel, Word, Outlook, Etc) they should be able to click File > Save As AdobePDF. First, open up your inbox in Outlook and locate the email. Click button beside the Select Save Path text box to select a folder to put the new converted file; (2.) Set wrdApp = CreateObject("Word.Application") Dim objSelection As Outlook.Selection 'Get all selected items 'Get location of the Documents folder Select COM Add-ins next to Manage and click Go. 'Save the mht-file 'Create a Word object A screenshot of the button to recover items deleted from this . Set objSelection = Nothing Step 1. Set dlgFolderPicker = Nothing When using the SaveAllAsPDF macro, the file names also contain the received date and time, up to the second, to make sure the file names are unique and emails do not get overwritten. Set WshShell = CreateObject("WScript.Shell") I go to options, then Add-Ins. The SaveAllAsPDF macro works in the same way but allows you to select more than one email to convert to the pdf-format in one go. ' Microsoft Word Object Library Press CTRL+C to copy the code. "4. Both methods do exactly the same thing. I'm having this same problem where Outlook saves my pdf as a portfolio. Enable the Acrobat PDFMaker Add-in Open any Office 2016 application and click File > Options > Add-ins. Can all of PDF documents or scanned PDF documents not be saved to a local folder with the file extension? PDF Converter button is not displayed in Microsoft Outlook. Cannot Save as Adobe PDF - Microsoft Community Ask a new question NO NoahNWCLC Created on July 1, 2014 Cannot Save as Adobe PDF Hello, Some users at my office have the option for "Save as Adobe PDF" under the file menu, while other users do not. 2. In Outlook, there is no Save As PDF option. By assigning a button to the macro, you can save messages as a pdf-file as easy as you would have saved it before. 'Define the SaveAs dialog How to Download Emails from Outlook as a PDF | Adobe Acrobat Now, run Microsoft Word and open the HTML document you just saved using the File > Open menu. Set WshShell = CreateObject("WScript.Shell") Clicking on the Show Desktop icon or pressing the Windows Logo key + M on your keyboard will also minimize everything. Copyright 2023 Adobe. To recover; The following code is contained in the zip-file referenced in the Quick Install. You can use the code below for review or manual installation. Click Save . Below is explained how you can do this and several examples are listed to get your started. To save your Microsoft Outlook emails as PDF for offline use, utilize your desktop computer's virtual PDF printer to print your emails in PDF format. Click Add and navigate to C:\Program Files (x86)\Adobe\Acrobat 2015\PDFMaker\Office\PDFMOfficeAddin.dll. Exit Sub Then click Kutools > Bulk Save, see screenshot: 3. A reasonable effective workaround for this issue is to load the VBA Editor just once during the Outlook session. Dim wrdApp As Word.Application 'Close Word You can also select Save Attachments on the File menu. Choose the account you want to sign in with. Enter a file name and then tap Save a Copy. Select the email message that you want to save as Pdf file without header. ' Microsoft Word Object Library "2. This macro requires a reference added to the By using a professional method, you can streamline the process, ensure data integrity, and efficiently save your Outlook emails to PDF, including attachments, in bulk. Dim objItem As Object If this not work,. vbCritical, "SaveAllAsPDFfile") intPos = InStrRev(strCurrentFile, ".") Click 'More actions' (the three horizontal dots to the right of the sender's email). Click the File > Save as menu. 'Here we base it on the ReceivedDate and the subject. Open Outlook and log into your account, if needed. This means that any characters within the subject that cant be part of the filename are removed. However, the . wrdApp.Quit 'Retrieve the selected item Click button beside the Select Save Path text box to select a folder to put the new converted file; (2.) i = 0 Click "OK" to execute the command, and a prompt confirming "DllRegisterServer succeeded" should appear. 'Construct a safe file name from the message subject Saving emails as pdf-files - MSOutlook.info ' Missing Adobe Acrobat tab even when add-in is enabled in Office 2016 Open the email, press control + P on Windows or Mac and press command + P to be taken directly to the Print Menu (5). 2. 'Show the SaveAs dialog and save the message as pdf End If Dim FSO As Object, TmpFolder As Object Save this file to the Windows Desktop and name the file "backup". On the File tab click Save as. Click "Start > Run" (or "Start > All Programs > Accessories > Run" on Windows Vista/Windows 7). Save email message as PDF file without header with Kutools for Outlook. Use the following instructions to configure the macro in Outlook; A button can be added to the main Outlook window or to any of the open item windows. 'Save the mht-file "5. If InStr(1, fdf.Extensions, "pdf", vbTextCompare) > 0 Then Press CTRL+C to copy the code. In the Save as dialog, specify the folder and the filename of the file. Attachment Tools: Manage All Attachments in All Mails. Regards, Bob J. strCurrentFile = dlgSaveAs.SelectedItems(1) Set wrdDoc = wrdApp.Documents.Open(FileName:=tmpFileName, Visible:=False) PDF Converter button is not displayed in Microsoft Outlook ", _ 'Make sure the file name is safe for saving '================================================================= Set wrdDoc = wrdApp.Documents.Open(FileName:=tmpFileName, Visible:=False) To add AdobePDF to your ribbon, right-click any of the items that do appear in your ribbon (Home, File, Send / Receive, etc). Create PDFs with PDFMaker in Adobe Acrobat (Windows), Rotate | move | delete and renumber PDF pages, Do not sell or share my personal information. Select COM Add-ins next to Manage and click Go. Dim dlgSaveAs As FileDialog wrdApp.Quit PDF Printers can be selected and used like any other real printer. I'm having this same problem where Outlook saves my pdf as a portfolio. Via a macro you can use Word's capabilities to save messages as PDF-files as well. Click 'Print' and on the next dialog box, click 'Print' again. CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ To create a PDF from an Outlook email, follow these steps: In Outlook, select File > Print to bring up the printer dialog. Use PDF format when you want a file that: Looks the same on most computers. We're sorry for the delayed response and inconvenience caused. Feel free to update this discussion for any further assistance. If intPos > 0 Then 'Loop through the Filters and exit when "pdf" is found Below youll find a couple of common issues which you could run into when using this macro and how to resolve them. After opening your Outlook, select the email that you want to convert to PDF, then click the " File " > " Save as " button to save it as the .html file format on your computer. Word, Excel and PowerPoint files can be saved directly as pdf-files. File extension disappears when saving PDFs from Outlook 2016 Select "PDF Converter 6.0 Outlook Add-in". line. strSaveFileLocation, ExportFormat:= _ objItem.SaveAs tmpFileName, olMHTML 1. 'Construct save path Kutools for Outlook - Brings 100 Advanced Features to Outlook, and Make Work Much Easier! For Each fdf In fdfs Dim objSelection As Outlook.Selection Note:It could take some time before the Save As dialog is shown as the macro first needs to load Word in the background. Select the "File" tab or menu item located in the Word window's top-left corner. Can this file be opened correctly before you supply the file extension manually? Via the Adobe PDF tab in Outlook 2010, you can easily create pdf-files. wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=0, To:=0, _ Dim WshShell As Object The SaveAsPDF macro uses Words capabilities to save documents as pdf-file. I am using Outlook 365. Dim objOL As Outlook.Application Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Back to, Reply (All) With All Attachments in the mail conversation. 'Save as pdf strFileName = objItem.Subject a user installed the Adobe Acrobat Pro version and is running MS O365. Now when you run the macro, the Save As dialog will pop-up in the front. Attachment saving not working as expected - Outlook I am using Outlook 365. Then click Kutools > Bulk Save, see screenshot: 3. Response = MsgBox("Sorry, only saving in the pdf-format is supported." And I'll be happy to help you out today. Important: The Office apps automatically save as you work. How to Save Outlook Email as PDF? - Outlook Transfer Open up your inbox in outlook.com. Locate the "PDF Converter 6.0 Outlook Add-in" option and please a check in the checkbox. How to Saving Outlook Email as PDF File in Easy Steps Select "Save As" from the menu. This macro requires a reference added to the Click the three dots in the top-right corner of the message. ", _ Set wrdDoc = Nothing For Each objItem In objSelection Click the"Go" button next to "COM Add-ins" at the bottom of the window. Open or save attachments - Microsoft Support If objSelection.Count > 0 Then wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _ 'Oops, nothing is selected Any hyperlinks within the message will remain fully functional as well. Here's how: In Outlook, open the message you want to convert. BitmapMissingFonts:=True, UseISO19005_1:=False In Acrobat DC's Edit | Preferences | Convert to PDF dialog, there's no choice for Microsoft Outlook conversion preferences. ""<>|]" 'version: 2.0 'Get all selected items Type in "regedit" without the quotes and click "OK". At the top of the message list, select Recover items deleted from this folder. oRegEx.Global = True Close Word, and then open it again. Are you using Windows 10? For instance, it can save a message together with its attachments into a single pdf-file. To do this, open an Office 2016 application, and click File > Account > Update Options > Update Now. The Save As PDF add-in from Sperry Software provides similar functionality as the Adobe Acrobat add-in for Outlook but is probably more affordable for most as it is built specifically for this task. However, there are still several ways to achieve this. oRegEx.Pattern = "[\/:*? Close and restart the Office 2016 application. Set FSO = CreateObject("scripting.filesystemobject") Another option is to automatically convert your (new) messages to pdf-files for archiving purposes on a set interval. If I click on Add-In properties I get a message that says "There are no add-in property pages to display". i = i + 1 Set objSelection = Nothing 4. Dim strFileName As String Exit For Exit Sub If it isn't, check the box to enable it. A new modal should pop upunder 'Destination,' choose 'Save as PDF.'. strName = "www_howto-outlook_com" Save a message as a file - Microsoft Support Macro appears to do nothingIf the macro used to work and when you are sure the Save As dialog isnt hidden in the background but the macro suddenly stopped working, it is likely that the WINWORD.EXE process crashed the last time you were working with the macro. In the Save As dialog box, navigate to the folder where you want to save the file. PDF printers are virtual printers which you can select from your list of printers, but instead of printing to paper it produces a pdf-file. Else 'Cleanup In addition, you can set message actions for what happens after it has been converted to a pdf-file. Acrobat DC - Settings for converting Outlook email to PDF? ' Set fdfs = Nothing Set objOL = Outlook.Application wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=0, To:=0, _ Alternatively, you can use File> Print then click the PDF button at the bottom of the dialog window & select Save as PDF. Dim SpecialPath As String Save e-mail messages or entire folders as pdf-file, Save embedded pictures in their original format, Create a Contact Group from selected Contacts, Standardize Contacts Full Name and File As format, Applying message rules to the Junk E-mail folder, Outlook 365 / 2021 / 2019 / 2016 Update for July 2023, Outlook 2016 (MSI) Security Update for July 2023, Outlook 2013 Security Update for July 2023, Outlook for Microsoft 365 Apps Feature Update for June 2023, Outlook 365 / 2021 / 2019 / 2016 Update for June 2023, Remove External tag from Outlook Message List, Blocking spam emails with hidden or missing From address, Folder sorting order in Shared Mailbox changes back randomly, How to install and run the New Outlook and Classic Outlook side by side, Navigation Pane is on the left instead of bottom of the Folder List, Support and Recovery Assistant for Office 365 (SaRA), Open the VBA Editor (keyboard shortcut ALT+F11), Close any open Word document and also verify that the. 3. Go to File > Options > Add-Ins > Manage: COM Add-Ins, and then click Go . To do this you must alter the following line; If youd like to replace them with a dash (-) character, you must change it into; If youd only want replace some characters but drop the others, you can do something like this; As mentioned, this modification is also included in the SaveAllAsPDF macro and added via these two lines; The date and time format is determined via the y (year), m (month), d (day), h (hour), m (minute) and s (seconds) definition at the end of the first line. Set FSO = CreateObject("scripting.filesystemobject") Select the email message that you want to save as Pdf file without header. Open your "Word or Excel document" that already exists or "create a new one". Acrobat converts Outlook emails to Portfolio format, apparently by default. If this option is missing the add-in may need to be enabled. How can I tell Acrobat to convert to PDF rather than to Portfolio (except when there are attachments)? 2. 'author : Robert Sparnaaij After installing Kutools for Outlook, please do as this: 1. 1. Dim objOL As Outlook.Application strName = "www_howto-outlook_com" Discover Community Get the Adobe Acrobat tab to appear - Microsoft Support strFileName = DateTimeFormatted & " - " & objItem.Subject Then uncheck "Output to Adobe PDF Portfolio" as suggested by AnandSri. "A little knowledge is a dangerous thing." - Alexander Pope Regards, Bob J. Solution 1: Enable the PDF Converter button For Microsoft Outlook 2007: Launch Microsoft Outlook 2007. The suggested file name for saving the pdf-file is created by the macro and is a safe version of the subject of the selected email. How to Save Outlook Email As a PDF on a PC or Mac - Business Insider DateTimeFormatted = Format(objItem.ReceivedTime, "yyyy-mm-dd_hh-mm-ss") Exit the registry key editor and restart the Office 2016 application. Set tmpFileName = FSO.GetSpecialFolder(2) strCurrentFile, ExportFormat:= _ 3. In the list of available add-ins, find the Acrobat PDFMaker COM Add-in and check if it's enabled. Dim dlgFolderPicker As FileDialog ' pdf-format. If Acrobat PDFMaker Office COM Addin doesn't show under the Active Application Add-ins Under Manage: use the . Dim WshShell As Object In the left pane, select the Deleted Items folder. The Adobe Acrobat tab should now appear. oRegEx.Pattern = "[\/:*? Save As PDF option not available in Office - Ticket System - Swizznet Select on the picture > Right Click > Size and Properties >Under properties > Check Print Object. strCurrentFile = Left(strCurrentFile, intPos - 1) 'Feel free to alter the file name defintion and date/time format to your liking 'Get the user's TempFolder to store the item in Right-click on "DisabledItems" and select "Delete". Besides saving a single message or all selected messages as pdf-files at once, it also allows you to monitor folders and set conditions to create pdf-files automatically with a preconfigured naming conventions. ' close the document and Word To turn off a specific attachment previewer, click Attachment and Document Previewers, clear the check box for a previewer you want to turn off, and then click OK. By continuing to use this site, we'll assume you're ok with this, but you can opt-out if you wish. ElseIf Response = vbOK Then tmpFileName = tmpFileName & "\" & strName & ".mht" wrdApp.Quit When this happens, minimizing your Outlook screen by selecting it on the Windows Task Bar (as the Outlook windows itself will be inaccessible) should reveal the Save As dialog. There are also many options available to set the compatibility, whether or not to include the attachments in the pdf-file and configure security, encryption and password settings. Set FSO = Nothing Select the check box for Acrobat PDFMaker Office COM Addin, and then click Remove. The Kutools for Outlooks Bulk Save feature can help you to save multiple emails as Pdf, Html, Excel or other files as you need. Save as PDF option in Outlook Missing - Adobe Support Community In the Save messages as other files dialog box: (1.) Set oRegEx = Nothing To do this, press ALT+F11 and then directly close it again. Type the following in the Run dialog box: Click "OK" to execute the command, and a prompt confirming "DllUnregisterServer succeeded" should appear. Step 3. Click "Start > Run" ("Start > All Programs > Accessories > Run" on Windows Vista/Windows 7). Find this registry key: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\Word\Addins\PDFMaker.OfficeAddin. 'Construct the unique file name to prevent overwriting. You can alter the format and/or separator character if you want but the order above will help sorting the saved items chronologically. Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ Click in the area above and press CTR+A to select all. Choose where you want to save the file. Acrobat DC - Settings for converting Outlook email /t5/acrobat-discussions/acrobat-dc-settings-for-converting-outlook-email-to-pdf/td-p/10016757, /t5/acrobat-discussions/acrobat-dc-settings-for-converting-outlook-email-to-pdf/m-p/10016758#M112155, /t5/acrobat-discussions/acrobat-dc-settings-for-converting-outlook-email-to-pdf/m-p/11458752#M278471, /t5/acrobat-discussions/acrobat-dc-settings-for-converting-outlook-email-to-pdf/m-p/11458777#M278473. 'Important! Response = MsgBox("Please select a single item", vbExclamation, "Save as PDF") Want more options? 'Create a Word object Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ 'Important! Set fdfs = dlgSaveAs.Filters Simply print your email to this printer and youll be prompted to save the output as a pdf-file. I just found the answer to my own question.. Acrobat DC - Settings for converting Outlook email to PDF? But there are several scenarios in which you can't save the attachment as expected. Set objOL = Nothing vbNewLine & vbNewLine & "Save as pdf instead? Please make a selection first. Youll be prompted to select the folder to save the messages to. These can of course be used in any application which offers a Print function and not just Outlook. Click in the area above and press CTR+A to select all. '================================================================= ' 'Show Select Folder dialog for output files