[mso] Re: mso Digest V2 #145,"Re: Excel 2000 and Outlook 2000 questions"
- From: "Linda F. Johnson" <linda@xxxxxxxxxxxxxxxxxxxxxxxxxxx>
- To: mso@xxxxxxxxxxxxx
- Date: Sun, 25 May 2003 09:30:44 -0400
Hi Richard...did you also notice at the ClickYes link I gave you
( http://www.express-soft.com/mailmate/clickyes.html )
That there is some VBA code listed to do this too? Also C++, etc...I'm no
programmer so this doesn't make much sense to me but this is what it says.
Could this be used in some way?
VB/VBA Sample
' Declare Windows' API functions
Private Declare Function RegisterWindowMessage _
Lib "user32" Alias "RegisterWindowMessageA" _
(ByVal lpString As String) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As Any, _
ByVal lpWindowName As Any) As Long
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Sub SomeProc()
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long
' Register a message to send
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
' Find ClickYes Window by classname
wnd = FindWindow("EXCLICKYES_WND", 0&)
' Send the message to Resume ClickYes
Res = SendMessage(wnd, uClickYes, 1, 0)
' ...
' Do some Actions
' ...
' Send the message to Suspend ClickYes
Res = SendMessage(wnd, uClickYes, 0, 0)
End Sub
Linda
Publisher ~ ABC ~ All 'Bout Computers
Owner ~ Linda's Computer Stop
http://personal-computer-tutor.com
FREE MS Office eBook Tutorial
http://personal-computer-tutor.com/library.htm
-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On Behalf
Of Richard Watt
Sent: Sunday, May 25, 2003 6:29 AM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: mso Digest V2 #145, "Re: Excel 2000 and Outlook 2000
questions"
Linda,
thanks for the suggestion about ClickYes - unfortunately, I don't think that
we can use it because it would have to be installed by our network
administrators, and they'd probably take a dim view on it.
But, I'll give it a try anyway - they might just give way considering how
important our team is at the moment.
Regards,
Richard Watt
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in
the subject line.
Or, visit the group's homepage and use the dropdown menu. This will also allow
you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with
instructions. Once you are a member of the files group, you can go here to
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
Other related posts:
- » [mso] Re: mso Digest V2 #145,"Re: Excel 2000 and Outlook 2000 questions"