Current work book .xlsm convert to xlsx work book then mail

Hi,

I need some help in macro to convert the current macro enable work to normal work book & then e-mail. I've to send these to employees, after filling these sheets employee should be able to send in one click. Finally i need .xlsx out file from all employees as file name as there employee ID.

Before e-mail i want a print preview of the sheet, then a msg box to make sure that the file is saved then mail the .xlsx workbook if it's not saved terminate the mail program stating that file is not saved.

Can you please help me in convert the .xlsm to .xlsx work book before it get attached to e-mail. File attachment in mail should have only there employee ID (Emp_ID.xlsx).


Note: I've two sheets in this work books & all these three sheets should be available as it is without any change.

Hey there VCare

Where are you saving to: Your path...i.e.
"C:\Users\Steven\Desktop"

Hi,
Insert red part in your code. This will save current file as .xlsx file and attach it to email.

Please Login or Register  to view this content.

Hi sintek,

Here the thing is i'll be sending macro enabled file to employees. As out put individual employees should fill the data in the file & click on Print & E-Mail, which should give me an out put in mail with excel work book. So in the folder option i'm expecting it should pick by it's own when employee save the initial document.

Is this is possible?

Hi kasan,

thanks for you inputs. It was working fine. I just want to make a small change. I just want to mention a cell referent in file name. but im getting type match error.

ActiveWorkbook.SaveAs Filename:=file_path + "\" + ActiveSheet.Range("B4").Value + ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Can you please correct me on this.

Hi kasan,

thanks for you inputs. It was working fine. I just want to make a small change. I just want to mention a cell referent in file name. but im getting type match error.

ActiveWorkbook.SaveAs Filename:=file_path + "\" + ActiveSheet.Range("B4").Value + ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Can you please correct me on this.

I would recommend to convert value of B4 to string, because "Filename" parameter should be string. If Range("B4").Value = 1234 (assuming its some kind of ID number) then this will rise error.
Try this one:

Please Login or Register  to view this content.