word97 and groupwise 5.5

[PoK]

iam trying to send a word97 document through grouwpsie 5.5

here is the code:

Documents("5_7_injury.doc").HasRoutingSlip = True
With Documents("5_7_injury.doc").RoutingSlip
.Subject = "Injury Notification Report "
.AddRecipient Recipient:="user"
.Delivery = wdAllAtOnce
End With
Documents("5_7_injury.doc").Route



and also tried this way:

ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.Subject = "ATTENTION : Injury Notification Report"
.Message = "Here is a copy of the Injury Report Form"
.AddRecipient "user"
.Delivery = wdAllAtOnce
End With
ActiveDocument.Route



both ways i get a word error and word closes on me.

error: Winword.exe has generated erros and will be closed blah blah
blah

anyone know why this might happen.

once in say 15 to 20 tries it will go through normally and work
great.(ie:click button on word page and it goes through without any
windows popping up or what not.)

groupwise 5.5
winnt 4.0


any help will be greatly appreciated.

 

[PoK]

after some time pulling my hair out i figured out from reading other
threads and from on other sites and also trial and error that this is
the code that works:

ActiveDocument.HasRoutingSlip = False
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
..Subject = "whatever your subject is"
..Message = "whatever you want it to say in the body of the email"
.AddRecipient "(e-mail address removed)"
.AddRecipient "(e-mail address removed)"
.Delivery = wdAllAtOnce
End With
ActiveDocument.Route
ActiveDocument.HasRoutingSlip = False

this works perfect with groupwise 5.5 and word97


for any that are interested - the way for groupwise 6.5 and word97 is
as follows:

Set GWApp = CreateObject("NovellGroupWareSession")
Set gWAccount = GWApp.Login()
Set gwMessage = gWAccount.MailBox.Messages.Add
gwMessage.BodyText = "whatever you want your body of the email to
say"
gwMessage.Subject = "whatever your subject is"
gwMessage.Recipients.AddByDisplayName "username" (domain.com isnt
necessary for inside email address's)
gwMessage.Attachments.Add
Documents("your_document_name.doc").FullName
gwMessage.Send

hope this helps out someone