[RBG7-L] - R:Mail

[Charles Parks]

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