I would like to verify the purpose of the vsenddirect TRUE command.
Is this so the attached PDF will not come to the screen before sending?
I ask because my sales people want the PDF to come to the screen before
sending so if they need to they can add attachments.
If this is not the command I need to delete, what changes should I make
so the PDF comes up before they send it to our customer?
Here is the code we use now.
SET VAR vfilename = ('PDF\SalesOrder_'+.vcontrol+'.PDF')
CHOOSE vreportname FROM #VALUES FOR sys_report_name FROM sys_reports3 +
WHERE sys_report_name IN (kayparkorder,kayparkorderdisc)
PRINT .vreportname WHERE control# = .vcontrol +
OPTION PDF +
|FILENAME &vFileName +
|TITLE Kay Park Recreation +
|SUBJECT Sales ORDER
SET VAR vpipe = '|'
SELECT distid# INTO vdistid INDICATOR ivdistid FROM orderheader +
WHERE control# = .vcontrol
SELECT emailadd INTO vto INDICATOR ivto FROM orderheader WHERE control#
= .vcontrol
SET VAR vto = ('To:'+.vto)
SET VAR vsubject = ('Subject:Order from Kay Park Recreation'&.vcontrol)
SET VAR vcc = 'Cc:[email protected]'
SET VAR vbcc TEXT = 'Bcc:[email protected]'
SET VAR vbody TEXT = +
'Body:Please review attached sales order from Kay Park Recreation.
Thanks!'
SET VAR vattachments = ('Attachments:'+(CVAL('CURRDIR'))+'\'+.vfilename)
SET VAR vsenddirect = 'SendDirect:TRUE'
SET VAR vparameters = +
(.vquote+.vDummy&.vpipe+.vto&.vpipe+.vsubject&.vpipe+.vcc&.vpipe+ +
.vbcc&.vpipe+.vbody&.vpipe+.vattachments&.vpipe+.vsenddirect+.vquote)
--CLS
PLUGINS mapimail4.rbl &vparameters
PAUSE FOR 3 USING 'Wait for box to close'
SET VAR vemresult = (dlfree('mapimail4.rbl'))
James Belisle
Making Information Systems People Friendly Since 1990
