click yes vb sample

[Guest]

I have a script that no longer works since we upgraded to outlook 200
on windows 98se pc. I applied the clickyes program, but do not wan
it active all the time. I tried the vb sample script to turn it on an
off within the script I am already using, but keep getting an error.
I am not a programer. I recd the original script from Microsoft.
They will not help me now stating it is a breach of security to sen
automatic email

The error says
Line:
Char: 1
Error: Expected end of statemen
Code: 800A040
Source: Microsoft VBScript compilation erro

I have tried to contact click yes creaters. However, there is n
phone number on there website and they have not responded to my man
email requests

Code being used
' Declare Windows' API function
Private Declare Function RegisterWindowMessage
Lib "user32" Alias "RegisterWindowMessageA"
(ByVal lpString As String) As Lon

Private Declare Function FindWindow Lib "user32"
Alias "FindWindowA" (ByVal lpClassName As Any,
ByVal lpWindowName As Any) As Lon

Private Declare Function SendMessage Lib "user32"
Alias "SendMessageA" (ByVal hwnd As Long,
ByVal wMsg As Long, ByVal wParam As Long,
lParam As Any) As Lon

Private Sub SomeProc(
Dim wnd As Lon
Dim uClickYes As Lon
Dim Res As Lon

' Register a message to sen
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME"

' Find ClickYes Window by classnam
wnd = FindWindow("EXCLICKYES_WND", 0&

' Send the message to Resume ClickYe
Res = SendMessage(wnd, uClickYes, 1, 0

' ..
' Do some Action
' ..

' Send the message to Suspend ClickYe
Res = SendMessage(wnd, uClickYes, 0, 0

End Su


Can anyone help me
Thank
Kell

 

[Doug Robbins - Word MVP - DELETE UPPERCASE CHARACT]

See the information on Express Click Yes in the article "Mail Merge to
E-mail with Attachments" at

http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm


--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP