It still is not working for me.
-----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
