Previewing an email

From the Novell site I have some VB code to send an email in GroupWise (See 
below).

However I would like to give the user the option to preview the email before 
it is sent. In Outlook this can be done by calling the Display method of the 
email object.

Does anyone know how to do it in GroupWise? I want to create the email, set 
all the properties (subject, recipients, body, attachments etc) then before 
I send the email I want it to be displayed to the user, and they can then 
choose to send it or not.

I am running GroupWise 7, however ideally I would like this to also work on 
6.5

Here is the code:

    Dim objDraftMsg As Message
    Dim objSentMsg As Message
    Dim objRecip As Recipient

    'Message & Header
    Set objDraftMsg = objAccount.WorkFolder.Messages.Add ' create draft in 
work folder
    objDraftMsg.Subject = Text2.Text               ' Subject
    If Text3.Text <> "" Then                       ' Do we have
an 
attachment?
        objDraftMsg.Attachments.Add (Text3.Text)   ' Yes, attach it
        End If
    objDraftMsg.BodyText = Text4.Text              ' Body

    'Setup Recipients & Resolve
    Set objRecip = objDraftMsg.Recipients.Add(objAccount.Owner.EMailAddress, 
egwTo)  ' to self
    Call objRecip.Resolve
    If objRecip.Resolved <> egwResolved Then
        Set objRecip = 
objDraftMsg.Recipients.AddByDisplayName(objAccount.Owner.DisplayName, egwTo)
        End If

    ' just for demo purposes I add myself to the Cc list
    Set objRecip = objDraftMsg.Recipients.Add(objAccount.Owner.EMailAddress, 
egwCC)  ' to self
    Call objRecip.Resolve
    If objRecip.Resolved <> egwResolved Then
        Set objRecip = 
objDraftMsg.Recipients.AddByDisplayName(objAccount.Owner.DisplayName, egwCC)
        End If

    ' Now, send the stuff
    Set objSentMsg = objDraftMsg.Send 

you're best to post to the GW newsgroup and no the general one here.

-- 


Peter