Outlook Express

[Tom Becker]

Is there a way, from Access, to programmaticall y click the Send and
Receive button in Outlook?

[Tom van Stiphout]

On Thu, 02 Mar 2006 17:03:36 -0600, Tom Becker
<wl************ @hotmail.com> wrote:

Get the Window Handle of that button, and send (PostMessage) it a
WM_CLICK message.
Why don't you tell us what you really want to do. Send emails perhaps?
How about DoCmd.SendObjec t?

-Tom.

Is there a way, from Access, to programmaticall y click the Send and
Receive button in Outlook?

[CDMAPoster]

Tom Becker wrote:

Is there a way, from Access, to programmaticall y click the Send and
Receive button in Outlook?

T.B., here is an A2K mdb code snippet from about five years ago for
plain Outlook 2K:

'Send/Receive
Set MyExplorer = objOutlook.Acti veExplorer
MyExplorer.Acti vate
MyExplorer.Wind owState = olMaximized
Set MyMenuBar = MyExplorer.Comm andBars.Item("S tandard")
Set MyMenuBarContro l = MyMenuBar.Contr ols.Item("Send/Re&ceive")
MyMenuBarContro l.Execute
Set MyMenuBar = Nothing

Some Dim's:
Dim MyExplorer As Explorer
Dim MyMenuBar As CommandBar
Dim MyMenuBarContro l As CommandBarContr ol
Dim objOutlook As Outlook.Applica tion

This needs a reference set to the Outlook Object library. I dug up
this example before I noticed the word "Express" in your subject line
but it may give you some ideas. Note that Outlook is easier to
automate than Outlook Express.

James A. Fortune
CD********@Fort uneJames.com

[Tom Becker]

On Thu, 02 Mar 2006 22:06:11 -0700, Tom van Stiphout
<no************ *@cox.net> wrote:

On Thu, 02 Mar 2006 17:03:36 -0600, Tom Becker
<wl*********** *@hotmail.com> wrote:

Get the Window Handle of that button, and send (PostMessage) it a
WM_CLICK message.
Why don't you tell us what you really want to do. Send emails perhaps?
How about DoCmd.SendObjec t?

-Tom.
Can you tell me more about Window Handles of buttons and WM_CLICK?

I use DoCmd.SendObjec t but sometimes it's sits in the Outbox in
Outlook. I want to make sure it sends the email right away by clicking
Send and Receive.

Is there a way, from Access, to programmaticall y click the Send and
Receive button in Outlook?

[Tom van Stiphout]

On Fri, 03 Mar 2006 05:45:08 -0600, Tom Becker
<wl************ @hotmail.com> wrote:

Window handles etc are related to low-level Windows API programming.
Not recommended but as the very last resort.

"Sometimes it sits in the Outbox" sounds more like a configuration or
connectivity problem than a programming problem.

-Tom.

On Thu, 02 Mar 2006 22:06:11 -0700, Tom van Stiphout
<no*********** **@cox.net> wrote:

On Thu, 02 Mar 2006 17:03:36 -0600, Tom Becker
<wl********** **@hotmail.com> wrote:

Get the Window Handle of that button, and send (PostMessage) it a
WM_CLICK message.
Why don't you tell us what you really want to do. Send emails perhaps?
How about DoCmd.SendObjec t?

-Tom.

Can you tell me more about Window Handles of buttons and WM_CLICK?

I use DoCmd.SendObjec t but sometimes it's sits in the Outbox in
Outlook. I want to make sure it sends the email right away by clicking
Send and Receive.

Is there a way, from Access, to programmaticall y click the Send and
Receive button in Outlook?

[Tom Becker]

On 2 Mar 2006 23:40:16 -0800, CD********@Fort uneJames.com wrote:

Tom Becker wrote:

Is there a way, from Access, to programmaticall y click the Send and
Receive button in Outlook?

T.B., here is an A2K mdb code snippet from about five years ago for
plain Outlook 2K:

