Set tFolder = fs.CreateFolder(locFolder & "Converted") Set fs = CreateObject("Scripting.FileSystemObject") Loop Until (fileType = "TXT" Or fileType = "RTF" Or fileType = "HTML" Or fileType = "PDF") LocFolder = InputBox("Enter the folder path to DOCs", "File Conversion", "C:\Users\your_path_here\")įileType = UCase(InputBox("Change DOC to TXT, RTF, HTML or PDF(2007+ only)", "File Conversion", "TXT")) If you need to convert multiple Word files to other formats, like TXT, RTF, HTML or PDF, run the script below. Importance = olImportanceNormal 'Or olImportanceHigh Or olImportanceLow If VName.Value = "INTEGRATED ASSEMBLY" Then & "*******For your records you may wish to print out the completed quote form. & "The information on attached quotation form is not a contract and only an estimate of predetermined costs per hourly rate for outsource assemblies. If adjustments and-or corrections are required, please feel free to contact us for quick resolution. & "As part of this process, please review the quotation form attached and indicate your acceptance. You have been selected to build these assemblies according to the attachment. & "We have recently released subject project, which will contain assemblies to be outsourced. Subject = "QFORM" & "_" & JNumber.Value & "_" & VName.Value Set EmailItem = OL.CreateItem(olMailItem)ĭoc.SaveAs2 ("QFORM" & "_" & JNumber.Value & "_" & VName.Value) Set OL = CreateObject("Outlook.Application")
#Outlook for mac convert email to pdf code
I have tried adding ,".pdf" at the end of my SaveAs2 line, which changed and attached the file format as pdf, however, when attempting to open the file it does not display and gives me a message that the file did not have all it's code when sent as an attachment.
#Outlook for mac convert email to pdf pdf
I would like to convert my Word Doc to a pdf and send it as an attachment as part of my constructed Outlook email.
0 kommentar(er)
