Went hunting in the archives and didn't find anything there or in the
help file relating to a "sleep" function. In other scripting
languages, just to give an example, you can type in something like

Sleep(10000) 'for 10 seconds
or even just
Sleep 10000

and the macro pauses for the length of time stated. How would one do
that in O2K vb, pls? Thanks. D

Outlook VBA is not a scripting language, nor is any other variant of VBA
code. In VBA you can use the Win32 API Sleep method, just be very careful to
make sure it's not an infinite sleep since the thread still has to process
Windows messages.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep 2000 ' sleep for 2000 ms = 2 seconds

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"StargateFan" wrote in message
...
Went hunting in the archives and didn't find anything there or in the
help file relating to a "sleep" function. In other scripting
languages, just to give an example, you can type in something like

Sleep(10000) 'for 10 seconds
or even just
Sleep 10000

and the macro pauses for the length of time stated. How would one do
that in O2K vb, pls? Thanks. D

"Ken Slovak - [MVP - Outlook]" wrote in message
...
Outlook VBA is not a scripting language, nor is any other variant of VBA
code. In VBA you can use the Win32 API Sleep method, just be very careful
to make sure it's not an infinite sleep since the thread still has to
process Windows messages.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep 2000 ' sleep for 2000 ms = 2 seconds

Yes, that was impressed upon me very much by the very many messages in
response to this query in the archives. But there was no alternative given.
If need be, a looping mechanism or something that would have accomplished
the end result would have been fine. But did try this, both with and
without the "Private Declare" statement and I get an error message so either
I'm doing something wrong, or the syntax is incorrect.

Here's is the script:
***************************
Private Sub Application_Startup()
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sleep 2000 ' sleep for 2000 ms = 2 seconds

strMsg = "Do you want to run the macro to expand all the folders... ?"
If MsgBox(strMsg, vbYesNo + vbQuestion, "Expand all?") = vbYes Then
ExpandAllFolders
End If
End Sub
***************************

Whether or not the "Private Declare" line has been put in, either way the
vbe is brought up with "sleep" highlighted and the error:
"Sub of Function not defined."

Thanks.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"StargateFan" wrote in message
...
Went hunting in the archives and didn't find anything there or in the
help file relating to a "sleep" function. In other scripting
languages, just to give an example, you can type in something like

Sleep(10000) 'for 10 seconds
or even just
Sleep 10000

and the macro pauses for the length of time stated. How would one do
that in O2K vb, pls? Thanks. D

The declaration for the Sleep() API function, as with any similar API
declarations, should be placed at module level and not inside another
method. Move it to above any code procedures in that module.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"StargateFanFromWork" wrote in message
...
"Ken Slovak - [MVP - Outlook]" wrote in message
...
Outlook VBA is not a scripting language, nor is any other variant of VBA
code. In VBA you can use the Win32 API Sleep method, just be very careful
to make sure it's not an infinite sleep since the thread still has to
process Windows messages.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep 2000 ' sleep for 2000 ms = 2 seconds

Yes, that was impressed upon me very much by the very many messages in
response to this query in the archives. But there was no alternative
given. If need be, a looping mechanism or something that would have
accomplished the end result would have been fine. But did try this, both
with and without the "Private Declare" statement and I get an error
message so either I'm doing something wrong, or the syntax is incorrect.

Here's is the script:
***************************
Private Sub Application_Startup()
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sleep 2000 ' sleep for 2000 ms = 2 seconds

strMsg = "Do you want to run the macro to expand all the folders... ?"
If MsgBox(strMsg, vbYesNo + vbQuestion, "Expand all?") = vbYes Then
ExpandAllFolders
End If
End Sub
***************************

Whether or not the "Private Declare" line has been put in, either way the
vbe is brought up with "sleep" highlighted and the error:
"Sub of Function not defined."

Thanks.

"Ken Slovak - [MVP - Outlook]" wrote in message
...
The declaration for the Sleep() API function, as with any similar API
declarations, should be placed at module level and not inside another
method. Move it to above any code procedures in that module.

Okay, though I understand the words individually, didn't understand all that
above g. What I did get out of that was to put it at the very top of the
"module", so I put this line which seemed to be most logical pat to put at
the very top:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
' This line is so that you can use "Sleep" in any macro.


