Function smtpSendMail(server$, von_adresse$, password$, an_adresse$, subject$, mailtext$)
com2 = OpenTCPStream(server$,25)
DebugLog ReadLine(com2)
WriteLine com2,"AUTH LOGIN"
DebugLog ReadLine(com2)
WriteLine com2,b64enc(von_adresse)
DebugLog ReadLine(com2)
WriteLine com2,b64enc(password)
DebugLog ReadLine(com2)
WriteLine com2,"HELO Name"
DebugLog ReadLine(com2)
WriteLine com2,"MAIL FROM: " + von_adresse$
DebugLog ReadLine(com2)
WriteLine com2,"RCPT TO: "+an_adresse$
DebugLog ReadLine(com2)
WriteLine com2,"DATA"
DebugLog ReadLine(com2)
WriteLine com2, "Date: " + CurrentDate$ ()
WriteLine com2, "From: " + von_name$ + " <" + von_adresse$ + ">"
WriteLine com2, "To: " + an_name$ + " <" + an_adresse$ + ">"
WriteLine com2, "Subject: " + subject$
WriteLine com2, "X-Mailer: Mailer"
WriteLine com2, ""
WriteLine com2, mailtext$
WriteLine com2, "."
DebugLog ReadLine(com2)
WriteLine com2, "QUIT"
DebugLog ReadLine(com2)
CloseTCPStream(com2)
End Function


Function b64enc$(a$)
b64$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
m$=""
f$=""
largo=Len(a$)
;Encode a$ into one long string of bits
cx$=""
For encode=1 To largo
x$=Mid$(a$,encode,1) ;get one char at a time
Tx=Asc(x$) ;Tx = ASCII code
b$=Bin$(Tx) ;convert Tx into string of 32 bits
b$=Right$(b$,8) ;get the right most 8 bits out of the 32 bits
cx$=cx$+b$ ;add string of 8 bits to cx$
Next
;largo = number of bits stored in cx$
largo=Len(cx$)
For encode=1 To largo Step 6
x$=Mid$(cx$,encode,6)
bbb=Len(x$)
bbbx=6-bbb ;check for 6 bits
;If not full 6 bits at end of bit string, then add "=" to end of encoded string
If bbbx>0 Then
f$="="
EndIf
x$=x$ + Left$("00000000",bbbx) ;pad with zeroes to make 6 bits
res=0
For y=0 To 5
by = Asc(Mid$(x$, 6-y, 1)) - 48 ;get bits from right to left (least significant to most)
res = res + ( 2^y * by) ;raise to power of 2 and add to res (result)
Next
m$=m$+Mid$(b64$,res+1,1)+f$
Next
Return m$
End Function