send email using a information file

[José Roca]

the previous program listing had errors in the stringtomime function.
i removed the function and inserted another base64 function from the forum.
seems Jose Roca had listed the bas64 code first, so i will give him credit.

I listed it first, but it belongs to Tony Jones and Lance C. Edmonds.

It was included in the MAILFILE example that accompanied the PowerBASIC Gazette issue #33... see http://www.powerbasic.com/files/pub/docs/Gazette/ for the Gazette archive, and http://www.powerbasic.com/files/pub/...t/mailfile.zip for the source code.

[Brice Manuel]

Thank you

[Paul Purvis]

try pdptemp.dyndns.org/zipcode
find SMEEMAIL.ZIP in the listing
server may not always be up, but today it is.
the server is at a remote location.
the program listed at this site had very little modification to it,
mostly to display file format information used

[Brice Manuel]

My reason for asking was because I can't download attachments. I mentioned this in the previous post, but that part was edited out.

[Paul Purvis]

Hey Brice

I placed the code here first even though there was a lot to still develop in the area of sending a html, attached files, etc,etc.
This program will send text just fine if placed into the instruction file.
I was really lost for words on what to name the file and i still do not know what to call a file that is used where it contains instructions and/or data used by a particular program. Maybe parameter file would be the best name to call it.
The file is right there, in the last zipped file uploaded. There are three files, the EXE,BAS,and INI.

The INI file can and will for now contain everything in it for emailing including your email subject and text(text only).

I am sorry it was not clear and i have been busy to the point of brain dead most lately.

Brie, i figured there would be some people like me who needs email features and wants to be able to automate or have a program create a email and get it to the receiptant without a lot of pain and that it works.

This was my way of implementation of something simple even though it was not finished to do everything a email message might can do, such as html, attachments, etc.

I am going to write some in the cafe area for some ideas then place any more code in the internet section.

But if you are only going to send text in a email, this should do you wonders. Let me know.

[Brice Manuel]

Is there a chance you could provide a link to the file off-site?

[Paul Purvis]

i should have allowed for the smtp port number to be changed.
so here it is
added a new setting (smtpserverportnumber) inside the header of the instruction file.
i unknowingly i had to use it myself now for a second email server behind the lan NAT.

[Paul Purvis]

the previous program listing had errors in the stringtomime function.
i removed the function and inserted another base64 function from the forum.
seems Jose Roca had listed the bas64 code first, so i will give him credit.

i also added a function to login to a sme smtp server through port 25.
the sme server does not default to authenticating and relaying email with a non-SSL connection but it can be changed to do so with a few simple commands from the linux command line.
this way you can send email from connection outside the immediate lan of the server.

the method in the instruction file should be either "method=smtp" or "method=smtpauth".

today i can recommend sme server as a email server. i do not know what is in store for tommorrow, but all these technologies will change over the years and
all the email servers require more than just simple email features today because spam and viruses, do not kid yourself if you think otherwise if the server is for people other than yourself. The email server part of sme server includes so many build in features that are easily managed for a small number of people.
the email server built into sme server is a ESMTP server. it takes me 25 minutes or less to install the operating system software on a machine and i do not need a keyboard or monitor after the initial installation and about 25 minutes to make my changes to the operating system.

[Paul Purvis]

This is a work in progress but maybe helpful to others right now.
I am using the linux sme server 7.04 which comes with a email server.
This piece of code was probably from many different people, but Dave Navarro had his name in it.
The sme server will let you send email by smtp from the local lan(intranet)
This program does just that. The email server will do SMTP emailing from a wlan where alterations are made but the default action is SSMTP from wlan.
This program does not do SSMTP, YET.

The program was written using pbcc40 and it reads a file to get the information to send.

It can log what takes place.
I wanted to use a email program that was called by another program and use a secondary file for emailing instructions.

I left some code in the program that is not being used, mime and authenication.

