Bug in code sending email

[zplugger]

I Give
I run this macro and all run perfect if there is a address in the address book,but if no address in the address book a inputbox comes up and you can enter the email address and click ok and the code works perfect. But when you click cancel it does exit the sub but it kills all the working work sheet events. In worksheet two day it has a calendar popup when you click a certain cell it opens a calendar,this quits working when you click cancel on the inputbox.? There is some conditional formatting on the worksheet that quits too. When I click cancel this stuff all quits,but if I go back and try and send email that is not in address book and the inputbox comes up and I enter a email it all starts working again. Its like when you cancel the inputbox it exits the sub but something in hung up in the workbook.?? If I close and save the workbook and reopen all is well,got to be something with inputbox cancel not releasing something?
Thanks for any ideas,after two days I give.

Please Login or Register  to view this content.

[Keebellah]

The code is doing exactly what you tell it to do 'Cancel'

You will have to tell it to do what you want or add an extra promt like process next one Yes / No
And BTW, you should Dim all your variables there are a series you forgot to Dimension
like vBody and some more.
Happy coding.

[zplugger]

Thanks Keebellah for the info,I got this code from another forum member. A lot of this is well over my head,seems like when I click cancel it should all go back to where I started? Not sure
why all the other stuff quits working on the worksheet.

[Arkadi]

This section of code:

Please Login or Register  to view this content.

if you hit cancel vEmailAddress is false, so the code should give you a message that no email will be sent, quit outlook, and then exit the code (Exit Sub).

[Keebellah]

That's what you get when you want to be a carpenter but don't know how to hold the hammer:

Please Login or Register  to view this content.

Wher it says Exit Sub, thas is eaxctly what it does.
So here you will have to add the wuestion if you want to continue or not and my guess is that that's a little over your head

That section has to be modified but I'm not going into it because they approached it a different way I would do it, but here's the main idea:

Please Login or Register  to view this content.

[Keebellah]

I typed it in dit not check all the syntax but it's just to give you the idea of what would be required

[zplugger]

Thank You I will give it a try LOL

[zplugger]

Thanks Arkadi
if you hit cancel vEmailAddress is false, so the code should give you a message that no email will be sent, quit outlook, and then exit the code (Exit Sub). It does do this, but if I cancel it takes some of the functions away from sheet two day. Functions will return if I send a email,just lost why I would loose functions on cancel.

[Keebellah]

The reason is that there is no code to make it do something else and there is also no code to check if the email address entered is a valid email address as goes for syntax, that is another issue you might run into.
Coding with VBA is simple but you can to tell it EVERYTHING and does exactly what you tell it to do, no more, no less, Syntax errors generate errors, etc. etc.

[Arkadi]

You mean some events (like worksheet change) stop working? becuase EnableEvents has been disabled earlier in the code, and the early "Exit Sub" means it never reaches the end of the code where it is re-enabled.
Quickest way to fix that is to put this:

Please Login or Register  to view this content.

between

Please Login or Register  to view this content.

and

Please Login or Register  to view this content.

The tidy way would be to replace the exit sub with a goto command, where the goto location is at the end of the code where you re-instate enableevents and screenupdating.

[zplugger]

Out Standing Arkadi, that did the trick. I tried tat earlier but not in that exact place.

Thank You

[Arkadi]

Glad we could help you solve the issue
I appreciate the rep, and thanks very much for remembering to mark the thread as solved