Simple SMTP_SSL with console mailsend

[M30_NXG]

Hello,
to all.

My first posting is a short console solution, inspired from a
existing VB-script.
Realized with an minimalistic code skeleton for proofing
and demonstrating the idea.

The simple recipe: iDispatch is used. ;-)
So the VBS code needs only smooth changes to work within Thinair. ;-)

- What we do:
We send a mail message via console without using Thunderbird, Outlook,
etc. mail clients
To realize this i use mailsend, a free console textbased mail client.


Necessary steps..

1.)
look at:
https://github.com/muquit/mailsend/releases/
https://github.com/muquit/mailsend/#features

2.)
Download mailsend v1.19 - Latest stable version
mailsend1.19.exe.zip - zipped windows binary.

UNZIP it in drive:Dir\path of your choice.
If you wish, rename it to MS.EXE (no must, but it's handy)

3.)
Adjust the variables for SMTP-Mail and the above (2.))
Drive:Dir\path combination to your situation.
See the comments in the source file.

4.)
Feel free to modify and use
Thinair - hit F5 - should do the rest

Stumbeling...
In Line 83 i have a litte problem with the OS_Shell command.
The Body is cutted after about 240-250 chars length.
The "pure VBS solution" , see line 86 seems to work.
Any idea ?

Thanks

Ben

' SimpleSMTP_SSL 
'-----------------------
'  based on an existing VB-Script solution

'-- Prepare :
' (1.) Download mailsendxxx from :
' https://github.com/muquit/mailsend/releases/
' https://github.com/muquit/mailsend/#features

' to an Dir\Path of your choice. Manually rename it to MS.EXE
' Short name is better to handle, but no must.
'=============================================================
Uses "Console"
Uses "OS"
'-----------Change here for your suits ---------
' eventual look at your Mail- Client settings to get the right settings
' (2.) User / Provider data... / SMTP Server 
'-----------------------------------------------
Dim Msender     As String ="XXXXX@YZ.de"    'SenderName  -- sender@xyz.de
Dim Mserver     As string ="SMTPxxxx.de"    'SMTP Server -- smtpserver.it
Dim Mpass       As string ="##########"     'Passwort    -- your Mail PWD
Dim Mreceiver   As String ="RRRRR@Mail.de"  'receiver    -- to 
Dim sSLLPort    as string = "465"           ' SSL Port.. -- SSL port
'-----------------------------------------------
'-- Change here  the location of mailsend.exe ************
Dim MSendeApp As String  ="c:\skripte\ms.exe"  'MS.EXE is here at home <--


String  sAPP_Version   =  """ TB Simple SMTP SSL Tester - send by PC : """
'--------- MAIN ---------------
Function TBMain() As Long
Call Mail_send
      PrintL "**__END__ "  & crLF & "( Hit Key to Exit )**"
WaitKey 
End Function
' ----- END MAIN ---------------

'------------------------------------------
Sub Mail_send() 'poor man solution ;-)
'------------------------------------------
   ''** WARNIG. MS.EXE is sensible on missing or wrong double quotes or spaces
   ''** between the parameters. Symptom : No mail is sended
   Dim  oMsg  as  idispatch
   Dim  SendMail_Wrapper   as String 
   Dim TestBody  as String
   '-- here you can chain your Body text
   TestBody ="1111111110" & $LF & _
             "2222222220" & $LF & _
             "3333333330" & $LF & _
             "4444444440" & $LF & _
             "5555555550" & $LF & _
             "6666666660" & $LF & _
             "7777777770" & $LF & _
             "9999999990" & $LF & _
             "AAAAAAAAA0" & $LF & _
             "BBBBBBBBB0" & $LF & _
             "CCCCCCCCC0" & $LF & _
             "DDDDDDDDD0"
  '--magic ---IdisPatch--sorry no CHK -> on if IsComObject <-in this sample-          
   oMsg = Newcom("WScript.Shell")
  
   '-- simple wrapper for MS.EXE arguments
   ' (- v Option) ist active for dbg ;-)
   '------------------------------------------------
   SendMail_Wrapper = " -f " &  Mreceiver    & _
             " -t " &  Mreceiver & _ 
             " -ssl -port " & sSLLPort & " -auth -smtp " & Mserver & _ 
             " -user " & Msender   & _
             " -pass " & Mpass   & _
             " -sub " &  sAPP_Version &   OS_GetComputerName  &  _
             " -v "  &  " -M " & " "  & _
             TestBody 
             '-- feel free to add more Body- text
    '--------------------------------------------------------
    
'litte dbg, because of problem  with OS_Shell '   
PrintL  "**dbg_Info Send-Packet **:" , SendMail_Wrapper 
PrintL  "**dbg_Info Length        :" , Len(SendMail_Wrapper) & crLf

'?? Here i am struggeling with the native OS_Shell command 
' --- only ca. 240 - 250 Chars are transported , then cut ? why ? mh, mh?
' Perhaps  MS.EXE ? 
'OS_Shell(MSendeApp & " " &  SendMail_Wrapper , %OS_WNDSTYLE_MAXIMIZED, %OS_SHELL_SYNC)

'--- no problem with Len in this solution (SendMail_Wrapper) 
oMsg.run (MSendeApp & " " & SendMail_Wrapper, 0, True)
   
oMsg = Nothing

End Sub
''//EOF

[DirectuX]

Hi, M30_NXG

'?? Here i am struggeling with the native OS_Shell command 
' --- only ca. 240 - 250 Chars are transported , then cut ? why ? mh, mh?
' Perhaps  MS.EXE ? 
'OS_Shell(MSendeApp & " " &  SendMail_Wrapper , %OS_WNDSTYLE_MAXIMIZED, %OS_SHELL_SYNC)

just an idea (I'm a newcomer at ThinBasic) : have you try with OS_ShellExecute ?

hInstance = OS_ShellExecute(Open, MSendeApp , SendMail_Wrapper, "c:\skripte\",%SW_SHOWMAXIMIZED)

[ErosOlmi]

Hi Ben,

thanks a lot for this great entrance in thinBasic.

I didn't know about MailSend, it can be very useful.
thinBasic has a SMTP module but MailSend support ESMPT and IPV6
Very compact, I will study it.

And yes, thinBasic has OS_Shell functions but the use of iDispatch is great.
I like the idea to use all the tools that are available and find different ways to do the same things.

I will check OS_Shell limitations, maybe I can improve command line max number of chars

Ciao
Eros

[ErosOlmi]

I've developed a new Shell function without command line limitations.
It will be a new keyword directly in Core engine of thinBasic so no need to load OS module to use it.
Will be present in next release.

Ben, thanks for spotting it