The program looks for specific response codes coming from the linux sme server 7.04, the program can be altered to accept response code from a range of acceptable answers from the email server, but you will have to code that.

By placing the word VIEWALL OR VIEWSERVER on the command line with the program, you can make the program display logging information. I did not want this program to display anthing while running in a normal way. By using VIEWSERVER and redirecting the output to a file, you can find your servers response codes and adjust the program then recompiling according to your server.

Future use will be add html in a email, authenication, up to 5 attachments, version tracking, SSMTP, delete the instruction file upon a flag, and/or rename the instruction file upon a flag, and save the emailed information into another file.

The returned errorlevel code is 0 for failure and 1 for success
This program was made to be generic where it could fit most needs by somebody emailing.


Is the code dirty, why yes, top down coding.

#COMPILE EXE "SMEEMAIL.EXE"
#DIM ALL
#INCLUDE "Win32API.inc"

GLOBAL gssecuser AS STRING
GLOBAL gssecpassword AS STRING

'-----------------------------------------------------------------------------
' Retrieve the current time and date in E-mail header format
'
FUNCTION MailDate () AS STRING

    LOCAL szFormat   AS ASCIIZ * 40
    LOCAL szTemp     AS ASCIIZ * 40
    LOCAL sResult    AS STRING
    LOCAL t          AS SYSTEMTIME
    LOCAL sUCTOffset AS STRING
    LOCAL tzi        AS TIME_ZONE_INFORMATION

    GetLocalTime t

    szFormat = "ddd',' dd MMM yyyy"
    GetDateFormat %LOCALE_USER_DEFAULT, 0, t, szFormat, szTemp, SIZEOF(szTemp)
    sResult = szTemp

    szFormat = "HH':'mm':'ss"
    GetTimeFormat %LOCALE_USER_DEFAULT, 0, t, szFormat, szTemp, SIZEOF(szTemp)

    SELECT CASE GetTimeZoneInformation(tzi)
    CASE %TIME_ZONE_ID_DAYLIGHT
        sUCTOffset = IIF$((tzi.bias + tzi.DaylightBias) <= 0, "+", "-") _
                   + FORMAT$((tzi.bias + tzi.DaylightBias) \ 60, "00") _
                   + FORMAT$((tzi.bias + tzi.DaylightBias) MOD 60, "00")
    CASE %TIME_ZONE_ID_STANDARD
        sUCTOffset = IIF$((tzi.bias + tzi.StandardBias) <= 0, "+", "-") _
                   + FORMAT$((tzi.bias + tzi.StandardBias) \ 60, "00") _
                   + FORMAT$((tzi.bias + tzi.StandardBias) MOD 60, "00")
    CASE ELSE
        sUCTOffset = "-0000"
    END SELECT

    FUNCTION = sResult + " " + szTemp + " " + sUCTOffset

END FUNCTION


FUNCTION base64encode(BYVAL S_FileData AS STRING) AS STRING

   LOCAL lBlock, lcBlocks, lByte1, lByte2, lByte3, lIndex1, lIndex2, lIndex3, lIndex4 AS LONG
   LOCAL pInput, pOutput , pTable AS BYTE PTR
   LOCAL sBase64, sResult, Pad AS STRING

   sBase64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"     '  Base64 table
   Pad = STRING$(2 - (LEN(S_FileData) - 1) MOD 3, "=")                              '  Calculate padding on Base64 stream

   lcBlocks = (LEN(S_FileData) + 2) \ 3                                             '  Round up the length of the input
   IF lcBlocks * 3 > LEN(S_FileData) THEN                                           '  data to a multiple of three
      S_FileData = LSET$(S_FileData, lcBlocks * 3 USING $NUL)
   END IF

   sResult = SPACE$(lcBlocks * 4)                                                   '  Allocate space for output string

   pInput  = STRPTR(S_FileData)                                                     '  Set up pointers so we can treat
   pOutput = STRPTR(sResult)                                                        '  the data as byte streams
   pTable  = STRPTR(sBase64)

   FOR lBlock = 1 TO lcBlocks                                                       '  Loop through the input buffer
      lByte1 = @pInput : INCR pInput                                                '  Get the next three binary data-
      lByte2 = @pInput : INCR pInput                                                '  bytes to process
      lByte3 = @pInput : INCR pInput
      lIndex1 = lByte1 \ 4                                                          '  Translate 3 databytes to 4 Base64
      lIndex2 = (lByte1 AND 3) * 16 + lByte2 \ 16                                   '  table indices
      lIndex3 = (lByte2 AND 15) * 4 + lByte3 \ 64
      lIndex4 = lByte3 AND 63
      @pOutput = @pTable[lIndex1] : INCR pOutput                                    '  Use Base64 table to encode the
      @pOutput = @pTable[lIndex2] : INCR pOutput                                    '  output string
      @pOutput = @pTable[lIndex3] : INCR pOutput
      @pOutput = @pTable[lIndex4] : INCR pOutput
   NEXT lBlock
   RSET ABS sResult = Pad                                                           '  Merge in the padding bytes
   FUNCTION = sResult
