Crash in VBA with new GW Client 8.0.2

Question

Hi @ all,
we use the GW API in a Word VBA Process.
After the Client update from 8.0.1 to 8.0.2 wie have problems.
The Word VBA an the Word application will hang up after the Process.
We use API Call as follow:
Set GW = CreateObject("NovellGroupWareSession")
Set GWAccount = GW.Login()
Set GWAddrBook = GWAccount.AddressBooks("Primrbuch")
Set GWAddrBooks = GWAccount.AddressBooks
Set Acc = GW.Login
Set GWMailFolder = Acc.Mailbox
Set GWMessages = GWMailFolder.Messages
Set GWDraftMsg = GWMessages.Add("GW.MESSAGE.MAIL", "Draft")
// Mail Process //
If SinSendOpt <> 2 Then
' Open the new message to view it and add recipient(s) manually
GWMsgID = GWMessage.MessageID
Set vCommander = CreateObject("GroupWiseCommander")
ParamStr = "ItemOpen(""" + GWMsgID + """)"
iRet = vCommander.Execute(ParamStr, sResult)
GWMessage.Delete
Else
' Direkt senden
GWMessage.Send
GWMessage.Delete
MsgBox "Ihre Mail wurde gesendet!", vbInformation, "Mail sent"
End If
End Sub
At that moment, the program will crash.
kann mit jemand helfen oder hat jemand die gleichen erfahrungen?
Thank you
Franky

Answer 1

>> At that moment, the program will crash.
At what moment??? Have you debugged step by step?
I suppose yor app crashes at the following lines of code:
[...snip]
> ' Direkt senden
> GWMessage.Send
> GWMessage.Delete
[...snip]
I could not find the declaration of 'GWMessage' in your code snipplet; what is
'GWMessage' in fact?
I suppose 'GWMessage' ist your 'sendable draft'?
If so, you try to delete the 'Draft', which is automatically deleted when the message
is sent.
I would rather do it that way:
' oMsgSent is of type 'Object' (late binding)
oMsgSent = GWMessage.Send
oMsgSent.Delete
regards,
Markus
"wiassaibling" <[email protected]> schrieb im Newsbeitrag
news:[email protected]...
>
> Hi @ all,
>
> we use the GW API in a Word VBA Process.
> After the Client update from 8.0.1 to 8.0.2 wie have problems.
> The Word VBA an the Word application will hang up after the Process.
>
> We use API Call as follow:
>
> Set GW = CreateObject("NovellGroupWareSession")
> Set GWAccount = GW.Login()
> Set GWAddrBook = GWAccount.AddressBooks("Primrbuch")
> Set GWAddrBooks = GWAccount.AddressBooks
>
> Set Acc = GW.Login
> Set GWMailFolder = Acc.Mailbox
> Set GWMessages = GWMailFolder.Messages
> Set GWDraftMsg = GWMessages.Add("GW.MESSAGE.MAIL", "Draft")
>
> ...
> // Mail Process //
>
> If SinSendOpt <> 2 Then
> ' Open the new message to view it and add recipient(s) manually
> GWMsgID = GWMessage.MessageID
> Set vCommander = CreateObject("GroupWiseCommander")
> ParamStr = "ItemOpen(""" + GWMsgID + """)"
> iRet = vCommander.Execute(ParamStr, sResult)
> GWMessage.Delete
>
>
> Else
> ' Direkt senden
> GWMessage.Send
> GWMessage.Delete
> MsgBox "Ihre Mail wurde gesendet!", vbInformation, "Mail sent"
>
>
> End If
> ..
>
> END SUB
>
> At that moment, the program will crash.
>
> kann mit jemand helfen oder hat jemand die gleichen erfahrungen?
>
> Thank you
> Franky
>
>
> --
> Helmut Frank
> Germany
> ------------------------------------------------------------------------
> wiassaibling's Profile: http://forums.novell.com/member.php?userid=51056
> View this thread: http://forums.novell.com/showthread.php?t=420676
>