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
 
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
>
 
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
e_a_g_l_e_p_i Question about Outlook 2021 and Gmail Using Outlook 0
J Outlook VBA to send from Non-default Account & Data Files Outlook VBA and Custom Forms 2
P Limited Support for 3rd Party Mail in new Outlook? Using Outlook 1
O Any 3rd party tool that sync (mirror) from Outlook Calendar to Google Calendar? Using Outlook 5
T Outlook is categorizing emails incorrectly Using Outlook 1
R Legacy Outlook on Mac Email Cache Using Outlook 0
A Outlook can't remember outlook.com, Exchange password. Using Outlook 3
S Related messages show in main Outlook window vice new Advanced Find windows Using Outlook 1
H Force Outlook 2019 with GMail 2-Step to Require Login? Using Outlook 0
G Retaining Tabs in outlook body Using Outlook 2
V Setting up Outlook 2021 on new computer Using Outlook 2
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
X Custom icon (not from Office 365) for a macro in Outlook Outlook VBA and Custom Forms 1
Victor_50 Problem - Google Workspace will stop "unsafe" access to Outlook end 2024 Using Outlook 3
C New pc, new outlook, is it possible to import auto-complete emailaddress Using Outlook 4
T Outlook 365 won't take new working password Using Outlook 0
S Create Outlook Task from Template and append Body with Email Body Outlook VBA and Custom Forms 4
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
B Sync Outlook Public Folders to Contacts Using Outlook 2
D Delete Outlook emails from MS server Using Outlook 12
B Outlook tasks and PDF Using Outlook 4
D Outlook 2019 is no longer asking for password ... Using Outlook 5
Kika Melo How to mark as Junk any message not from Contacts (in Outlook.com) Using Outlook 3
L Outlook attachments from OneDrive as links Using Outlook 0
G Outlook 365 My iCloud Outlook doesn’t work after reinstalling Microsoft365 on Windows 10 PC – now I get error message on contacts and calendar Using Outlook 1
T How to Export & Import GMAIL Contacts into Outlook 2021 ? Using Outlook 4
M Synchronization and backup of Outlook from local to server. Using Outlook 8
T How to get an EVENT COLOR option in Outlook 2021 ? Using Outlook 0
K How can I delete an e-mail from Outlook Using Outlook 1
V Outlook Error The Attempted operation Failed. An Object Could Not be found Outlook VBA and Custom Forms 0
P Yahoo/IMAP folder rename by Outlook desktop 365 Using Outlook 0
A Outlook 2019 folder counter Using Outlook 0
A Relocate Search Bar in Outlook Using Outlook 2
e_a_g_l_e_p_i Need clarification on 2-Step Verification for Gmail using Outlook 2021 Using Outlook 10
L Opening People Outlook 2021 Using Outlook 2
e_a_g_l_e_p_i Outlook 2021 not letting me setup my Gmail using pop Using Outlook 1
Geldner Problem submitting SPAM using Outlook VBA Form Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
M Outlook 2016 outlook vba to look into shared mailbox Outlook VBA and Custom Forms 0
P Can no longer sync Outlook with iPhone calendar after iPhone update to 17.1.1 Using Outlook 7
O Outlook - Switch from Exchange to IMAP Using Outlook 2
e_a_g_l_e_p_i Is it possible to have a reminder in Outlook 2021 for every 90 days Using Outlook 3
farrissf Outlook 2016 Optimizing Email Searches in Outlook 2016: Seeking Insights on Quick Search vs Advanced Search Features Using Outlook 0
C Advanced search terms for "Outlook Data File" Using Outlook 1
N Reply to Outlook messages by moving messages to a specific Outlook folder Outlook VBA and Custom Forms 1
O How to find out the domain and server settings that my Outlook is using? Using Outlook 2
A Outlook 365 (OutLook For Mac)Move "On My Computer" Folder Items From Old To New Mac Computer Using Outlook 3
H Integrating Alexa & Outlook Pro 2021 Using Outlook 2
Z Automatically adjust Outlook Reading Pane from bottom to right depending on portrait or landscape window Using Outlook 1
Rupert Dragwater Background colors not saving in Outlook 365 Using Outlook 15

Similar threads

Back
Top