END FUNCTION

FUNCTION PBMAIN () AS LONG
 'this is the main code section
'-----------------------------------------------------------
DIM localhost AS STRING
DIM smtphost AS STRING
DIM htcp AS LONG
DIM sline AS STRING
DIM e AS LONG
DIM buffer AS STRING
DIM emailmessage AS STRING
DIM semailinfofile AS STRING
DIM lefile AS LONG
DIM ltemp AS LONG
DIM semailfile AS STRING
DIM sheader AS STRING
DIM semailtxthtml AS STRING
DIM semailtxt AS STRING
DIM semailhtml AS STRING
DIM stemp AS STRING
DIM lviewall AS LONG   ' use to view the happening while sending a email
DIM lviewserver AS LONG

DIM semailinternaluse AS STRING
DIM semailversion AS STRING
DIM semailreturncode AS STRING
DIM semailreturnfile AS STRING
DIM semailmethod AS STRING
DIM semailsecureuser AS STRING
DIM semailsecurepassword AS STRING
DIM semailsmtpserver AS STRING
DIM semailfromwho AS STRING
DIM semailtowho AS STRING
DIM semailsubject AS STRING
DIM semailattachment1 AS STRING
DIM semailattachment2 AS STRING
DIM semailattachment3 AS STRING
DIM semailattachment4 AS STRING
DIM semailattachment5 AS STRING

DIM lsmtperror AS LONG
DIM lipaddress AS LONG

semailinfofile=UCASE$(" "+COMMAND$+" ")
IF TRIM$(semailinfofile)="" THEN
  STDOUT "place a file in the command line(tail) that has"
  STDOUT "  the email information to send"
  STDOUT "the structure of the file is listed"
  STDOUT "----------------------------------------------------------"
  STDOUT "<internaluse>"
  STDOUT "</internaluse>"
  STDOUT "<header>"
  STDOUT "version==1"
  STDOUT "returncode==01"
  STDOUT "returnfile==xxxxxxxx.ext"
  STDOUT "method==smtp"
  STDOUT "secureuser==myaccountname"
  STDOUT "securepassword==myaccountpassword"
  STDOUT "smtpserver==mysmtpserver.com  or a ip address 192.168.0.2"
  STDOUT "[email protected]"
  STDOUT "[email protected]"
  STDOUT "subject==hello beautiful"
  STDOUT "attachment1==futureuse"
  STDOUT "attachment2==futureuse"
  STDOUT "attachment3==futureuse"
  STDOUT "attachment4==futureuse"
  STDOUT "attachment5==futureuse"
  STDOUT "</header>
  STDOUT "<mainemailtxtmessage>
  STDOUT "</mainemailtxtmessage>"
  STDOUT "<mainemailhtmlmessage>"
  STDOUT "</mainemailhtmlmessage>"
  STDOUT "<endofcrazyemailstuff>"
  STDOUT "----------------------------------------------------------"
  STDOUT "Currently this program does not support"
  STDOUT "   file attachments, html, returncode,version checking,"
  STDOUT "   authenication or method"
  STDOUT "Place the word VIEWALL OR VIEWSERVER view text for logging"
  STDOUT "The word VIEWSERVER will log only interaction with the email server"
  STDOUT "An example woud be"
  STDOUT "sendmail.exe c:\email\emailfile.001 VIEWALL > emailfile.001.txt"
  STDOUT "This program is designed to be called from another program or batch file"
  STDOUT "Ordinarily there is no returned text for automation purposes"
  STDOUT "An errorlevel 0 is returned for failure and a 1 for success."
  PRINT  "To save these instructions, redirect this program to a file"
  PRINT  "Like  sendmail.exe > sendmail.doc"
   FUNCTION=0
  GOTO DONE
