Nigel,

Try adding OutApp.Quit at the end.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Nigel" wrote in message
...
Hi All
I am using thse following to mail some information from Excel, whether
Outlook is currently running or not, I end up wth an instance of Outlook
that does not close. Everytime I call this it create another instance.
Why?

TIA
Cheers
Nigel

Private Sub EMail()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To =
.Subject = "Test"
.Body = "Test"
'.Attachments.Add
.DeleteAfterSubmit
On Error Resume Next
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub




----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet
News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000
Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption
=---