Convert msg files (Outlook Emails) to pdf at specific folder

[JBMS]

Hi Team,

I am using the below code to Convert msg files (Outlook Emails) to pdf at specific folder. The code is converting text emails to PDF, however could not convert the emails which has tables and images/pictures in the body of the email. The entire message which is in body of the email is not captured in PDF and data is cropped.

Need your help for VBA code to convert emails which has tables and images/pictures in body of the email to PDF format.

1. Sub MSG_to_PDF()
2. 
   
3. Dim objOL As Object, Msg As MailItem, ThisFile As String
4. 
   
5. On Error GoTo 0
6. 
   
7. 'Set our folder to where the 'MSG' files are held
8. InPath = "C:\temp\msg_to_pdf"
9. 
   
10. 'Look for *.msg files in our folder
11. ThisFile = Dir(InPath & "\*.msg")
12. If (ThisFile = "") Then ' no file found so exit
13. Exit Sub
14. End If
15. 
    
16. 'Open up Outlook for our use
17. Set objOL = CreateObject("Outlook.Application")
18. 
    
19. 'Open up Word , which will do the actual conversion from MHT (MIME HTML) to PDF
20. Dim wrdApp As Word.Application
21. Dim wrdDoc As Word.Document
22. Set wrdApp = CreateObject("Word.Application")
24. 'wrdapp.visible (uncomment to see the Word instance!)
26. 'Loop through our MSG files..
27. Do While ThisFile <> ""
29. 'Open our MSG file
30. Set Msg = objOL.Session.OpenSharedItem(InPath & "\" & ThisFile)
32. 'Sort oout file name plus the new extensions
33. New_FileName = Left(ThisFile, Len(ThisFile) - 3)
34. Mht_File = New_FileName + "mht"
35. PDF_FILE = New_FileName + "PDF"
37. 'Save our MSG file as 'MHT' format
38. Msg.SaveAs InPath + "\" + Mht_File, 10 '10 = olMHTML
39. 
    
40. 'Open the mht file in Word without Word being visible
41. Set wrdDoc = wrdApp.Documents.Open(Filename:=InPath + "\" + Mht_File, Visible:=False)
42. 
    
43. 'Save as pdf
44. wrdDoc.ExportAsFixedFormat OutputFileName:= _
45. InPath + "\" + PDF_FILE, ExportFormat:= _
46. wdExportFormatPDF
48. 'Close our Word DOC(the MHT file)
49. wrdDoc.Close
51. 'get next file...
52. ThisFile = Dir()
53. 
    
54. Loop
55. 
    
56. Set objOL = Nothing
57. Set Msg = Nothing
58. Set wrdApp = Nothing
59. Set wrdDoc = Nothing
60. 
    
61. 'Remove the MHT temporary files..- did try immediately after Word closes the MHT file, but would have to create time/pause, as Word takes a while...
62. Kill InPath + "\*.MHT"
63. 
    
64. x = MsgBox("Conversion(s) done")
65. 
    
66. End Sub

 

[JBMS]

Hi Team.

Need your help for the above requirement.

 

[Domenic]

I haven't tested your code, but it seems that you could use the ExportAsFixedFormat method of the WordEditor object of the email, instead of the ExportAsFixedFormat method of Word's Document object. There would be no need to open the file in Word before exporting it to PDF. And it should be more efficient. So, for example, you could export your email message to PDF as follows . . .

Msg.GetInspector.WordEditor.ExportAsFixedFormat OutputFileName:="c:\path\filename.pdf", ExportFormat:=17 'wdExportFormatPDF

Hope this helps!

 

[JBMS]

Hi Domenic,

Thank you for your kind response. I do not access to wordEditor application.

Request you to please help with other options.

 

[Domenic]

Actually, the WordEditor property of the Inspector object exists within the Outlook object library. It returns the Word Document object library of the message.

Have you tried it?

 

[JBMS]

Hi Domenic,

As suggested above, i have made changes to the code, however still facing the same issue. Could not convert the emails which has tables and images/pictures in the body of the email. The entire message which is in body of the email is not properly captured in PDF and data is cropped.

The code is below(The highlighted line was changed). Request you to please help.

1. Sub MSG_to_PDF()
2. 
   
3. Dim objOL As Object, Msg As MailItem, ThisFile As String
4. 
   
5. On Error GoTo 0
6. 
   
7. 'Set our folder to where the 'MSG' files are held
8. InPath = "C:\temp\msg_to_pdf"
9. 
   
10. 'Look for *.msg files in our folder
11. ThisFile = Dir(InPath & "\*.msg")
12. If (ThisFile = "") Then ' no file found so exit
13. Exit Sub
14. End If
15. 
    
16. 'Open up Outlook for our use
17. Set objOL = CreateObject("Outlook.Application")
18. 
    
19. 'Open up Word , which will do the actual conversion from MHT (MIME HTML) to PDF
20. Dim wrdApp As Word.Application
21. Dim wrdDoc As Word.Document
22. Set wrdApp = CreateObject("Word.Application")
23. 
    
24. 'wrdapp.visible (uncomment to see the Word instance!)
25. 
    
26. 'Loop through our MSG files..
27. Do While ThisFile <> ""
28. 
    
29. 'Open our MSG file
30. Set Msg = objOL.Session.OpenSharedItem(InPath & "\" & ThisFile)
31. 
    
32. 'Sort oout file name plus the new extensions
33. New_FileName = Left(ThisFile, Len(ThisFile) - 3)
34. Mht_File = New_FileName + "mht"
35. PDF_FILE = New_FileName + "PDF"
36. 
    
37. 'Save our MSG file as 'MHT' format
38. Msg.SaveAs InPath + "\" + Mht_File, 10 '10 = olMHTML
39. 
    
40. 'Open the mht file in Word without Word being visible
41. Set wrdDoc = wrdApp.Documents.Open(Filename:=InPath + "\" + Mht_File, Visible:=False)
42. 
    
43. 'Save as pdf
44. Msg.GetInspector.WordEditor.ExportAsFixedFormat OutputFileName:="c:\path\filename.pdf", ExportFormat:=17 'wdExportFormatPDF
45. InPath + "\" + PDF_FILE, ExportFormat:= _
46. wdExportFormatPDF
47. 
    
48. 'Close our Word DOC(the MHT file)
49. wrdDoc.Close
50. 
    
51. 'get next file...
52. ThisFile = Dir()
53. 
    
54. Loop
55. 
    
56. Set objOL = Nothing
57. Set Msg = Nothing
58. Set wrdApp = Nothing
59. Set wrdDoc = Nothing
60. 
    
61. 'Remove the MHT temporary files..- did try immediately after Word closes the MHT file, but would have to create time/pause, as Word takes a while...
62. Kill InPath + "\*.MHT"
63. 
    
64. x = MsgBox("Conversion(s) done")
65. 
    
66. End Sub

 

[Domenic]

Sorry, in that case, I don't know why it does not export to PDF properly. Hopefully someone else here will be able to help.

Cheers!

 

[JBMS]

Hi Team,

Need your help for the above requirement.

 

[N00bie]

Hi Team,

Need your help for the above requirement.

Hi Domenic,

As suggested above, i have made changes to the code, however still facing the same issue. Could not convert the emails which has tables and images/pictures in the body of the email. The entire message which is in body of the email is not properly captured in PDF and data is cropped.

The code is below(The highlighted line was changed). Request you to please help.

1. Sub MSG_to_PDF()
2. 
   
3. Dim objOL As Object, Msg As MailItem, ThisFile As String
4. 
   
5. On Error GoTo 0
6. 
   
7. 'Set our folder to where the 'MSG' files are held
8. InPath = "C:\temp\msg_to_pdf"
9. 
   
10. 'Look for *.msg files in our folder
11. ThisFile = Dir(InPath & "\*.msg")
12. If (ThisFile = "") Then ' no file found so exit
13. Exit Sub
14. End If
15. 
    
16. 'Open up Outlook for our use
17. Set objOL = CreateObject("Outlook.Application")
18. 
    
19. 'Open up Word , which will do the actual conversion from MHT (MIME HTML) to PDF
20. Dim wrdApp As Word.Application
21. Dim wrdDoc As Word.Document
22. Set wrdApp = CreateObject("Word.Application")
23. 
    
24. 'wrdapp.visible (uncomment to see the Word instance!)
25. 
    
26. 'Loop through our MSG files..
27. Do While ThisFile <> ""
28. 
    
29. 'Open our MSG file
30. Set Msg = objOL.Session.OpenSharedItem(InPath & "\" & ThisFile)
31. 
    
32. 'Sort oout file name plus the new extensions
33. New_FileName = Left(ThisFile, Len(ThisFile) - 3)
34. Mht_File = New_FileName + "mht"
35. PDF_FILE = New_FileName + "PDF"
36. 
    
37. 'Save our MSG file as 'MHT' format
38. Msg.SaveAs InPath + "\" + Mht_File, 10 '10 = olMHTML
39. 
    
40. 'Open the mht file in Word without Word being visible
41. Set wrdDoc = wrdApp.Documents.Open(Filename:=InPath + "\" + Mht_File, Visible:=False)
42. 
    
43. 'Save as pdf
44. Msg.GetInspector.WordEditor.ExportAsFixedFormat OutputFileName:="c:\path\filename.pdf", ExportFormat:=17 'wdExportFormatPDF
45. InPath + "\" + PDF_FILE, ExportFormat:= _
46. wdExportFormatPDF
47. 
    
48. 'Close our Word DOC(the MHT file)
49. wrdDoc.Close
50. 
    
51. 'get next file...
52. ThisFile = Dir()
53. 
    
54. Loop
55. 
    
56. Set objOL = Nothing
57. Set Msg = Nothing
58. Set wrdApp = Nothing
59. Set wrdDoc = Nothing
60. 
    
61. 'Remove the MHT temporary files..- did try immediately after Word closes the MHT file, but would have to create time/pause, as Word takes a while...
62. Kill InPath + "\*.MHT"
63. 
    
64. x = MsgBox("Conversion(s) done")
65. 
    
66. End Sub

Hi, wld like to know if anyone managed to resolve this? Images in .msg gets truncated when being converted to .pdf