END IF

ltemp=INSTR(semailinfofile," VIEWALL ")
IF ltemp THEN REPLACE " VIEWALL " WITH " " IN semailinfofile: lviewall=1&
ltemp=INSTR(semailinfofile," VIEWSERVER ")
IF ltemp THEN REPLACE " VIEWSERVER " WITH " " IN semailinfofile: lviewserver=1&
IF lviewall THEN lviewserver=1&
semailinfofile=TRIM$(semailinfofile)

lefile=FREEFILE

REM open the file that contains the email information
IF lviewall THEN STDOUT  "opening file "+semailinfofile

TRY
OPEN semailinfofile FOR BINARY AS lefile
EXIT TRY
CATCH
IF lviewall THEN STDOUT  "cannot find or open the file"+semailinfofile
IF lviewall THEN STDOUT  "this program is aborting"
GOTO DONE
END TRY

REM read the whole email information file
ltemp=LOF(lefile)
IF ltemp=0& THEN GOTO SENDERROR
GET$ #lefile,ltemp,semailfile
CLOSE #lefile
IF lviewall THEN STDOUT "file was read "
REM strip the internal use info, header and email txt/html  from the whole file in two separte parts

REM  strip the internal use information if any is found
IF lviewall THEN STDOUT "started parsing data from file"

ltemp=INSTR(UCASE$(semailfile),$CRLF+"<HEADER")
IF ltemp THEN semailinternaluse=TRIM$(MID$(semailfile,1,ltemp+1))

REM strip the header and email txt/html  f
ltemp=INSTR(UCASE$(semailfile),"</HEADER")
ltemp=INSTR(ltemp+3&,semailfile,$CRLF)
sheader=MID$(semailfile,1&,ltemp+1&)


sheaderclean:
REPLACE $CRLF+" " WITH $CRLF IN sheader
IF INSTR(sheader,$CRLF+" ") GOTO sheaderclean
semailtxthtml=TRIM$(MID$(semailfile,ltemp+2&,(INSTR(ltemp+2&,UCASE$(semailfile),"<ENDOFCRAZYEMAILSTUFF")-ltemp-19&)))


ltemp=INSTR(UCASE$(semailfile),"<HEADER")
sheader=TRIM$(MID$(sheader,ltemp,-1))

REM assigning variables from email info file

ltemp=INSTR(UCASE$(sheader),$CRLF+"VERSION==")+10&
IF ltemp THEN
semailversion=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)
END IF

ltemp=INSTR(UCASE$(sheader),$CRLF+"RETURNCODE==")+13&
IF ltemp THEN
semailreturncode=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)
END IF

ltemp=INSTR(UCASE$(sheader),$CRLF+"RETURNFILE==")+13&
IF ltemp THEN
semailreturnfile=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)
END IF

ltemp=INSTR(UCASE$(sheader),$CRLF+"METHOD==")+9&
IF ltemp THEN
semailmethod=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)
END IF

ltemp=INSTR(UCASE$(sheader),$CRLF+"SECUREUSER==")+13&
IF ltemp THEN
semailsecureuser=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)
END IF

