send email VBA not working

[chriswrcg]

This worked once and then never again.
When the workbook is opened, the macro auto runs and checks cells in column I for conditions. If condition is true, then an email should be generated and sent out, and the J cell in the row should be populated with the phrase "Email Sent". This should happen for every row that meets the condition.
When I open the workbook the macros do run but it is only populating column J with "Email Sent" but not actually sending an email.

[6StringJazzer]

I opened your file and my Outlook client sent five emails to Dean.McGhee as soon as the file opened. How do you know your emails are not being sent?

When posting file with Workbook_Open code you should make sure the code is benign first. I had to send another email telling good old Dean to ignore the first five.

dean.jpg

[chriswrcg]

Wow, I'm stupid. For some reason my outlook was not opening either by the macro or by me opening it up. I had to reboot my machine to get it to open. When I did I was hit with 125 back logged emails that were not sent. Guess from who....LOl. Sorry and Thanks for the help.

[6StringJazzer]

I should have known better, your post did say that code runs when you open the file.

To troubleshoot this I would put a .Display in so you can see the email after it's composed but before it is sent, and a Stop to force it into debug mode so you can go line-by-line with F8 to see what's happening.

Note that I removed the actual email address to post here.

Please Login or Register  to view this content.

[6StringJazzer]

I posted as you were editing your own post. Glad you solved it. I am not sure what could have been going on--the code opens a new instance of Outlook. Something must have been really screwed up to require a reboot to fix it.

If your question has been answered please mark your thread as "Solved" so that members will know by looking at the thread title that your problem is solved. Go to the menu immediately above your first post to the thread and click on Thread Tools. From the dropdown menu select "Mark this thread as solved..."

If a member helped you solve your problem, consider adding to their reputation by clicking addreputationiconsmall.jpg below their name.