Call a beforesave macro in an email macro

Hi there,

I have a beforesave macro that checks for any missing data that is required. It has message boxes that pop up and such to let users know they are missing data. I also have a mail macro where the user can press a submit button and it prompts the workbook to mail out. Obviously this mail macro does not have any sort of validation to check whether the required values are actually present. Is there any way i can call the beforesave macro into the mail macro?

Code for Beforesave (In Workbook module)

Please Login or Register  to view this content.

Mail Macro (In Module 1)

Please Login or Register  to view this content.

Any help is appreciated.

Thanks!

Originally Posted by ragavan.sridar1

May be you can try like

Please Login or Register  to view this content.

My guess is that as you already have an before save macro it will go and check it and then proceed with your email macro..

again this is just a guess...

Thanks for the quick reply man.

I have this code already in my mail macro

Please Login or Register  to view this content.

It already has a saveas feature in it because it saves it to a temporary new file before emailing out then deleted the file after.

I've tried using Option Private Module at the top then calling the beforesave macro using the following code:

Please Login or Register  to view this content.

I tried putting the Activeworkbook.save at the beginning and it starts to seem like it's working. But once it hits the above .saveas code for the mail portion, it seems to ignore the .save and proceeds with the email. Any ideas?

Tried it and it still didn't work

Also tried this:

Please Login or Register  to view this content.

This still didn't work. It seems to run through the beforesave code and displays the proper message boxes for fields missing but then once it gets to this point:

Please Login or Register  to view this content.

It's like this portion of the code ignores anything else in the macro. I need to add something right before that .saveas i think. Any ideas?

Alright after playing around with this more i found out that it prevents mailing even if all required values are entered. I have it checking for an Error and if there is one it calls that exit sub routine. The only thing is, a message box isn't an error (correct me if i'm wrong) I'm not really sure how it is finding an error? but it does display the message box i have in the exit sub routine in bold.

Thanks Ragavan.

That is exactly what i did. I just copied the code from each instance i needed it for (pdf, email, print) and it seems to be working perfectly.