ltemp=INSTR(UCASE$(sheader),$CRLF+"SECUREPASSWORD==")+17&
IF ltemp THEN
semailsecurepassword=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)
END IF

ltemp=INSTR(UCASE$(sheader),$CRLF+"SMTPSERVER==")+13&
semailsmtpserver=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)

ltemp=INSTR(UCASE$(sheader),$CRLF+"FROM==")+7&
semailfromwho=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)

ltemp=INSTR(UCASE$(sheader),$CRLF+"TO==")+5&
semailtowho=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)

ltemp=INSTR(UCASE$(sheader),$CRLF+"SUBJECT==")+10&
semailsubject=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)

ltemp=INSTR(UCASE$(sheader),$CRLF+"ATTACHMENT1==")+14&
IF ltemp THEN
semailattachment1=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)
END IF

ltemp=INSTR(UCASE$(sheader),$CRLF+"ATTACHMENT2==")+14&
IF ltemp THEN
semailattachment2=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)
END IF

ltemp=INSTR(UCASE$(sheader),$CRLF+"ATTACHMENT3==")+14&
IF ltemp THEN
semailattachment3=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)
END IF

ltemp=INSTR(UCASE$(sheader),$CRLF+"ATTACHMENT4==")+14&
IF ltemp THEN
semailattachment4=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)
END IF

ltemp=INSTR(UCASE$(sheader),$CRLF+"ATTACHMENT5==")+14&
IF ltemp THEN
semailattachment5=MID$(sheader,ltemp+1&,INSTR(ltemp,sheader,$CRLF)-ltemp-1&)
END IF

ltemp=INSTR(UCASE$(semailtxthtml),"</MAINEMAILTXTMESSAGE")
IF ltemp THEN
    semailtxt=MID$(semailtxthtml,1&,ltemp-1)
    ltemp=INSTR(UCASE$(semailtxt),"</MAINEMAILTXTMESSAGE")
    ltemp=INSTR(ltemp+20,semailtxt,$CRLF)
    semailtxt=MID$(semailtxt,ltemp+2&,-1)
END IF

ltemp=INSTR(UCASE$(semailtxthtml),"</MAINEMAILHTMLMESSAGE")
IF ltemp THEN
    semailhtml=MID$(semailtxthtml,1&,ltemp-1)
    ltemp=INSTR(UCASE$(semailhtml),"<MAINEMAILHTMLMESSAGE")
    ltemp=INSTR(ltemp+20,semailhtml,$CRLF)
    semailhtml=MID$(semailhtml,ltemp+2&,-1)
END IF

stemp=TRIM$(semailtxt)
IF stemp=$CRLF THEN semailtxt=""
stemp=TRIM$(semailhtml)
IF stemp=$CRLF THEN semailhtml=""
IF INSTR(UCASE$(stemp),"<HTML")=0& THEN semailhtml=""
IF INSTR(UCASE$(stemp),"</HTML")=0& THEN semailhtml=""


IF lviewall THEN STDOUT "started parsing data finished"

IF lviewall THEN
STDOUT "version="+semailversion
STDOUT "returncode="+semailreturncode
STDOUT "returnfile="+semailreturnfile
STDOUT "method="+semailmethod
STDOUT "secureuser="+semailsecureuser
STDOUT "securepassword="+semailsecurepassword
STDOUT "smtpserver="+semailsmtpserver
STDOUT "from="+semailfromwho
STDOUT "to="+semailtowho
STDOUT "subject="+semailsubject
STDOUT "attachment1="+semailattachment1
STDOUT "attachment2="+semailattachment2
STDOUT "attachment3="+semailattachment3
STDOUT "attachment4="+semailattachment4
STDOUT "attachment5="+semailattachment5
END IF

IF lviewall AND LEN(semailinternaluse)THEN
    STDOUT "-----start of internaluse  text------"
    STDOUT semailinternaluse
    STDOUT "-----end of internaluse  text------"
