At 10:39 AM 6/21/2011, jan johansen wrote:
Group,
Sheesh. I've been using R:Mail along time and just haven't done this.
When you want to send to more than one person, are they separated
by a , or a ; ?
Jan,
When sending messages to multiple addresses, whether it be several
recipients, or several carbon copies, a separate command line must
be used for each address.
-- Example 01:
-- EMail_Multiple_Receipients.RMD
-- Sending Messages to Multiple Addresses including Cc: and Bcc:
-- Version: R:Mail 9.1
CLS
SET VAR vGreeting TEXT = NULL
SET VAR vRecipient TEXT = NULL
SET VAR vRecipient2 TEXT = NULL
SET VAR vError TEXT = NULL
SET VAR vCheckCursor INTEGER = NULL
SET VAR vCheckCursor = (CHKCUR('c1'))
SET VAR vCustFName TEXT = NULL
SET VAR vCustEmail TEXT = NULL
SET VAR vCustEmail2 TEXT = NULL
IF vCheckCursor = 1 THEN
DROP CURSOR c1
ENDIF
DECLARE c1 CURSOR FOR SELECT CustFName,CustEmail,CustEmail2 FROM Customer
OPEN c1
FETCH c1 INTO +
vCustFName INDICATOR iv1, +
vCustEmail INDICATOR iv2, +
vCustEmail2 INDICATOR iv3
WHILE SQLCODE <> 100 THEN
SET VAR vGreeting = ('v1|ADD_TO_MESSAGE_BODY Dear ' + .vCustFName)
SET VAR vRecipient = ('v1|ADD_RECIPIENT ' + .vCustEmail)
SET VAR vRecipient2 = ('v1|ADD_RECIPIENT ' + .vCustEmail2)
PLUGIN RMail v1|SHOW LOG
PLUGIN RMail v1|CLEAR LOG
PLUGIN RMail v1|CLEAR_ALL
PLUGIN RMail v1|SHOW PROGRESS
PLUGIN RMail v1|WAIT 2000
PLUGIN RMail v1|SHOW LOG
PLUGIN RMail v1|MESSAGE_TYPE TEXT
PLUGIN RMail v1|ACCOUNT_NAME Inhouse_MailServ
PLUGIN RMail v1|SENDER_INFO_TEXT "Joe Tanner" <[email protected]>
PLUGIN RMail .vRecipient
PLUGIN RMail .vRecipient2
PLUGIN RMail v1|ADD_REPLY_TO [email protected]
PLUGIN RMail v1|ORGANIZATION My Company
PLUGIN RMail v1|PRIORITY NORMAL
PLUGIN RMail v1|SUBJECT Feedback Request
PLUGIN RMail .vGreeting
PLUGIN RMail 'v1|ADD_TO_MESSAGE_BODY '
PLUGIN RMail 'v1|ADD_TO_MESSAGE_BODY Thank you for your interest
in our services!'
PLUGIN RMail 'v1|ADD_TO_MESSAGE_BODY '
PLUGIN RMail 'v1|ADD_TO_MESSAGE_BODY Please reply with any
comments or questions.'
PLUGIN RMail 'v1|ADD_TO_MESSAGE_BODY '
PLUGIN RMail 'v1|ADD_TO_MESSAGE_BODY Best Regards,'
PLUGIN RMail 'v1|ADD_TO_MESSAGE_BODY '
PLUGIN RMail 'v1|ADD_TO_MESSAGE_BODY Joe Tanner'
PLUGIN RMail 'v1|ADD_TO_MESSAGE_BODY Customer Service Representative'
PLUGIN RMail v1|SEND
IF v1 <> 'OK' THEN
SET VAR vError = .v1
PAUSE 3 USING .vError CAPTION 'Info' ICON SERIOUS
PLUGIN RMail v1|HIDE PROGRESS
PLUGIN RMail v1|WAIT 2000
CLS
GOTO File_End
ELSE
SET VAR v1 = ('Message sent ' + .v1 + '!')
PAUSE 3 USING .v1 CAPTION 'Info' ICON CONFIRM
PLUGIN RMail v1|HIDE PROGRESS
PLUGIN RMail v1|WAIT 1000
CLS
ENDIF
SET VAR vCustFName = NULL
SET VAR vCustEmail = NULL
SET VAR vCustEmail2 = NULL
FETCH c1 INTO +
vCustFName INDICATOR v1, +
vCustEmail INDICATOR v2, +
vCustEmail2 INDICATOR v3
ENDWHILE
DROP CURSOR c1
LABEL File_End
CLEAR VAR iv%,vGreeting,vRecipient,vRecipient2,vError,vCustFName, +
vCustEmail,vCustEmail2,v1
RETURN
For more details and examples, please refer to R:Mail 9.1 Help Manual
at: http://www.rbase.com/products/rmail91
Have fun!
Very Best R:egards,
Razzak.
--- 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.
================================================
