End If wrdDoc.Close Compile error: User-defined type not definedWhen you get this error, most likely the line Dim wrdApp As Word.Application is highlighted as well. We store all resolved problems in our solution database. Open your "Word or Excel document" that already exists or "create a new one". "2. Exit Sub BitmapMissingFonts:=True, UseISO19005_1:=False CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ Click 'More actions' (the three horizontal dots to the right of the sender's email). Set objItem = objSelection.Item(1) ' Dim FSO As Object, TmpFolder As Object Click Add, and navigate to C:\Program Files (x86)\Adobe\Acrobat DC\PDFMaker\Office\PDFMOfficeAddin.dll . To do this, open an Office 2016 application, and click File > Account > Update Options > Update Now. In short, it saves the selected message (or any other Outlook item) in the mht-format which is then opened in the background in Word where a Save As operation is initiated for the pdf-format. A reasonable effective workaround for this issue is to load the VBA Editor just once during the Outlook session. ' In VBA Editor: Tools-> References 'Save the mht-file ""<>|]" Close Word, and then open it again. 'website: https://www.howto-outlook.com/howto/saveaspdf.htm 1. strSaveFilePath = dlgFolderPicker.SelectedItems.Item(1) Where is Save As? - Microsoft Support You select Save All Attachments for an email message that has multiple attachments, and you specify a network location as the destination. Click Add and navigate to C:\Program Files (x86)\Adobe\Acrobat 2015\PDFMaker\Office\PDFMOfficeAddin.dll. ' pdf-format. Exit For Acrobat DC - Settings for converting Outlook email to PDF? Dim objOL As Outlook.Application Before you try any of the steps below, ensure your version of Adobe Acrobat is compatible with Office 2016. Then click OK button, and the selected email message has been saved as PDF file without header as following screenshot shown: Click to download Kutools for Outlook and free trial now! Troubleshoot attachment problems in Outlook - Microsoft Support Set oRegEx = CreateObject("vbscript.regexp") Please make a selection first. Another way is to use the VBA macro in this guide which uses Words capabilities to save documents in the pdf-format. strCurrentFile, ExportFormat:= _ Screen Reader users press enter to select a Filter by product. wrdDoc.Close I go to options, then Add-Ins. Set objOL = Nothing Set oRegEx = CreateObject("vbscript.regexp") 'Cleanup & _ 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. wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _ Besides saving a single message or all selected messages as pdf-files at once, it also allows you to monitor folders and set . A benefit of this macro over most pdf-printers is that any hyperlinks within the message will continue to work and any Internet images are automatically downloaded too. I am using Outlook 365. 2. strCurrentFile = Left(strCurrentFile, intPos - 1) Kutools for Outlook - Brings 100 Advanced Features to Outlook, and Make Work Much Easier! Any pending input will be lost. I looked in Addins to see if Adobe was disabled, however, there was no option. Normally, you can save the email message as Pdf file with Print function in Outlook. Set wrdDoc = wrdApp.Documents.Open(FileName:=tmpFileName, Visible:=False) How to convert emails to PDFs in Outlook | Adobe Acrobat Dim i As Integer Then click Kutools > Bulk Save, see screenshot: 3. Besides a dedicated Outlook PDF add-in, it also comes with a PDF printer which lets you create pdf-files from any other application as well. For Each objItem In objSelection 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. The Kutools for Outlooks Bulk Save feature can help you to save multiple emails as Pdf, Html, Excel or other files as you need. In the Save messages as other files dialog box: (1.) ", _ If Acrobat PDFMaker Office COM Addin doesn't show under the Active Application Add-ins Under Manage: use the . Dim fdf As FileDialogFilter Dim SpecialPath As String Despite having only a single Save As PDF button, the add-in holds a lot of settings which closely matches the Adobe PDF add-in. strFileName = Trim(oRegEx.Replace(strFileName, "")) It can also monitor specified folders and automatically save messages as pdf-files in the background for archiving purposes.If you decide to order use BH93RF24 to get a discount. Set wrdApp = Nothing Create PDFs with PDFMaker in Adobe Acrobat (Windows), Rotate | move | delete and renumber PDF pages, Do not sell or share my personal information. Save a message as a file - Microsoft Support Dim dlgFolderPicker As FileDialog To open the print overview, click on it. Clicking on the Show Desktop icon or pressing the Windows Logo key + M on your keyboard will also minimize everything. 'Create a Word object Dim strFileName As String Set tmpFileName = FSO.GetSpecialFolder(2) Else Use PDF format when you want a file that: Looks the same on most computers. Else Set objSelection = objOL.ActiveExplorer.Selection You can use the Office programs to save or convert your files to PDFs so that you can share them or print them using commercial printers. 4. objItem.SaveAs tmpFileName, olMHTML Dim FSO As Object, TmpFolder As Object If this not work,. Cannot Save as Adobe PDF - Microsoft Community If Response = vbCancel Then Meanwhile, I will send you a test PDF file via the private message , please check if the issue persists. If objSelection.Count <> 1 Then '================================================================= Click the"Go" button next to "COM Add-ins" at the bottom of the window. Important: The Office apps automatically save as you work. Type the following in the Run dialog box: Click "OK" to execute the command, and a prompt confirming "DllUnregisterServer succeeded" should appear. Save this file to the Windows Desktop and name the file "backup". Depending on your needs, you may want to modify this suggested file name. Dim dlgSaveAs As FileDialog When you have multiple Outlook windows open, hold SHIFT while right clicking on the Outlook icon and choose Minimize all windows. Select COM Add-ins next to Manage and click Go. The SaveAsPDF macro uses Words capabilities to save documents as pdf-file. Regards, Bob J. If InStr(1, fdf.Extensions, "pdf", vbTextCompare) > 0 Then Response = MsgBox("Please select a single item", vbExclamation, "Save as PDF") Open the VBA Editor (keyboard shortcut ALT+F11) Extract the zip-file and import the SaveAsPDF.bas and/or SaveAllAsPDF.bas file via File-> Import. Set objOL = Outlook.Application End If End If Alternatively, you can use File> Print then click the PDF button at the bottom of the dialog window & select Save as PDF. In Acrobat DC's Edit | Preferences | Convert to PDF dialog, there's no choice for Microsoft Outlook conversion preferences. You turn file preview on or off in the Trust Center. Export a backup copy ofthe Registry in case problems occur during the following procedure byclicking "File > Export Registry File". 'Set the initial location and file name for SaveAs dialog Now when you run the macro, the Save As dialog will pop-up in the front. Similarly to adding the date and time, you could add the senders name or email address to the file name. And then, in the Save Content section, only check Body checkbox. Click Save . Can all of PDF documents or scanned PDF documents not be saved to a local folder with the file extension? 'Make sure at least one item is selected First, open up your inbox in Outlook and locate the email. There are multiple solutions for this issue. Word, Excel and PowerPoint files can be saved directly as pdf-files. Select "Save As" from the menu. How can I tell Acrobat to convert to PDF rather than to Portfolio (except when there are attachments)? In Work click File (note that "Save as Adobe PDF" is actually displaying) "3. And you won't need any other software or add-ins. In Outlook, open the e-mail message you want to save as PDF. Save As PDF option not available in Office - Ticket System - Swizznet Email messages that include attachments are identified by a paper clip icon in the message list. Both methods do exactly the same thing. If objSelection.Count > 0 Then Get the Adobe Acrobat tab to appear - Microsoft Support 'Make sure the file name is safe for saving 'Get all selected items Open or save attachments - Microsoft Support Feel free to update this discussion for any further assistance. 'construct the filename for the temp mht-file Then check PDF format in the left list box; 'Retrieve the selected item Click the three dots in the top-right corner of the message. Discover Community To do this, press ALT+F11 and then directly close it again. Note:It could take some time before the Save As dialog is shown as the macro first needs to load Word in the background. Right-click on "DisabledItems" and select "Delete". Dont open PDFs full screen in Windows 8 Reader, Print a Calendar with Appointment and Meeting Notes, 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, Outlook cant send after upgrading to Windows 10, Setting the Sent Items folder for IMAP accounts in Outlook 2013 or Outlook 2016, Links do not open: This operation has been cancelled due to restrictions, 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. Right click Word icon in start menu and More --> Run as Administrator. 'Construct save path Choose where you want to save the file. Microsoft and the Office logo are trademarks or registered trademarks of Microsoft Corporation in the United States and/or other countries. wrdDoc.ExportAsFixedFormat OutputFileName:= _ Dim wrdApp As Word.Application wrdApp.Quit Exit Sub Click the File > Save as menu. We're sorry for the delayed response and inconvenience caused. In the Save as type box choose HTML. Click the File tab and select Save As . How to Saving Outlook Email as PDF File in Easy Steps Enable the Acrobat PDFMaker Add-in Open any Office 2016 application and click File > Options > Add-ins. Response = MsgBox("Sorry, only saving in the pdf-format is supported." I am using Outlook 365. The available options go well beyond what the macro in this guide or any pdf-printer can do. I can see PDFMaker on the list but cannot figure out how to get to the properties. objItem.SaveAs tmpFileName, olMHTML 'author : Robert Sparnaaij Once everything looks good, select Print. Sub SaveAsPDFfile() Security Note: Outlook accepts a wide variety of different file types, but blocks potentially unsafe attachments (including .bat, .exe, .vbs, and .js files) that can contain viruses.Even with Outlook attachment protection, be careful in opening any . intPos = InStrRev(strCurrentFile, ".")