Outlook staying in memory

Status
Not open for further replies.
R

Rod

I am running a VBA program in Access to send emails. The email is sent OK

but Outlook stays in memory.

In the code below I have put in a message box to slow the code down. If this

is there then Outlook correctly closes itself down.

Because it is not closed it creates problems the next time I call the code,

even if it is modified to pick up an already open version of outlook.

I am using Office 2002 on a Vista machine with several cpus

Any suggestions please

many thanks

Public Sub Create_eMails()

Dim olApp As New Outlook.Application

Dim olNs As Outlook.NameSpace

Dim OBmailItem As Outlook.MailItem

Set olApp = New Outlook.Application

Set olNs = olApp.GetNamespace("MAPI")

olNs.Logon ""

Set OBmailItem = olApp.CreateItem(olMailItem)

OBmailItem.To = "Me@Home.com"

OBmailItem.Subject = "Test Email. "

OBmailItem.Body = "Test Body Text "

OBmailItem.Send

Call MsgBox("Wait")

olNs.Logoff

olApp.Quit

Set OBmailItem = Nothing

Set olNs = Nothing

Set olApp = Nothing

End Sub
 
K

Ken Slovak - [MVP - Outlook]

You need to allow time for the send operation to finish. You can try using a

DoEvents() call, but I don't think that will do it. Best thing to do

probably is to start a Send/Receive operation and wait for that to finish.

If you get a handle to SyncObjects(1) and call that SyncObject's Start()

method with an event handler for SyncEnd that should do it:

Dim WithEvents synch As Outlook.SyncObject ' in a class that can handle

events

Dim blnFinished As Boolean

When you call send you then use this:

blnFinished = False

Set synch = olNS.SyncObjects.Item(1)

synch.Start

While blnFinished = False

DoEvents

Loop

Your handler would look like this:

Private Sub synch_SyncEnd()

blnFinished = True

End Sub

"Rod" <rodrodrodrod@hotmail.com> wrote in message

news:%23OIhR8y6JHA.1716@TK2MSFTNGP03.phx.gbl...
> I am running a VBA program in Access to send emails. The email is sent OK
> but Outlook stays in memory.
> In the code below I have put in a message box to slow the code down. If
> this is there then Outlook correctly closes itself down.
> Because it is not closed it creates problems the next time I call the
> code, even if it is modified to pick up an already open version of
> outlook.

> I am using Office 2002 on a Vista machine with several cpus

> Any suggestions please

> many thanks

> > Public Sub Create_eMails()

> Dim olApp As New Outlook.Application
> Dim olNs As Outlook.NameSpace
> Dim OBmailItem As Outlook.MailItem

> Set olApp = New Outlook.Application

> Set olNs = olApp.GetNamespace("MAPI")
> olNs.Logon ""

> Set OBmailItem = olApp.CreateItem(olMailItem)

> OBmailItem.To = "Me@Home.com"

> OBmailItem.Subject = "Test Email. "
> OBmailItem.Body = "Test Body Text "
> OBmailItem.Send

> Call MsgBox("Wait")

> olNs.Logoff

> olApp.Quit

> Set OBmailItem = Nothing
> Set olNs = Nothing
> Set olApp = Nothing

> End Sub
>
 
R

Rod

Thanks, I give it a go, I've never played with evens before.
<kenslovak@mvps.org> wrote in message

news:eYf0m416JHA.1416@TK2MSFTNGP04.phx.gbl...
> You need to allow time for the send operation to finish. You can try using
> a DoEvents() call, but I don't think that will do it. Best thing to do
> probably is to start a Send/Receive operation and wait for that to finish.
> If you get a handle to SyncObjects(1) and call that SyncObject's Start()
> method with an event handler for SyncEnd that should do it:

> Dim WithEvents synch As Outlook.SyncObject ' in a class that can handle
> events
> Dim blnFinished As Boolean

> When you call send you then use this:

> blnFinished = False
> Set synch = olNS.SyncObjects.Item(1)
> synch.Start

> While blnFinished = False
> DoEvents
> Loop

> Your handler would look like this:

> Private Sub synch_SyncEnd()
> blnFinished = True
> End Sub

> >

>

> "Rod" <rodrodrodrod@hotmail.com> wrote in message
> news:%23OIhR8y6JHA.1716@TK2MSFTNGP03.phx.gbl...
> >I am running a VBA program in Access to send emails. The email is sent OK
> >but Outlook stays in memory.
> > In the code below I have put in a message box to slow the code down. If
> > this is there then Outlook correctly closes itself down.
> > Because it is not closed it creates problems the next time I call the
> > code, even if it is modified to pick up an already open version of
> > outlook.
>

>> I am using Office 2002 on a Vista machine with several cpus
>

>> Any suggestions please
>

>> many thanks
>

>
>> ------------------------------>

>
>> Public Sub Create_eMails()
>

>> Dim olApp As New Outlook.Application
> > Dim olNs As Outlook.NameSpace
> > Dim OBmailItem As Outlook.MailItem
>

>> Set olApp = New Outlook.Application
>

