Macro to close outlook

[zplugger]

Is it possible to have a macro that will close outlook after the outbox is empty? maybe set a 10 sec delay timer at end of code.Have a code in excel to open outlook,now I would like a way to auto close after the file from excel is out of the outbox. If file is not sent then outlook stays open. Not sure if a macro from excel can do this,I still need to open outlook and send emails when outbox is empty.

Thanks for any suggestions.

[Richard Buttrey]

Not sure I understand the problem

The procedure below is a generalised version of one I use a lot - (based on one of Ron de Bruin's examples)

With the .Display and .Close(0) commented out the email is sent and closed automatically.
If you choose to use the .Display allowing you to view the email then the .Close(0) line is the one that will close the email but of course since you're able to view the email you could close it anyway.

Please Login or Register  to view this content.

Can you clarify the point you're making?

[zplugger]

Thanks Richard
Sometimes the email will get hung up in the outbox,if I don't catch it it will stay there.Looking for a idiot message box telling me message was sent and do I want to close program.

[humdingaling]

Please Login or Register  to view this content.

i just took the syntax of checking if outbox is empty from here
https://www.experts-exchange.com/que...in-Outbox.html

worked on my test setup
believe it only checks the default outlook account not all accounts so if this is not the case...cross that bridge later if needed

[humdingaling]

oh forgot the closing outlook bit

Please Login or Register  to view this content.

Code seems to work better if Outlook is open
so left the outlook open check in there

[zplugger]

Nice piece of work,this is a good start. Is there a way I could put this code in BeforeWorkbook Close event and make it work ?

[humdingaling]

dont see why this code couldnt just be plugged into the Workbook_BeforeClose Event

what error are you getting when you tried this?

[zplugger]

My mistake, its works perfect. Thank You so much.