One thing you need to understand about Outlook is that you cannot
create an instance of it if it's already running. ALWAYS check if it's
running 1st, then start it only if not running...

Dim appOL
Set appOL = GetObject("Outlook.Application")
If appOL Is Nothing Then _
Set appOL = CreateObject("Outlook.Application")

...and then process your automation!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus