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
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 1
L Restoring Outlook from backup pst file Using Outlook 5
e_a_g_l_e_p_i Kernel Outlook .pst viewer Using Outlook 3
L Outlook 365 Outlook not working on linux how to solve it Using Outlook.com accounts in Outlook 0
T Outlook 2019 Using Gmail aliases in Outlook Using Outlook 6
S Activities in Outlook Outlook VBA and Custom Forms 3
S ios outlook Using Outlook.com accounts in Outlook 0
W Transfer Outlook 2016 autocomplete file to Outlook 2007 Using Outlook 1
V iCloud calendar problems, Outlook shuts down immediately Using Outlook 2
S Outlook Macro for [Date][Subject] Using Outlook 1
E Outlook - Macro - send list of Tasks which are not finished Outlook VBA and Custom Forms 3
E Outlook - eliminate same adresses from to, and bc line Outlook VBA and Custom Forms 0
R How to force Outlook to use plain text in notes for Contacts? Using Outlook 1
G Outlook Express (DBX) to Outlook (PST) Conversion Software Wanted Using Outlook 1
J Outlook 2016 Can't display some embedded HTML images in Outlook 2016 Using Outlook 2
J Outlook EAS protocol version Using Outlook 1
N Outlook 2021 'Run Script" Rules? Outlook VBA and Custom Forms 4
C Why does Outlook (desktop) 365 for Windows keep making me input my passwords? Using Outlook 8
P Comcast IMAP broken but their second level support said to call "the Outlook company" Using Outlook 4
bdsermons Outlook 365 command button in outlook form Outlook VBA and Custom Forms 4
B iCloud telling me my Outlook is not supported Using Outlook 2
cheapfaremart Which outlook version is best? Using Outlook 0
T Outlook 2021 Cannot open attachments Outlook DeskTop 2021 Using Outlook 0
M Outlook settings will not accept a password Using Outlook 9
C Outlook FROM ADDRESS -Outlook.com and Android Using Outlook 1
E Outlook 365 Outlook/VBA Outlook VBA and Custom Forms 11
O How to find and replace a word in Outlook-Agenda-Subject and Message? Using Outlook 0
gproston Why doesn't Outlook remember indexing? Using Outlook 1
X Open Hyperlinks in an Outlook Email Message (Help with Diane's solution) Outlook VBA and Custom Forms 3
J Outlook 2003 .pst Will Not Restore Completely to Outlook 2019 Using Outlook 5
R Outlook Logging Using Outlook 6
e_a_g_l_e_p_i Email notifications changed with Outlook 2021 Using Outlook 8
Y Disable Microsoft Outlook Test Message Using Outlook 5
J Outlook 365 Outlook 2016/365 Contacts Lose Info when Favorited to the To-Do Bar Using Outlook 2
Commodore Are newer versions of Outlook still "less secure" to Google? Using Outlook 22
Commodore Any way to create "from-only" account on Outlook 2021? Using Outlook 1
Z Outlook.com OST Stopped working without explanation Using Outlook.com accounts in Outlook 3
glnz How to retrieve or redo Verizon.net email password without affecting Outlook connection? Using Outlook 1
S New Outlook Appointment - Select All Body Text and Change Font and Size Outlook VBA and Custom Forms 1
V Outlook 2021 Outlook-2021 (64-bit) and iCloud-for-Windows v13.0 - It Works Good. Using Outlook 9
O Outlook 365 - Gmail and Outlook: how to force Outlook to start up in Gmail? Using Outlook 2
M Seeking PDF Recommendation for Outlook that retains links Using Outlook 7
J SCANPST errors Outlook PST repair? Using Outlook 1
L did MS ever add way to text via Outlook Using Outlook 5
M Outlook 365 refuses to send email Using Outlook 1
P How can I stop Outlook 365 duplicating the posts? Using Outlook 2
P How to add a column named categories when searching in Outlook Using Outlook 0

Similar threads

Top