Outlook staying in memory

  • Thread starter Thread starter Rod
  • Start date Start date
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.
< Adding another add-in to a project | Ho to use Crystal Reports 10.2 in VB 6 >
Similar threads
Thread starter Title Forum Replies Date
L new outlook contacts searching Using Outlook 2
R Outlook 2010 Outlook 2010 migration question Using Outlook 2
W New Outlook PEOPLE blank Using Outlook 7
C New Outlook issues with Gmail, particularly labels/folders Using Outlook 4
E What is the next workaround for macro in New Outlook 1.2025.1111.100 Outlook VBA and Custom Forms 3
E Need to digitally sign macro but VBA\Outlook crash Outlook VBA and Custom Forms 4
P Outlook 2003 no longer opens "without" Folder List Showing in Navigation Pane Using Outlook 2
Hornblower409 Outlook 2010 - Never ending update Using Outlook 0
V Outlook created new profile? Using Outlook 1
J Outlook inbox question Using Outlook 4
T How to Add AT&T Contacts to Outlook 365 Using Outlook 7
F Outlook 2021 outlook on iPhone Using Outlook 1
F Outlook 2021 Outlook on iPhone asks for password Using Outlook 0
P ics calendar entries suddenly open up new Outlook Using Outlook 3
P Outlook "forgets" password until system rebooted Using Outlook 2
N Why does Outlook keeping adding to the email address I have in my notes portion of a contact? Using Outlook 2
M Anyone integrated AI website builders with Outlook for automated client communications? Using Outlook 1
V Gmail in Outlook Using Outlook 2
T Where has the Copilot icon gone in my Outlook desktop client? Using Outlook 6
P New way by Microsoft to get people to use the new Outlook Using Outlook 4
C How to keep emails in account in Outlook after closing the IMAP account Using Outlook 1
cymumtaz IMAP calendars in New Outlook Using Outlook 5
T Constantly Have To Log In To Outlook On The Web Using Outlook.com accounts in Outlook 2
T Cannot Find Outlook Noted On Android Using Outlook 4
O Outlook 2024 not showing that messages are replied to or forwarded Using Outlook 3
C Outlook 365 send/receive takes FOREVER - as in 40 minutes Using Outlook 7
I Outlook 2024 LTSC syncing with iCloud calendar - can only make appt. in iCloud Using Outlook 2
Kika Melo Outlook ribbon customisations do not 'stick' Using Outlook 12
J IMAP Folders Confusion in Windows Classic Outlook Using Outlook 1
A Missing Sent Emails in New Outlook Using Outlook 18
S Missing categories in Outlook calendar Using Outlook 10
P Windows 11 tries to open New Outlook when the user clicks on the mail icon on a news article Using Outlook 2
C I don't understand Outlook or Microsoft, anymore Using Outlook 12
P My Feedback to Microsoft and their response; also New Outlook roadmap Using Outlook 0
A New Outlook - Cannot drag IMAP emails to Task List in MyDay Using Outlook 1
L Android Outlook Doesn't Update PC Notification Changes Using Outlook 0
A How to open Excel file saved in Outlook folder? Outlook VBA and Custom Forms 4
D.Moore Outlook desktop client suggested searches question Using Outlook 22
Y Outlook 2016 (64-bit) Copy Local Cal. Events to Another Cal. with Modified Reminder time Using Outlook 2
T Outlook 2019 While connecting an IMAP account in "classic" Outlook 2024 I caused a massive duplication of emails on the server (death loop) Using Outlook 5
D Cannot logon to Outlook.com, or outlook on Mac, outlook not updating on ipad, iphone Using Outlook 1
J unable to get my new install of Outlook to display mailboxes in the single-line format. Using Outlook 1
D Legacy Microsoft Outlook for Mac Support will end in Oct 2025 Using Outlook 8
C Nasty Bug Lurking In Outlook For Years. The Trigger. Any Fix Or Workaround? Using Outlook 12
R Auto clicking Hyperlink in outlook Outlook VBA and Custom Forms 7
ughlook Open multiple contacts in NEW Outlook? Using Outlook 3
G Outlook translation feature is off Using Outlook 2
J Outlook 2010 does not let me put any account Using Outlook.com accounts in Outlook 3
P 3 of 5 PST files don't install from d:\outlook but only from D:\ Using Outlook 7
HarvMan January Windows 10 preview update force installs new Outlook Using Outlook 1

Similar threads

Back
Top