Smtp

[Emma]

After many problems with Mapi, i was advised to play about with sntp, and see if this was any better. I have download smtpmail.p and base64encode.p and have been experimenting with these. The problem i now have is that when i try to run these procedures, i am getting the following error message:

invalid character in numeric input c.

i think it is within the following portion of code, but don't know how to correct this.

does anyone have any ideas or pointers that could help.

TIA,

Emma.

PROCEDURE ParseParm:
DEF INPUT PARAMETER cString AS CHARACTER NO-UNDO.
DEF OUTPUT parameter cMimetype as character no-undo.
DEF OUTPUT parameter cCharset as character no-undo.
DEF OUTPUT parameter cFiletype as character no-undo.

DEF VAR c AS CHARACTER NO-UNDO.
DEF VAR i AS INTEGER NO-UNDO.

ASSIGN
cMimeType = "text/plain"
cCharSet = "US-ASCII"
cFileType = "ASCII".

DO i = 1 TO NUM-ENTRIES(cString,":"):
c = ENTRY(i,cString,":").
CASE ENTRY(1,c,"="):
WHEN "Type" THEN DO:
cMimeType = ENTRY(2,c,"=").
END. /* WHEN "Type" THEN DO: */
WHEN "CharSet" THEN DO:
cCharSet = ENTRY(2,c,"=").
END. /* WHEN "CharSet" THEN DO: */
WHEN "FileType" THEN DO:
cFileType = ENTRY(2,c,"=").
END. /* WHEN "FileType" THEN DO: */
END CASE. /* CASE ENTRY(1,c,"="): */
END. /* DO i = 1 TO NUM-ENTRIES(cString,":"): */
END PROCEDURE. /** ParseParm **/

 

[MurrayH]

This won't help, probably, but I gave up and wrote my own from scratch for pop3 and smtp. I found it better to fully understand what was going one and optimising it for my code set.

Murray