END IF

IF lviewall AND LEN(semailtxt)THEN
    STDOUT "-----start of email text------"
    STDOUT semailtxt
    STDOUT "-----end of email text------"
END IF


IF lviewall AND LEN(semailhtml)THEN
    STDOUT "-----start of html text------"
    STDOUT semailhtml
    STDOUT "-----end of html text------"
END IF


gssecuser=semailsecureuser
gssecpassword=semailsecurepassword
smtphost=semailsmtpserver

hTcp = FREEFILE
lsmtperror=0&
HOST ADDR TO lipaddress
HOST NAME lipaddress TO localhost

IF lviewserver THEN STDOUT "trying to connect to "+smtphost
TCP OPEN "smtp" AT SmtpHost AS hTCP TIMEOUT 20000

IF ERR THEN
    IF lviewserver THEN STDOUT "cannot connect to "+smtphost
    lsmtperror=10&:GOTO SENDERROR
END IF


DO WHILE NOT EOF(hTCP)
   TCP LINE hTCP, sline
   e = VAL(LEFT$(sline, 3))
LOOP
IF lviewserver THEN STDOUT "server returned "+TRIM$(sline)
IF e <> 220 THEN lsmtperror=11&:GOTO SENDERROR

IF lviewserver THEN STDOUT "sending EHLO"
TCP PRINT hTCP, "EHLO " & LOCALHOST
DO WHILE NOT EOF(hTCP)
   TCP LINE hTCP, sline
   e = VAL(LEFT$(sline, 3))
LOOP
IF lviewserver THEN STDOUT "server returned "+TRIM$(sline)
IF e <> 250 THEN lsmtperror=12&:GOTO SENDERROR
IF UCASE$(semailmethod)<> "SMTPAUTH" THEN GOTO DONOTAUTHENICATEUSER
REM sme server should return "AUTH PLAIN LOGIN" here if
IF INSTR(UCASE$(sline),"AUTH") =0& THEN GOTO DONOTAUTHENICATEUSER
IF INSTR(UCASE$(sline),"PLAIN") =0& THEN GOTO DONOTAUTHENICATEUSER
IF INSTR(UCASE$(sline),"LOGIN") =0& THEN GOTO DONOTAUTHENICATEUSER

IF lviewserver THEN STDOUT "sending AUTH PLAIN "
     TCP PRINT hTcp, "AUTH PLAIN"
     DO WHILE NOT EOF(hTCP)
       TCP LINE hTCP, sline
       e = VAL(LEFT$(sline, 3))
     LOOP
IF lviewserver THEN STDOUT "server returned "+TRIM$(sline)

IF e <> 334 THEN lsmtperror=21&:GOTO SENDERROR

stemp = base64encode(CHR$(0)+TRIM$(gssecuser)+CHR$(0)+TRIM$(gssecpassword))
       TCP PRINT htcp, stemp
        DO WHILE NOT EOF(hTCP)
            TCP LINE hTCP, sline
           e = VAL(LEFT$(sline, 3))
        LOOP
IF lviewserver THEN STDOUT "server returned "+TRIM$(sline)
IF e <> 235 THEN lsmtperror=21&:GOTO SENDERROR

DONOTAUTHENICATEUSER:
IF lviewserver THEN STDOUT "sending MAIL FROM: <"+semailfromwho+">"
TCP PRINT hTcp, "MAIL FROM: <" + semailfromwho+">"
DO WHILE NOT EOF(hTCP)
   TCP LINE hTCP, sline
   e = VAL(LEFT$(sline, 3))
LOOP
IF lviewserver THEN STDOUT "server returned "+TRIM$(sline)
IF e <> 250 THEN lsmtperror=21&:GOTO SENDERROR

IF lviewserver THEN STDOUT "sending RCPT TO: <"+semailtowho+">"
TCP PRINT hTcp, "RCPT TO: <" + semailtowho+">"
DO WHILE NOT EOF(hTCP)
   TCP LINE hTCP, sline
   e = VAL(LEFT$(sline, 3))
