|
- Subject: RE: Send All emails in Outbox and Quit using VBA
- Author: Steph_canoe
- Date: 01 Jun 2010
- References: 1 2
"Sue Mosher [MVP]" wrote:
How would I write my code than:
Public Sub SendReceiveNowDev()
' Instantiate an Outlook Application object.
Set objOutlook = CreateObject("Outlook.Application")
'Set Btn =
Application.ActiveExplorer.CommandBars.FindControl(msoControlButton, 5577)
Btn.Execute
'Stop Outlook
objOutlook.Quit
End Sub
Seems not to work.
> You're not trying to use command button captions, are you? Use the IDs
> instead, with the FindControl method. They're language-neutral. The ID for
> Send All should be 5577.
> --
> Sue Mosher, Outlook MVP
> Author of Microsoft Outlook 2007 Programming:
> Jumpstart for Power Users and Administrators
> http://www.outlookcode.com/article.aspx?id=54
>
>
>
> "Steph_canoe" wrote:
>
> instead, with the FindControl method. They're language-neutral. The ID for
> Send All should be 5577.
> --
> Sue Mosher, Outlook MVP
> Author of Microsoft Outlook 2007 Programming:
> Jumpstart for Power Users and Administrators
> http://www.outlookcode.com/article.aspx?id=54
>
>
>
> "Steph_canoe" wrote:
>
> > Hi,
> >
> > I have MS Access creating emails objects in Outlook using a macro. I want to
> > send them all and close outlook after.
> >
> > 1-Open Outlook
> > 2-Send all emails in the outbox folder
> > 3-Close Outlook
> >
> > How can I achieve it using VBA? Using command buttons does not seem to work
> > since my Outlook is in French,
> >
> > I'm using Outlook 2003 SP3.
> >
> > Thank You
> >
> > Stephane
> >
> > I have MS Access creating emails objects in Outlook using a macro. I want to
> > send them all and close outlook after.
> >
> > 1-Open Outlook
> > 2-Send all emails in the outbox folder
> > 3-Close Outlook
> >
> > How can I achieve it using VBA? Using command buttons does not seem to work
> > since my Outlook is in French,
> >
> > I'm using Outlook 2003 SP3.
> >
> > Thank You
> >
> > Stephane
How would I write my code than:
Public Sub SendReceiveNowDev()
' Instantiate an Outlook Application object.
Set objOutlook = CreateObject("Outlook.Application")
'Set Btn =
Application.ActiveExplorer.CommandBars.FindControl(msoControlButton, 5577)
Btn.Execute
'Stop Outlook
objOutlook.Quit
End Sub
Seems not to work.
| 31 May 2010 | Send All emails in Outbox and Quit using VBA | .Steph_canoe |
| 31 May 2010 |  RE: Send All emails in Outbox and Quit using VBA | .Sue Mosher [MVP] |
| 01 Jun 2010 |  RE: Send All emails in Outbox and Quit using VBA | .Steph_canoe |
Contact Us
All times are in (US) Eastern Daylight Time (GMT -4:00)
All times are in (US) Eastern Daylight Time (GMT -4:00)