'Send/Receive
Set MyExplorer = objOutlook.Acti veExplorer
MyExplorer.Act ivate
MyExplorer.Win dowState = olMaximized
Set MyMenuBar = MyExplorer.Comm andBars.Item("S tandard")
Set MyMenuBarContro l = MyMenuBar.Contr ols.Item("Send/Re&ceive")
MyMenuBarContr ol.Execute
Set MyMenuBar = Nothing

Some Dim's:
Dim MyExplorer As Explorer
Dim MyMenuBar As CommandBar
Dim MyMenuBarContro l As CommandBarContr ol
Dim objOutlook As Outlook.Applica tion

This needs a reference set to the Outlook Object library. I dug up
this example before I noticed the word "Express" in your subject line
but it may give you some ideas. Note that Outlook is easier to
automate than Outlook Express.

James A. Fortune
CD********@For tuneJames.com

Thanks! It looks like I need to change something to make it work in
Access 2002 though. It is with Outlook and not Outlook Express.

I get an error on this line:
Set MyExplorer = objOutlook.Acti veExplorer

The error says, "object variable or with block not set"

Dimming As CommandBar didn't work when when I added a reference to
Microsoft Outlook 10.0 object library, but it did work when I also
added Microsoft Office 10.0 object library.

Any ideas on what needs to be done?

[Tom Becker]

On Fri, 03 Mar 2006 06:37:27 -0700, Tom van Stiphout
<no************ *@cox.net> wrote:

On Fri, 03 Mar 2006 05:45:08 -0600, Tom Becker
<wl*********** *@hotmail.com> wrote:

Window handles etc are related to low-level Windows API programming.
Not recommended but as the very last resort.

"Sometimes it sits in the Outbox" sounds more like a configuration or
connectivity problem than a programming problem.

-Tom.

On the configuration possibility I could check on the settings in
Outlook, But is there anything I can do about a connectivity problem?
This is over a LAN.

[CDMAPoster]

Tom Becker wrote:

On 2 Mar 2006 23:40:16 -0800, CD********@Fort uneJames.com wrote:

Tom Becker wrote:

Is there a way, from Access, to programmaticall y click the Send and
Receive button in Outlook?

T.B., here is an A2K mdb code snippet from about five years ago for
plain Outlook 2K:

'Send/Receive
Set MyExplorer = objOutlook.Acti veExplorer
MyExplorer.Act ivate
MyExplorer.Win dowState = olMaximized
Set MyMenuBar = MyExplorer.Comm andBars.Item("S tandard")
Set MyMenuBarContro l = MyMenuBar.Contr ols.Item("Send/Re&ceive")
MyMenuBarContr ol.Execute
Set MyMenuBar = Nothing

Some Dim's:
Dim MyExplorer As Explorer
Dim MyMenuBar As CommandBar
Dim MyMenuBarContro l As CommandBarContr ol
Dim objOutlook As Outlook.Applica tion

This needs a reference set to the Outlook Object library. I dug up
this example before I noticed the word "Express" in your subject line
but it may give you some ideas. Note that Outlook is easier to
automate than Outlook Express.

James A. Fortune
CD********@For tuneJames.com

Thanks! It looks like I need to change something to make it work in
Access 2002 though. It is with Outlook and not Outlook Express.

I get an error on this line:
Set MyExplorer = objOutlook.Acti veExplorer

The error says, "object variable or with block not set"

Dimming As CommandBar didn't work when when I added a reference to
Microsoft Outlook 10.0 object library, but it did work when I also
added Microsoft Office 10.0 object library.

Any ideas on what needs to be done?

I like your initiative. It needs a little more. Run a function to see
if outlook is running. If it's not running, I did:

Shell ("C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\O UTLOOK.EXE")
For I = 1 To 1700
DoEvents
Next I

before

Set objOutlook = GetObject("", "Outlook.Applic ation")

Another way is to use CreateObject for the case when outlook is not
running. Something like:

Set objOutlook = CreateObject("" , "Outlook.Applic ation")

before running the Send/Receive code.

