I think, I found out what was causing the problem. One other question can the setup procedure be done by a command file or does each workstation have to be configured separately?
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Charles Parks Posted At: Friday, June 25, 2004 10:54 AM Posted To: RB7-L Conversation: [RBG7-L] - Re: R:Mail Subject: [RBG7-L] - Re: R:Mail I have it configured. I used the test button and it seems to be able to communicate with it. I set up a log file and when I run the macro it gets to the point of trying to connect to the server then it closes. -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Albert Berry Posted At: Friday, June 25, 2004 10:43 AM Posted To: RB7-L Conversation: [RBG7-L] - Re: R:Mail Subject: [RBG7-L] - Re: R:Mail 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]
