the code below works for send but I want to show the email before the user sends
GWApp = CreateObject("NovellGroupWareSession"
&& login to GW
*Login using () will login to the open account or run the login
*script if none was opened.
gWAccount = GWApp.Login()
*Create a new message in the Mailbox
gwMessage = gWAccount.MailBox.Messages.Add
with gwMessage
.Subject = allt(oF2W.DOC_FileName)
recip=allt(thisform.text9.value)
.Recipients.Add( recip)
.Attachments.Add( nfile)
if thisform.optiongroup7.value=1 &&send
.Send
else &&I want to show the email
????? .show()
endif
endw
GWApp = CreateObject("NovellGroupWareSession"
*Login using () will login to the open account or run the login
*script if none was opened.
gWAccount = GWApp.Login()
*Create a new message in the Mailbox
gwMessage = gWAccount.MailBox.Messages.Add
with gwMessage
.Subject = allt(oF2W.DOC_FileName)
recip=allt(thisform.text9.value)
.Recipients.Add( recip)
.Attachments.Add( nfile)
if thisform.optiongroup7.value=1 &&send
.Send
else &&I want to show the email
????? .show()
endif
endw