Charles, have you configured R:Mail?
Programs > R:Mail for R:Base > Configure
If so, try sending to an address other than your own - your server might be
bouncing the message as a relay.
--- Charles Parks <[EMAIL PROTECTED]> wrote:
> What is the correct syntax to use R:Mail? Does the server need to be
> configured a certain way?
>
> The following code always returns message is undeliverable.
>
> SET EOFCHAR OFF
> SET VAR vReceip = '[EMAIL PROTECTED]'
>
> SET VAR vreturn TEXT = (CHAR(013))
>
> SET VAR vmailto TEXT = ('To:' & .vreceip)
>
> SET VAR vfrom TEXT = ('From: "Charlie Parks" <[EMAIL PROTECTED]>')
>
> SET VAR vsubj TEXT = ('Subject:R:Mail Demo')
>
> SET VAR vcc TEXT = 'CC:'
> SET VAR vbcc TEXT = 'BCC:'
>
> SET VAR vBody = 'Test'
>
> SET VAR vbody = (SRPL(.vbody,(CHAR(254)),.vreturn,0))
>
> SET VAR vEmailDir TEXT = NULL
> SET VAR vEmailDir = (ENVVAL('TEMP'))
> IF vEmailDir IS NULL THEN
> SET VAR vEmailDir = (ENVVAL('TMP'))
> ENDIF
>
> IF vEMailDir IS NULL THEN
> SET VAR vEMailDir = 'C:'
> ENDIF
>
> SET VAR vEmailFile = (.vEMailDir + '\confdemo.mal')
>
> SET VAR vChkFile = (CHKFILE(.vEmailFile))
>
> IF vChkFile = 1 THEN
> DELETE .vEmailFile
> ENDIF --vChkFile = 1
>
> OUTPUT .vEmailFile
> WRITE .vmailto
> WRITE .vfrom
> WRITE .vsubj
> WRITE .vcc
> WRITE .vbcc
> WRITE .vatline
> WRITE 'Format:T'
> WRITE .vreturn
> WRITE .vbody
> OUTPUT SCREEN
> SET VAR vrmail = (UDF('@RMail.DLL', .vEmailFile))
> SET EOFCHAR ON
>
> SWITCH (.vrmail)
> CASE 'S'
> SET VAR vMess = 'Message was Sent successfully!'
> PAUSE 3 USING .vMess
> BREAK
>
> CASE 'N'
> SET VAR vMess = 'Message was Undeliverable!'
> PAUSE 2 USING .vMess
> BREAK
>
> CASE 'A'
> SET VAR vMess = 'Delivery was Aborted!'
> PAUSE 2 USING .vMess
> BREAK
>
> DEFAULT
> BREAK
> ENDSW
>
> RETURN
>
>
=====
Albert Berry
Management Consultant
RR2 - 1252 Ponderosa Drive
Sparwood BC, V0B 2G2
Canada
(250) 425-5806
(250) 425-7259
(708) 575-3952 (fax)
[EMAIL PROTECTED]
