John and the RDCC crew,
After you sent me the sample code, I played around with it and I finally got
it to work!
You guys are the BEST ! Thank you,Thank you,Thank you !
I was working on this whole thing for over two days and was getting
frustrated as you might imagine.
For anyone who may need this, here is the correctly working code for sending
an email to multiple recipients in Outlook 2003 and Outlook 2007;
clear all variables
SET VAR vCRLF TEXT = ((CHAR(13)) + (CHAR(10)))
set v vInsStart date=08/01/2011
set v vInsEnd date=12/31/2011
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 v vMultiMailToA text='[email protected]'
set v vMultiMailToB text='[email protected]'
set v vMultiMailTo1 text=(.vMultiMailToA+.vCRLF+.vMultiMailToB)
set v vfilespec text='C:\inspections91\InspRpt_080111_123111.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=('TO:'+.vMultiMailTo1)
SET VAR vperiod text=((ctxt(.vInsStart))+'To:'+(ctxt(.vInsEnd)))
SET VAR vSubject=('Subject:Inspection Report From:'+.vPeriod)
SET VAR vCc TEXT=('CC:')
SET VAR vBcc TEXT=('BCC:')
set v vBody2 text=('Please Review attached Inspection Report.')
SET VAR vBody TEXT=('BODY:'+.vBody2)
SET VAR vAttachments TEXT=('Attachments:'+.vfilespec)
set v vresolve text=('Resolve_Names:TRUE')
SET VAR vSendDirect = ('SendDirect:TRUE')
SET VAR vParameters TEXT = NULL
set v vmail text=null
SET VAR vParameters = +
(.vQuote+.vDummy&.vPipe+.vTo&.vPipe+.vSubject&.vPipe+.vCc&.vPipe+ +
.vBcc&.vpipe+.vBody&+.vPipe+.vAttachments&.vPipe+.vattachments&.vPipe+ +
.vresolve)
PLUGIN MapiMail3 vmail| .vparameters
ret
And No Razzak, I didn't expect anything less.
Thanks,
Bill Eyring
