Function smtpSendMail(server$, von_adresse$, password$, an_adresse$, subject$, mailtext$)
  com2 = OpenTCPStream(server$,port%)
  Print ReadLine(com2)
  WriteLine com2,"AUTH LOGIN"
 Print ReadLine(com2)
  WriteLine com2,b64enc(von_adresse)
 Print ReadLine(com2)
  WriteLine com2,b64enc(password)
 Print ReadLine(com2)
  WriteLine com2,"MAIL FROM: " + von_adresse$
 Print ReadLine(com2)
  WriteLine com2,"RCPT TO: "+an_adresse$
 Print ReadLine(com2)
  WriteLine com2,"DATA"
 Print ReadLine(com2)
  WriteLine com2, "From: " + von_name$ + " <" + von_adresse$ + ">"
Print ReadLine(com2)
  WriteLine com2, "To: " + an_name$ + " <" + an_adresse$ + ">"
Print ReadLine(com2)
  WriteLine com2, "Subject: " + subject$
Print ReadLine(com2)
  WriteLine com2, "RsFake"
Print ReadLine(com2)
  WriteLine com2, ""+mailtext$
Print ReadLine(com2)
	WriteLine com2, "."
Print ReadLine(com2)
  WriteLine com2, "QUIT"
 Print 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