LOOP
IF lviewserver THEN STDOUT "server returned "+TRIM$(sline)
IF e <> 250 THEN lsmtperror=22&:GOTO SENDERROR

IF lviewserver THEN STDOUT "sending the word DATA"
TCP PRINT hTcp, "DATA"
DO WHILE NOT EOF(hTCP)
   TCP LINE hTCP, sline
   e = VAL(LEFT$(sline, 3))
LOOP
IF lviewserver THEN STDOUT "server returned "+TRIM$(sline)
IF e <> 354 THEN lsmtperror=23&:GOTO SENDERROR

IF lviewserver THEN
    STDOUT "sending Date: " + MailDate()
    STDOUT "sending From: " + semailfromwho
    STDOUT "sending To: " + semailtowho
    STDOUT "sending Subject: " + semailsubject
    STDOUT "sending as single blank line"
END IF

TCP PRINT hTCP, "Date: " + MailDate()
TCP PRINT hTcp, "From: " + semailfromwho
TCP PRINT hTcp, "To: " + semailtowho
TCP PRINT hTcp, "Subject: " + semailsubject
TCP PRINT hTcp, ""

IF LEN(semailtxt) THEN
    IF lviewserver THEN
      STDOUT "sending email txt below"
      STDOUT semailtxt
END IF
  emailmessage=semailtxt
  REPLACE $CRLF WITH $CR IN emailmessage
  WHILE LEN(emailmessage)
        Buffer = EXTRACT$(emailmessage, $CR)
        ' Make sure there are no lines containing a single period
        IF ASC(Buffer) = 46 THEN Buffer = "." + Buffer
        TCP PRINT hTcp, Buffer
        emailmessage = MID$(emailmessage, LEN(Buffer) + 2)
  WEND
END IF

' Signal the end of the message
IF lviewserver THEN STDOUT "sending a single PERIOD (.)"
TCP PRINT hTcp, "."
DO WHILE NOT EOF(hTCP)
   TCP LINE hTCP, sline
   e = VAL(LEFT$(sline, 3))
LOOP
IF lviewserver THEN STDOUT "server returned "+TRIM$(sline)
IF e <> 250 THEN lsmtperror=25&:GOTO SENDERROR

' Say goodbye
IF lviewserver THEN STDOUT "sending a word QUIT"
TCP PRINT hTcp, "QUIT"
DO WHILE NOT EOF(hTCP)
   TCP LINE hTCP, sline
   e = VAL(LEFT$(sline, 3))
LOOP
IF lviewserver THEN STDOUT "server returned "+TRIM$(sline)
IF e <> 221 THEN lsmtperror=30&:GOTO SENDERROR

IF lviewserver THEN STDOUT "connection to email closing"
    TCP CLOSE hTcp
IF lviewserver THEN STDOUT "connection to email closed"
FUNCTION=1

Done:
EXIT FUNCTION



SendError:
FUNCTION=0
   TCP CLOSE hTcp
   IF lviewserver THEN STDOUT "error"
   IF lviewserver THEN STDOUT  "smtp program error code "+STR$(lsmtperror)
   GOTO Done

END FUNCTION

example of instruction file, you can name it anything you want

<internaluse>
</internaluse>
<header>
version==1
returncode==01
returnfile==mail.txt.rec
method==smtpauth
secureuser==johndoe
securepassword==johndoe1234
smtpserver==mysmtpserver.com
[email protected]
[email protected]
subject==What is happening girl
attachment1==futureuse
attachment2==futureuse
attachment3==futureuse
attachment4==futureuse
attachment5==futureuse
</header>
<mainemailtxtmessage>
Hi Mary!

Are you going to the redeo tommorrow night?
If so, I will be there too.
</mainemailtxtmessage>
<mainemailhtmlmessage>
</mainemailhtmlmessage>
<endofcrazyemailstuff>