John,
please, what is different in the code if I use Thunderbird?
Hartmut
Am 27.09.2011 21:10, schrieb John Minyo II:
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
--- RBASE-L
================================================
TO POST A MESSAGE TO ALL MEMBERS:
Send a plain text email to [email protected]
(Don't use any of these words as your Subject:
INTRO, SUBSCRIBE, UNSUBSCRIBE, SEARCH,
REMOVE, SUSPEND, RESUME, DIGEST, RESEND, HELP)
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: INTRO
================================================
TO UNSUBSCRIBE:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: UNSUBSCRIBE
================================================
TO SEARCH ARCHIVES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: SEARCH-n
(where n is the number of days). In the message body,
place any
text to search for.
================================================