Then I changed the macro to this:
********************************************
Private Sub Application_Startup()
Sleep 2000 ' sleep for 2000 ms = 2 seconds
strMsg = "Do you want to run the macro to expand all the folders... ?"
If MsgBox(strMsg, vbYesNo + vbQuestion, "Expand all?") = vbYes Then
ExpandAllFolders
End If
End Sub
********************************************
I even tried 5000 for 5 seconds. But it's still not behaving as it should.
The problem is that the box for this macro comes up on the heels of the
prompt to enable/disable macros. All the sleep does is delay that
enable/disable box from disappearing so that this box is _still_ being
called up on the heels of the other one's disappearance. Can we fine-tune
this to something more logical? What is needed is that _after_ the
disable/enable macros prompt _disappears_, then the above macro has a delay
before it pops up? Is this do-able? The other just isn't logical. It just
seems that the enable/disable macros prompt box has gotten hung.

Thanks much for your patience. D

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"StargateFanFromWork" wrote in message
...
"Ken Slovak - [MVP - Outlook]" wrote in message
...
Outlook VBA is not a scripting language, nor is any other variant of VBA
code. In VBA you can use the Win32 API Sleep method, just be very
careful to make sure it's not an infinite sleep since the thread still
has to process Windows messages.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep 2000 ' sleep for 2000 ms = 2 seconds

Yes, that was impressed upon me very much by the very many messages in
response to this query in the archives. But there was no alternative
given. If need be, a looping mechanism or something that would have
accomplished the end result would have been fine. But did try this, both
with and without the "Private Declare" statement and I get an error
message so either I'm doing something wrong, or the syntax is incorrect.

Here's is the script:
***************************
Private Sub Application_Startup()
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As
Long)
Sleep 2000 ' sleep for 2000 ms = 2 seconds

strMsg = "Do you want to run the macro to expand all the folders... ?"
If MsgBox(strMsg, vbYesNo + vbQuestion, "Expand all?") = vbYes
Then
ExpandAllFolders
End If
End Sub
***************************

Whether or not the "Private Declare" line has been put in, either way the
vbe is brought up with "sleep" highlighted and the error:
"Sub of Function not defined."

Thanks.

As soon as you enable the macros to run the Sleep() method is called,
therefore preventing the Outlook thread from processing the message to close
that warning dialog. That's one of the reasons that people were warning
against using Sleep().

What you really need is a OnStartupComplete event, only available in COM
addins and not in the Outlook VBA project.

An alternative would be if you have a 3rd party timer control available to
you or one from Visual Studio 6. Then you can start the timer in Startup()
and set it for say 5 seconds and when the timer interrupt fires you can then
show your MsgBox. That would allow Outlook to process the message to close
that warning dialog about enabling macros while still having the timer run.

If you don't have a timer control available then you'd need to use a Win32
API timer, which is a lot more complicated to create and set up.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"StargateFanFromWork" wrote in message
...
"Ken Slovak - [MVP - Outlook]" wrote in message
...
The declaration for the Sleep() API function, as with any similar API
declarations, should be placed at module level and not inside another
method. Move it to above any code procedures in that module.

Okay, though I understand the words individually, didn't understand all
that above g. What I did get out of that was to put it at the very top
of the "module", so I put this line which seemed to be most logical pat to
put at the very top:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '
This line is so that you can use "Sleep" in any macro.


Then I changed the macro to this:
********************************************
Private Sub Application_Startup()
Sleep 2000 ' sleep for 2000 ms = 2 seconds
strMsg = "Do you want to run the macro to expand all the folders... ?"
If MsgBox(strMsg, vbYesNo + vbQuestion, "Expand all?") = vbYes Then
ExpandAllFolders
End If
End Sub
********************************************
I even tried 5000 for 5 seconds. But it's still not behaving as it
should. The problem is that the box for this macro comes up on the heels
of the prompt to enable/disable macros. All the sleep does is delay that
enable/disable box from disappearing so that this box is _still_ being
called up on the heels of the other one's disappearance. Can we fine-tune
this to something more logical? What is needed is that _after_ the
disable/enable macros prompt _disappears_, then the above macro has a
delay before it pops up? Is this do-able? The other just isn't logical.
It just seems that the enable/disable macros prompt box has gotten hung.

Thanks much for your patience. D

