option list
PicoMite MMBasic RP2350A V6.03.00RC24
OPTION FLASH SIZE 4194304
OPTION COLOURCODE ON
OPTION CPUSPEED (KHz) 200000
> [?7h

Sub MailSend
 Const cr = Chr$(13)+Chr$(10)
 Local integer b(512), buf(1100)
 Local integer fnbr, fsize, k
 Local String txt, h$, enc$, chunk$
 Local string EmailFrom="MyEmailAddress"
 Local string EmailTo="YourEmailAddress"
 Local string smtpuser = "MyUsername"
 Local string smtppass = "MyPassword"
 Local string bd = "=_picomite_boundary_="
 Local string fname = "A:/test.jpg"

 txt = "Test email"
 ErrEmail = true : FaultDetected = true

 If Dir$(fname, File) = "" Then Print "Attachment not found: " + fname : Exit Sub

 On Error Skip
 WEB OPEN TLS CLIENT "mail.smtp2go.com", 8465
 If MM.Errno <> 0 Then Print "Connect failed" : Exit Sub

' wait for the 220 greeting BEFORE talking (not an early talker)
' uncomment if using WEB OPEN TCP CLIENT
'  WEB TCP CLIENT READ b(), 30000
'  If Not WaitCode(b(), "220") Then GoTo bail

 WEB TCP CLIENT REQUEST "EHLO picomite" + cr, b()
 If Not WaitCode(b(), "250") Then GoTo bail
 WEB TCP CLIENT REQUEST "AUTH LOGIN" + cr, b()
 If Not WaitCode(b(), "334") Then GoTo bail
 WEB TCP CLIENT REQUEST base64Encode(smtpuser) + cr, b()
 If Not WaitCode(b(), "334") Then GoTo bail
 WEB TCP CLIENT REQUEST base64Encode(smtppass) + cr, b()
 If Not WaitCode(b(), "235") Then GoTo bail
 WEB TCP CLIENT REQUEST "MAIL FROM:<" + EmailFrom + ">" + cr, b()
 If Not WaitCode(b(), "250") Then GoTo bail
 WEB TCP CLIENT REQUEST "RCPT TO:<" + EmailTo + ">" + cr, b()
 If Not WaitCode(b(), "250") Then GoTo bail
 WEB TCP CLIENT REQUEST "DATA" + cr, b()
 If Not WaitCode(b(), "354") Then GoTo bail

 ' ===== build the DATA body in buf() and stream it with WRITE =====
 LongString Clear buf()
 h$ =       "From: " + EmailFrom + cr
 h$ = h$ +  "To: " + EmailTo + cr
 h$ = h$ +  "Subject: My subject" + cr
 h$ = h$ +  "MIME-Version: 1.0" + cr
 h$ = h$ +  "Content-Type: multipart/mixed; boundary=" + Chr$(34) + bd + Chr$(34) + cr + cr
 h$ = h$ +  "--" + bd + cr
 h$ = h$ +  "Content-Type: text/plain; charset=us-ascii" + cr + cr
 LongString Append buf(), h$
 LongString Append buf(), txt + cr
 h$ =       "--" + bd + cr
 h$ = h$ +  "Content-Type: image/jpeg; name=" + Chr$(34) + "test.jpg" + Chr$(34) + cr
 h$ = h$ +  "Content-Transfer-Encoding: base64" + cr
 h$ = h$ +  "Content-Disposition: attachment; filename=" + Chr$(34) + "test.jpg" + Chr$(34) + cr + cr
 LongString Append buf(), h$

 fnbr = 1
 Open fname For Input As #fnbr
 fsize = Lof(#fnbr)
 Do While fsize > 0
   k = MIN(189, fsize)
   chunk$ = Input$(k, #fnbr)
   enc$ = base64Encode(chunk$)
   If LLen(buf()) + Len(enc$) + 2 > 8700 Then
     WEB TCP CLIENT WRITE buf()
     LongString Clear buf()
   EndIf
   LongString Append buf(), enc$ + cr
   fsize = fsize - k
 Loop
 Close #fnbr

 LongString Append buf(), "--" + bd + "--" + cr
 WEB TCP CLIENT WRITE buf()
 LongString Clear buf()

 WEB TCP CLIENT REQUEST "." + cr, b()
 If WaitCode(b(), "250") Then
   ErrEmail = false : FaultDetected = false
   Print "Email sent with attachment"
 Else
   Print "Send not confirmed"
 EndIf

 WEB TCP CLIENT REQUEST "QUIT" + cr, b()
bail:
 WEB CLOSE TCP CLIENT
End Sub

Function WaitCode(b() As integer, code As string) As integer
 WaitCode = (LInStr(b(), code) > 0)
End Function

Function base64Encode(si As string) As string
 Local integer iiii = Math(base64 encode si, base64Encode)
End Function

Option explicit
Option default none
Dim float ch
Dim imag%(320*240\8-1)
Dim s$
If Instr(MM.DEVICE$,"HDMI") Then Mode 4
Drive "b:"
Camera open ov2640 gp20,gp21,gp22,gp26,gp27,gp0
Do
Camera change imag%(),ch' initialise the change image
Do
  Camera change imag%(),ch,1
Loop Until ch>10
s$="Movement"
Inc s$, LEFT$(Date$,2)+Mid$(Date$,4,2)+RIGHT$(Date$,2)
Inc s$," "+LEFT$(Time$,2)+Mid$(Time$,4,2)+RIGHT$(Time$,2)+".jpg"
Camera capture jpeg s$,sxga
Load jpg s$,,,,,4
Pause 2000
Loop