I need to access Groupwise

[lemon_balm]

Hi

I have created an call logging system for my company and have integrated the basGWdemo for Access 97 module into it. I have given it the ability to add multiple names for sending emails which is all well and good. However, at present, the mail is sent out without Groupwise actually being accessed and I need to be able to view the email before it is sent.
Does anyone have any idea how to amend the code for this purpose. I have tried removing the .sendmessage and .deletemessage lines but this just stops it actually sending the message. I think I need to initially open the message before it is created but am not sure how to do this.
I have posted the code which I am using below:

Option Compare Database
Option Explicit

Sub RunDemo(name As String, dept As String, ext As Integer, notes As String, Issue As String, issuedate As Date, issuetime As String, identifier As String, user As String)
'this is a sample usage routine
On Error GoTo Err_Handler
Dim strTemp As String
Dim varAttach(1) As Variant
Dim strRecTo(1, 0) As String
Dim lngCount As Long
Dim varProxies As Variant
Dim cGW As GW


varAttach(0) = "c:\command.com"
varAttach(1) = "c:\windows\readme.txt"

strRecTo(0, 0) = user
strRecTo(1, 0) = "Full Name 1"

Set cGW = New GW
With cGW
  .Login
  .BodyText = "This item has been called to our attention" & vbCrLf & vbCrLf & "From: " & name & ", Dept: " & dept & ", Ext: " & ext & vbCrLf & vbCrLf & "Call ID: " & identifier & vbCrLf & "Date: " & issuedate & vbCrLf & "Time: " & issuetime & vbCrLf & vbCrLf & "Issue: " & Issue & vbCrLf & "Notes: " & notes & vbCrLf & vbCrLf & "Once this issue has been actioned please reply to this message with a brief note of any action taken." & vbCrLf & vbCrLf & "Regards."
  .Subject = "Logged Call for Attention"
  .RecTo = strRecTo
  .RecCc = ""
  .FileAttachments = varAttach
  .FromText = "Facilities Call Logging"
  .Priority = "High"
  strTemp = .CreateMessage
  .ResolveRecipients strTemp
  If IsArray(.NonResolved) Then MsgBox "Some unresolved recipients."
  .CreateMessage strTemp
  .SendMessage strTemp
  .DeleteMessage strTemp, True

End With

Exit_Here:
  Set cGW = Nothing
  Exit Sub

Err_Handler:
  MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical
  Resume Exit_Here

End Sub

Regards

Jason

 

[KeithG]

Did you create a class called GW for groupwise? You probably need to add a method or property to open up groupwise in your class.

 

[lemon_balm]

Hi Keith

I did create a class called GW using the coding provided with the basGWdemo. However, I cannot find a method/function/property in there to do this.
If I was going to create a new method within this framework, what would be the best way of going about it? I am fairly proficient at reading code and figuring out how it works but this has got me stumped

Regards

Jason