Thank you for the education. Much appreciated. Seems that Outlook makes
things difficult. Sleep works extremely well in other scripting programs
that I'm familiar with g. Ah well. Will just have to live without all
that and since I'm going to remove the sleep code and have the boxes pop up
one after the other. Not elegant, doesn't give one time to breath, and
might accidentally click the 2nd box too quickly, but I'll get just have to
get used to it. Better than that hanging box!

It's all just rather annoying. sigh

Thanks. D

"Ken Slovak - [MVP - Outlook]" wrote in message
...
As soon as you enable the macros to run the Sleep() method is called,
therefore preventing the Outlook thread from processing the message to
close that warning dialog. That's one of the reasons that people were
warning against using Sleep().

What you really need is a OnStartupComplete event, only available in COM
addins and not in the Outlook VBA project.

An alternative would be if you have a 3rd party timer control available to
you or one from Visual Studio 6. Then you can start the timer in Startup()
and set it for say 5 seconds and when the timer interrupt fires you can
then show your MsgBox. That would allow Outlook to process the message to
close that warning dialog about enabling macros while still having the
timer run.

If you don't have a timer control available then you'd need to use a Win32
API timer, which is a lot more complicated to create and set up.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"StargateFanFromWork" wrote in message
...
"Ken Slovak - [MVP - Outlook]" wrote in message
...
The declaration for the Sleep() API function, as with any similar API
declarations, should be placed at module level and not inside another
method. Move it to above any code procedures in that module.

Okay, though I understand the words individually, didn't understand all
that above g. What I did get out of that was to put it at the very top
of the "module", so I put this line which seemed to be most logical pat
to put at the very top:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '
This line is so that you can use "Sleep" in any macro.


Then I changed the macro to this:
********************************************
Private Sub Application_Startup()
Sleep 2000 ' sleep for 2000 ms = 2 seconds
strMsg = "Do you want to run the macro to expand all the folders... ?"
If MsgBox(strMsg, vbYesNo + vbQuestion, "Expand all?") = vbYes
Then
ExpandAllFolders
End If
End Sub
********************************************
I even tried 5000 for 5 seconds. But it's still not behaving as it
should. The problem is that the box for this macro comes up on the heels
of the prompt to enable/disable macros. All the sleep does is delay that
enable/disable box from disappearing so that this box is _still_ being
called up on the heels of the other one's disappearance. Can we
fine-tune this to something more logical? What is needed is that _after_
the disable/enable macros prompt _disappears_, then the above macro has a
delay before it pops up? Is this do-able? The other just isn't logical.
It just seems that the enable/disable macros prompt box has gotten hung.

Thanks much for your patience. D

Is there a possible workaround that somehow does what sleep _should_ do,
without keeping boxes from closing properly? Anything along this line:

Application.Wait Now + TimeSerial(0, 0, 3) ' 3 seconds

This is actually an Excel code kindly given to me but I added it to the
beginning of the opening macro in a workbook and the enable macros box
closed and 3 seconds passed before the message box popped up so this _does_
work in Excel. The hour glass kept working during that 3 second wait but
that doesn't matter. The previous box closed immediately as it should and
didn't seem to hang, so that worked well.

Is there an Outlook equivalent?? I did try that code in the O2K vbe but get
this error:
"Run-time error '438':
Object doesn't support this property or method"

************************************************** **********
Private Sub Application_Startup()
Application.Wait Now + TimeSerial(0, 0, 3) ' 3 seconds
strMsg = "Do you want to run the macro to expand all the folders... ?"
If MsgBox(strMsg, vbYesNo + vbQuestion, "Expand all?") = vbYes Then
ExpandAllFolders
End If
End Sub

************************************************** **********
Thanks. D

"StargateFanFromWork" wrote in message
...
Thank you for the education. Much appreciated. Seems that Outlook makes
things difficult. Sleep works extremely well in other scripting programs
that I'm familiar with g. Ah well. Will just have to live without all
that and since I'm going to remove the sleep code and have the boxes pop
up one after the other. Not elegant, doesn't give one time to breath, and
might accidentally click the 2nd box too quickly, but I'll get just have
to get used to it. Better than that hanging box!

It's all just rather annoying. sigh

Thanks. D

"Ken Slovak - [MVP - Outlook]" wrote in message
...
As soon as you enable the macros to run the Sleep() method is called,
therefore preventing the Outlook thread from processing the message to
close that warning dialog. That's one of the reasons that people were
warning against using Sleep().

What you really need is a OnStartupComplete event, only available in COM
addins and not in the Outlook VBA project.

