P
PoK
we are using word 97.
we are using grouwwise 5.5
we are going to groupwise 6.5 (small test environment already moved
over to use as tests) rest will follow towards end of the year.
i have users who want to have a word 97 sheet with the required
information on it but also a button on the lower portion for when they
are done entering data - and press the button
the word sheet will print out to there installed printer
it will automatically email the filled out form to like 3 other people
and then close without saving.
now myself - i am using groupwise 6.5 and i create this sheet and put
all the code into it and it works fine.
but when i gave it to the people who need - it wont work.
can anyone help me out with what i may have did wrong in my code.
like i said it works fine when using groupowise 6.5 but wont work
when using groupwise 5.5
??
sample code:
Private Sub CommandButton1_Click()
lAnswer = MsgBox("Have you entered information in all the required
fields on this form ? if not - press cancel and edit your entrys -
otherwise press *OK* to send.", vbOK, "ATTENTION: Please check your
work for errors.")
If lAnswer = vbOK Then
Set GWApp = CreateObject("NovellGroupWareSession")
Set gWAccount = GWApp.Login()
Set gwMessage = gWAccount.MailBox.Messages.Add
gwMessage.BodyText = "Here is a copy of the injury report form."
gwMessage.Subject = "Injury Report Form"
gwMessage.Recipients.AddByDisplayName "dummyname"
gwMessage.Attachments.Add Documents("injury.doc").FullName
gwMessage.Send
llanswer = MsgBox("Your Injury Report form has been sent
successfully",vbOKOnly, "ATTENTION: Successful Submission"
lllanswer = MsgBox("would you like an additional copy of this report
printed out for your records ?", vbOK, "ATTENTION: Print a Copy
?")
If lllanswer = vbOK Then
Word.ActiveDocument.PrintOut
Wait = 4000 <-----------------SEE BELOW
Word.Application.Quit
Else
Word.Application.Quit (0)
End If
End If
End Sub
________________________________________________________________________________
Private Sub CommandButton2_Click()
Word.Application.Quit (0)
End Sub
RE:see below,
for some other reason which i havent figured out yet - the wait
command wont work correctly either. i needed a wait put in the
above spot because if they answer yes to another copy - word needs to
stay running long enbough to spool the job to the printer before
closing.
technically no biggy as i can take out the automatic closing without
saving and make them do it manually if no one knows. i am more
irritated about not figuring out why it the send works in GW 6.5 and
not 5.5
any help will be greatly appreciated.
thanks,
Pok
(e-mail address removed)
we are using grouwwise 5.5
we are going to groupwise 6.5 (small test environment already moved
over to use as tests) rest will follow towards end of the year.
i have users who want to have a word 97 sheet with the required
information on it but also a button on the lower portion for when they
are done entering data - and press the button
the word sheet will print out to there installed printer
it will automatically email the filled out form to like 3 other people
and then close without saving.
now myself - i am using groupwise 6.5 and i create this sheet and put
all the code into it and it works fine.
but when i gave it to the people who need - it wont work.
can anyone help me out with what i may have did wrong in my code.
like i said it works fine when using groupowise 6.5 but wont work
when using groupwise 5.5
??
sample code:
Private Sub CommandButton1_Click()
lAnswer = MsgBox("Have you entered information in all the required
fields on this form ? if not - press cancel and edit your entrys -
otherwise press *OK* to send.", vbOK, "ATTENTION: Please check your
work for errors.")
If lAnswer = vbOK Then
Set GWApp = CreateObject("NovellGroupWareSession")
Set gWAccount = GWApp.Login()
Set gwMessage = gWAccount.MailBox.Messages.Add
gwMessage.BodyText = "Here is a copy of the injury report form."
gwMessage.Subject = "Injury Report Form"
gwMessage.Recipients.AddByDisplayName "dummyname"
gwMessage.Attachments.Add Documents("injury.doc").FullName
gwMessage.Send
llanswer = MsgBox("Your Injury Report form has been sent
successfully",vbOKOnly, "ATTENTION: Successful Submission"
lllanswer = MsgBox("would you like an additional copy of this report
printed out for your records ?", vbOK, "ATTENTION: Print a Copy
?")
If lllanswer = vbOK Then
Word.ActiveDocument.PrintOut
Wait = 4000 <-----------------SEE BELOW
Word.Application.Quit
Else
Word.Application.Quit (0)
End If
End If
End Sub
________________________________________________________________________________
Private Sub CommandButton2_Click()
Word.Application.Quit (0)
End Sub
RE:see below,
for some other reason which i havent figured out yet - the wait
command wont work correctly either. i needed a wait put in the
above spot because if they answer yes to another copy - word needs to
stay running long enbough to spool the job to the printer before
closing.
technically no biggy as i can take out the automatic closing without
saving and make them do it manually if no one knows. i am more
irritated about not figuring out why it the send works in GW 6.5 and
not 5.5
any help will be greatly appreciated.
thanks,
Pok
(e-mail address removed)