I have this code to send PDF files but now I need to send word document instead of PDF, could someone help to adjust the code:
Sub PDFXX()
Dim SaveAsStr As String
'SaveAsStr = ActiveWorkbook.Path & "\" & ActiveSheet.Range("J1").Value
SaveAsStr = ActiveSheet.Range("J1").Value...