[RBG7-L] - Re: R:Mail

[A. Razzak Memon]

At 09:55 AM 6/25/2004 -0500, Charlie Parks wrote:

It still is not working for me.

Have you configured the R:Mail accordingly?

Look at the instructions and screen shots at:

http://www.rbase.com > Click on the R:Mail

or http://www.rbase.com/products/rmail/

Hope that helps!

Very Best R:egards,

Razzak.

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of A. Razzak
Memon
Posted At: Friday, June 25, 2004 9:34 AM
Posted To: RB7-L
Conversation: [RBG7-L] - Re: R:Mail
Subject: [RBG7-L] - Re: R:Mail

Charlie,

Change the WRITE .vatline to WRITE 'X-Attachments: '

Have fun!

Very Best R:egards,

Razzak.

At 08:54 AM 6/25/2004 -0500, Charlie Parks 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