An alternative would be if you have a 3rd party timer control available
to you or one from Visual Studio 6. Then you can start the timer in
Startup() and set it for say 5 seconds and when the timer interrupt fires
you can then show your MsgBox. That would allow Outlook to process the
message to close that warning dialog about enabling macros while still
having the timer run.

If you don't have a timer control available then you'd need to use a
Win32 API timer, which is a lot more complicated to create and set up.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"StargateFanFromWork" wrote in message
...
"Ken Slovak - [MVP - Outlook]" wrote in message
...
The declaration for the Sleep() API function, as with any similar API
declarations, should be placed at module level and not inside another
method. Move it to above any code procedures in that module.

Okay, though I understand the words individually, didn't understand all
that above g. What I did get out of that was to put it at the very
top of the "module", so I put this line which seemed to be most logical
pat to put at the very top:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
' This line is so that you can use "Sleep" in any macro.


Then I changed the macro to this:
********************************************
Private Sub Application_Startup()
Sleep 2000 ' sleep for 2000 ms = 2 seconds
strMsg = "Do you want to run the macro to expand all the folders...
?"
If MsgBox(strMsg, vbYesNo + vbQuestion, "Expand all?") = vbYes
Then
ExpandAllFolders
End If
End Sub
********************************************
I even tried 5000 for 5 seconds. But it's still not behaving as it
should. The problem is that the box for this macro comes up on the heels
of the prompt to enable/disable macros. All the sleep does is delay
that enable/disable box from disappearing so that this box is _still_
being called up on the heels of the other one's disappearance. Can we
fine-tune this to something more logical? What is needed is that
_after_ the disable/enable macros prompt _disappears_, then the above
macro has a delay before it pops up? Is this do-able? The other just
isn't logical. It just seems that the enable/disable macros prompt box
has gotten hung.

Thanks much for your patience. D

There's no Outlook equivalent. You would have to use a timer control or a
Win32 API timer.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"StargateFanFromWork" wrote in message
...
Is there a possible workaround that somehow does what sleep _should_ do,
without keeping boxes from closing properly? Anything along this line:

Application.Wait Now + TimeSerial(0, 0, 3) ' 3 seconds

This is actually an Excel code kindly given to me but I added it to the
beginning of the opening macro in a workbook and the enable macros box
closed and 3 seconds passed before the message box popped up so this
_does_ work in Excel. The hour glass kept working during that 3 second
wait but that doesn't matter. The previous box closed immediately as it
should and didn't seem to hang, so that worked well.

Is there an Outlook equivalent?? I did try that code in the O2K vbe but
get this error:
"Run-time error '438':
Object doesn't support this property or method"

************************************************** **********
Private Sub Application_Startup()
Application.Wait Now + TimeSerial(0, 0, 3) ' 3 seconds
strMsg = "Do you want to run the macro to expand all the folders... ?"
If MsgBox(strMsg, vbYesNo + vbQuestion, "Expand all?") = vbYes Then
ExpandAllFolders
End If
End Sub

************************************************** **********
Thanks. D

Dang. Okay. Thanks much. Much appreciated!

D

"Ken Slovak - [MVP - Outlook]" wrote in message
...
There's no Outlook equivalent. You would have to use a timer control or a
Win32 API timer.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"StargateFanFromWork" wrote in message
...
Is there a possible workaround that somehow does what sleep _should_ do,
without keeping boxes from closing properly? Anything along this line:

Application.Wait Now + TimeSerial(0, 0, 3) ' 3 seconds

This is actually an Excel code kindly given to me but I added it to the
beginning of the opening macro in a workbook and the enable macros box
closed and 3 seconds passed before the message box popped up so this
_does_ work in Excel. The hour glass kept working during that 3 second
wait but that doesn't matter. The previous box closed immediately as it
should and didn't seem to hang, so that worked well.

Is there an Outlook equivalent?? I did try that code in the O2K vbe but
get this error:
"Run-time error '438':
Object doesn't support this property or method"

************************************************** **********
Private Sub Application_Startup()
Application.Wait Now + TimeSerial(0, 0, 3) ' 3 seconds
strMsg = "Do you want to run the macro to expand all the folders... ?"
If MsgBox(strMsg, vbYesNo + vbQuestion, "Expand all?") = vbYes
Then
ExpandAllFolders
End If
End Sub

************************************************** **********
Thanks. D