Triggering Outlook's Send\Receive Button
I see this uses Office. Does this Sub apply to Office 95, 97 or 2000?
Does this work for Win95, Win98, WinME or NTWS 4.0?
I've got some mixes between W95, W98 and Win95, W98 and NTWS 4.0
Thanks,
GG
Quote:
> Tested & works for Outlook 2K.
> Public Sub SendNow()
> Dim ctl As Office.CommandBarControl
> Dim cbpop As Office.CommandBarPopup
> Dim cb As Office.CommandBar
> Set cb = Application.ActiveExplorer.CommandBars("Standard")
> Set ctl = cb.FindControl(ID:=5488, Recursive:=True)
> ctl.Execute
> End Sub
> --
> Neo [MVP-Outlook]
> Are you considering installing the Email Security Patch or Office 2000
> Service Pack 2?
> Read this page first and consider your choice carefully if you depend on
> accessing specific attachments or have programs that need access to
> Outlook's address book.
> http://www.slipstick.com/outlook/esecup.htm
> > Does anyone know how to trigger Outlook's Send/Receive button
> > from within a VB application?
> > I already have a working program that starts up an instance of Outlook
> > and creates various e-mail messages. However the [mailitem].Send
> > method merely puts the messages into the outbox. What I want to do
> > before quitting is make Outlook go on-line and actually send this
> > batch of messages, just as if I had clicked the Send/Receive button or
> > pressed the <F5> key.
> > I'm sure there's an easy way to do it but I can't find it in the Office
> > helpfile and Outlook still has no macro recorder.
> > Hopefully,
> > Christy