Also, be careful to set objects back to Nothing when you're done using
them so that Access can close Outlook. That should get you close.

James A. Fortune
CD********@Fort uneJames.com

Verisign wants a perpetual unsupervised monopoly on the .COM registry:

http://www.bobparsons.com/EconomicsLesson.html

[Wayne Gillespie]

On 3 Mar 2006 15:17:34 -0800, CD********@Fort uneJames.com wrote:

I like your initiative. It needs a little more. Run a function to see
if outlook is running. If it's not running, I did:

**Based on code from Stephen Lebans

Function fIsOulookThere( ) As Integer
' Open the installed Version of MS Outlook
Dim OL As Object

On Error Resume Next
'See if Outlook is running
Err.Clear
' Is Outlook running?
Set OL = GetObject(, "Outlook.Applic ation")
' Error if not running
If Err.Number <> 0 Then
' Clear Error object
Err.Clear
'Create a new instance of Outlook
Set OL = CreateObject("O utlook.Applicat ion")
If Err.Number <> 0 Then
'not installed
fIsOulookThere = 0
Else
'installed but not running
fIsOulookThere = 2
End If
Else
'yes it is running
fIsOulookThere = 1
End If

If Not IsEmpty(OL) Then Set OL = Nothing

End Function

Wayne Gillespie
Gosford NSW Australia

[Tom Becker]

On 3 Mar 2006 15:17:34 -0800, CD********@Fort uneJames.com wrote:

Tom Becker wrote:

On 2 Mar 2006 23:40:16 -0800, CD********@Fort uneJames.com wrote:

>Tom Becker wrote:
>> Is there a way, from Access, to programmaticall y click the Send and
>> Receive button in Outlook?
>
>T.B., here is an A2K mdb code snippet from about five years ago for
>plain Outlook 2K:
>
>'Send/Receive
>Set MyExplorer = objOutlook.Acti veExplorer
>MyExplorer.Act ivate
>MyExplorer.Win dowState = olMaximized
>Set MyMenuBar = MyExplorer.Comm andBars.Item("S tandard")
>Set MyMenuBarContro l = MyMenuBar.Contr ols.Item("Send/Re&ceive")
>MyMenuBarContr ol.Execute
>Set MyMenuBar = Nothing
>
>Some Dim's:
>Dim MyExplorer As Explorer
>Dim MyMenuBar As CommandBar
>Dim MyMenuBarContro l As CommandBarContr ol
>Dim objOutlook As Outlook.Applica tion
>
>This needs a reference set to the Outlook Object library. I dug up
>this example before I noticed the word "Express" in your subject line
>but it may give you some ideas. Note that Outlook is easier to
>automate than Outlook Express.
>
>James A. Fortune
>CD********@For tuneJames.com
Thanks! It looks like I need to change something to make it work in
Access 2002 though. It is with Outlook and not Outlook Express.

I get an error on this line:
Set MyExplorer = objOutlook.Acti veExplorer

The error says, "object variable or with block not set"

Dimming As CommandBar didn't work when when I added a reference to
Microsoft Outlook 10.0 object library, but it did work when I also
added Microsoft Office 10.0 object library.

Any ideas on what needs to be done?

I like your initiative. It needs a little more. Run a function to see
if outlook is running. If it's not running, I did:

Shell ("C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\O UTLOOK.EXE")
For I = 1 To 1700
DoEvents
Next I

before

Set objOutlook = GetObject("", "Outlook.Applic ation")

Another way is to use CreateObject for the case when outlook is not
running. Something like:

Set objOutlook = CreateObject("" , "Outlook.Applic ation")

before running the Send/Receive code.

Also, be careful to set objects back to Nothing when you're done using
them so that Access can close Outlook. That should get you close.

Thanks! I want to try it when I go back on monday. But do you have a
function that sees if Outlook is running?


James A. Fortune
CD********@For tuneJames.com

Verisign wants a perpetual unsupervised monopoly on the .COM registry:

http://www.bobparsons.com/EconomicsLesson.html