>> Set olNs = olApp.GetNamespace("MAPI")
> > olNs.Logon ""
>

>> Set OBmailItem = olApp.CreateItem(olMailItem)
>

>> OBmailItem.To = "Me@Home.com"
>

>> OBmailItem.Subject = "Test Email. "
> > OBmailItem.Body = "Test Body Text "
> > OBmailItem.Send
>

>> Call MsgBox("Wait")
>

>> olNs.Logoff
>

>> olApp.Quit
>

>> Set OBmailItem = Nothing
> > Set olNs = Nothing
> > Set olApp = Nothing
>

>> End Sub
> >


>
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
L Duplicate calendar entries in Outlook 365 Using Outlook 2
V Outlook 2021 Can anyone explain why my Outlook views keep changing?! Using Outlook 2
AlphonseG Outlook 365 Outlook Crashes on setting SaveSentMessageFolder Outlook VBA and Custom Forms 2
S Outlook 2021 How to customize colors Outlook 2021 & Office 2021 on PC Using Outlook 0
D Outlook 2007 Recovering E-Mails Using Outlook 0
G Stop Outlook 365 adding meetings to calendar Using Outlook 0
HarvMan Using Emojis in Outlook 365 Using Outlook 3
T Outlook 2019 Not Using Auto Compete After Deletion of 365 Using Outlook 1
D Gmail mail is being delivered to a different email inbox in Outlook App 2021 Using Outlook 2
Albert McCann Outlook 2021 Outlook Display of HTML Email from two senders is glitchy Using Outlook 0
richardwing Outlook 365 VBA to access "Other Actions" menu for incoming emails in outlook Outlook VBA and Custom Forms 0
J Unable to delete folders in Outlook 2019 / Windows Using Outlook 1
K Outlook for Mac problems Using Outlook 0
D Outlook app 2021 & iCloud PST issues Using Outlook 2
M c# vsto Outlook.ApplicationEvents_11_NewMailEx Outlook VBA and Custom Forms 1
J Event/Meeting in Outlook Does Not Align with SharePoint Calendar Using Outlook 5
Christopher M Is it me, or is Outlook 365 BUGGY? Using Outlook 3
U Outlook on the iPhone cannot approve filtered Emails Using Outlook 0
J GoDaddy migrated to Office365 - Outlook Wont Add Account Exchange Server Administration 21
K Outlook 365 After migrating to Outlook 365, some contacts display in emails with prefixes Using Outlook 1
J Outlook Rules VBA Run a Script - Multiple Rules Outlook VBA and Custom Forms 0
Horsepower Cannot delete gmail in iPhone Outlook outbox Using Outlook 1
F Outlook 2019 Outlook 2019 Add and Sync to New computer Comcast server Using Outlook 2
M Understanding Outlook Identities Using Outlook 1
kburrows Outlook or Phone Combining Contacts? Using Outlook 0
P Outlook 2013 search no longer works Using Outlook 2
M Accessing ALL Outlook contact fields Outlook VBA and Custom Forms 3
C Outlook (desktop app for Microsoft365) restarts every time I save my VBA? Using Outlook 0
R MailTips and older Outlook versions Using Outlook 0
A iCloud Outlook Add In is causing Outlook 2021 to crash and got disabled Using Outlook 9
C How to import Outlook calendar? Using Outlook 1
HarvMan Outlook 365 loses "outlook.com" exchange server settings Using Outlook 1
HarvMan Outlook.com Account Using Outlook 3
D Office 365 Outlook desktop app prompts for all account passwords on startup Using Outlook 6
D Alerts in outlook Using Outlook 1
richardwing Auto forward email that is moves into a specific outlook folder Outlook VBA and Custom Forms 5
L Recommendations for Utility to Backup Outlook 365 Account Settings Using Outlook 2
J Recommendations for Outlook Duplicate Email Remover Using Outlook 6
O Outlook - How to embed font ? (If at all possible) Using Outlook 2
Z New minimum Outlook for Windows version requirements for Microsoft 365/Exchange Online Using Outlook.com accounts in Outlook 26
T How to configure Outlook for two users on a single Windows account Using Outlook 3
R Outlook 2021 Having problem setting up outlook 2021 with windows 11. I have 3 gmail accounts and I want the 3 gmail, emails to merge into the same outlook input. Using Outlook.com accounts in Outlook 0
e_a_g_l_e_p_i Outlook 2021 all appointments not showing in calendar Using Outlook 2
S Outlook 365 Can I change the possible range of highlighting colours when writing an Outlook email? Using Outlook 1
B Outlook 213 keeps crashing. I just found out there are DMP files. How can I tell Why? Using Outlook 2
H Outlook 2016 related mails in outlook Outlook VBA and Custom Forms 13
S Outlook 2021 Can you make emails from 3 word domains "safe" by entering top 2 word domain into Safe List in Outlook? Using Outlook 1
@ Outlook Using Outlook 2
kburrows Outlook 365 - Ribbon Customizations Disappear Using Outlook 0
D Wishlist How to use 'app password' in Outlook 2003 after Google pulled plug on "less secure apps" Using Outlook 2

Similar threads

Top