- Code: Select all Expand view
cTo:="ollie@theoasis.co.za; support@theoasis.co.za;"
DEFINE MAIL oMail SUBJECT cSubject ;
TEXT cBody ;
TO cTo ;
FROM USER
ACTIVATE MAIL oMail
This doesn't allow me to send to multiple recipients. How can I do it?
cTo:="ollie@theoasis.co.za; support@theoasis.co.za;"
DEFINE MAIL oMail SUBJECT cSubject ;
TEXT cBody ;
TO cTo ;
FROM USER
ACTIVATE MAIL oMail
Undeliverable:
Your message did not reach some or all of the intended recipients.
Subject: SendEmail Test
Sent: 2007/05/24 20:09
The following recipient(s) could not be reached:
'ollie@theoasis.co.za' on 2007/05/24 20:09
None of your e-mail accounts could send to this recipient.
'support@theoasis.co.za' on 2007/05/24 20:09
None of your e-mail accounts could send to this recipient.
// Purpose: test multiple recipients
#include "fivewin.ch"
#include "mail.ch"
function main()
local oWnd
define window oWnd
activate window oWnd on init mailit()
return nil
function mailit()
local oMail
define mail oMail ;
;//to "jbott@compuserve.com","john@hotmail.com","sharon@hotmail.com" ;
subject "Test Message";
from user
oMail:aRecipients:={{"jbott@compuserve.com"},{"john@hotmail.com"},{"sharon@hotmail.com"}}
activate mail oMail
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 59 guests