[RBASE-L] - Multiple MapiMail Attachements Question

[Bill Eyring]

I have a program which attaches a pdf to an email and sends the email.
 
When I try to attach more than 1 attachment, the email fails.
 
Here is the code I use;
 
set v vfile1 text='File1.pdf'
set v vfile2 text='File2.pdf'
SET VAR vQuote TEXT = NULL
SET VAR vQuote = (CVAL('QUOTES'))
SET VAR vDummy TEXT = 'vDummy'
SET VAR vPipe TEXT = NULL
SET VAR vPipe = '|'
SET VAR vTo TEXT = NULL
SET VAR vSubject TEXT = NULL
SET VAR vCc TEXT = NULL
SET VAR vBcc TEXT = NULL
SET VAR vBody TEXT = NULL
SET VAR vAttachments TEXT = NULL
SET VAR vSendDirect TEXT = NULL
SET VAR vParameters TEXT = NULL
SET VAR vCLemail text=null
set v vCLemail='beyr...@lampsoftware.com'
 
SET VAR vBody text= +
 (' '+(CHAR(009))&'Attached is your information for the  '+(CHAR(013))+ +
  ' '+(CHAR(009))&'year. Please review and forward to your    '+(CHAR(013))+
+
  ' '+(CHAR(009))&'tax consultant.                            '+(CHAR(013))+
+
  ' '+(CHAR(009))&'                                           '+(CHAR(013))+
+
  ' '+(CHAR(009))&'Should you have any questions, please call.'+(CHAR(013)))
SET VAR vTo = ('To:'+.vCLEmail)
SET VAR vSubject = ('Information for'+(ctxt(.vyear)))
SET VAR vCc = 'CC: '
SET VAR vBcc TEXT = 'Bcc: '
SET VAR vBody TEXT = ('Body:'+.vBody)
set v vattach1 text=((CVAL('CURRDIR'))+'\'+.vFile1)
set v vattach2 text=((CVAL('CURRDIR'))+'\'+.vFile2)

SET VAR vAttachments = ('Attachments:'+.vattach1+.vattach2)

SET VAR vSendDirect = 'SendDirect:TRUE'

SET VAR vParameters = +
(.vQuote+.vDummy&.vPipe+.vTo&.vPipe+.vSubject&.vPipe+.vCc&.vPipe+.vBcc&.vpip
e +
+.vBody&+.vPipe+.vAttachments&.vPipe+.vSendDirect)
 
PLUGIN MAPIMail4.RBL &vParameters

 
Can anyone see where the code goes wrong ?
 
Thanks,
 
Bill Eyring