At 02:27 PM 09/27/2011, [email protected] wrote:
Only text variables require quotes. My problem is I cannot get the
plugin MapiMail3 to separate the email addresses when there is more
than 1 address in the MailTo line. I understand that RDCC is looking
at this issue.
Bill,
We were able to use the same code and it worked with several email
clients, including Eudora, Thunderbird, and Outlook.
Like all custom development, there must be some tweaking needed for
the routine to work with different email client programs, and
different versions of the programs. In your specific situation, you
must be aware of the product that is in use along with R:BASE,
Outlook in this case.
You can send R:BASE MAPIMail messages to more than one recipient
though Outlook. You will need to use the Carriage Return and Line
Feed characters between the email addresses, as needed, in your
specific circumstances.
Here's how:
CLEAR ALL VARIABLES
--Create Carriage Return and Line Feed Character Variable
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]'
--Use Carriage Return and Line Feed Characters
set v vMultiMailTo1 text=(.vMultiMailToA + .vCRLF +.vMultiMailToB)
set v vcurrdir text=(cval('currdir'))
set v vfilespec text='InspRpt_010112_022912.pdf'
SET VAR vmail text=null
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:FALSE')
SET VAR vSendDirect = ('SendDirect:TRUE')
SET VAR vParameters TEXT = NULL
SET VAR vParameters = +
(.vQuote+.vDummy&.vPipe+.vTo&.vPipe+.vSubject&.vPipe+.vCc&.vPipe+ +
.vBcc&.vpipe+.vBody&+.vPipe+.vAttachments&.vPipe+.vattachments&.vPipe+.vresolve)
RETURN
Best regards,
John Minyo II
R:BASE Technologies, Inc.
Customer Service
