GW and ACCESS

[kjweber]

This is the code I have currently but all I want to do is right before the message is sent, I would like it to display to the user so they change anything or cancel and save it in "Work in Progress". I cant figure out how to do that, Please help.

AutoEMail = True
If goGWSession Is Nothing Then
Set goGWSession = CreateObject ("NovellGroupWareSession&quot
End If
If psMailTask = "Task" Then
Set oMessage = goGWSession.Login.WorkFolder.Messages.Add("GW.Message.Task&quot
Else
Set oMessage = goGWSession.Login.WorkFolder.Messages.Add("GW.Message.Mail&quot
End If

oMessage.Recipients.Add (psTo)
oMessage.Subject = psSubject
oMessage.BodyText = psMessage

If Not psAttachment = "" Then oMessage.Attachments.Add (psAttachment)
If psMailTask = "Task" And psReturns Then
oMessage.NotifyWhenOpened = 1 ' Send an EMail
oMessage.NotifyWhenCompleted = 3 ' Send an EMail and Notification
End If
If psSendIt Then
Set oSentMsg = oMessage.Send
If oSentMsg Is Nothing Then
AutoEMail = False
End If
End If
Set goGWSession = Nothing