Mon Ecurie

Sub SendByMail(AM$)
  Dim_Local fich%,x%,cmd$,prog$,Dest$,Suj$,PJ$,DM$
  BDRfindrelation("?",Adress$,AM$,38)
  Dest$=item_read$(38,1): Suj$="Communication Ecurie" : PJ$=Path$+"Document_Ecurie.Txt"
message "Dest$="+Dest$ : ' <====================
  prog$="SendItQuiet"
...

  if Dest$<>""

EXECUTE "ecurie_senditquiet.bat"

Sub SendByMail(AM$)
  Dim_Local fich%,x%,cmd$,prog$,Dest$,Suj$,PJ$,DM$
  BDRfindrelation("?",Adress$,AM$,38)
  Dest$=item_read$(38,1): Suj$="Communication Ecurie" : PJ$=Path$+"Document_Ecurie.Txt"
  prog$="SendItQuiet"
  if Serv$="" or Port$="" or AdressM$="" or MDP$="" or Dest$="" or Prot$=""
      if Serv$="" then DM$="Serveur"
      if Port$="" then DM$="Port"
      if AdressM$="" then DM$="Utilisateur"
      if MDP$="" then Dm$="Mot de passe"
      if Dest$="" then DM$="Destinataire"
      if message_error_ok("Des données sont manquantes,"+chr$(13)+DM$+chr$(13)+" la procédure va être annulée !")=1
        exit_sub
      end_if
  end_if
  if Dest$<>"No*"
      cmd$ = prog$+" -s "+chr$(34)+Serv$+chr$(34)
      cmd$ = cmd$ +" -port "+chr$(34)+port$+chr$(34)
      cmd$ = cmd$ +" -u "+chr$(34)+AdressM$+chr$(34)
      cmd$ = cmd$ +" -protocol "+chr$(34)+Prot$+chr$(34)
      cmd$ = cmd$ +" -p "+chr$(34)+MDP$+chr$(34)
      cmd$ = cmd$ +" -f "+chr$(34)+AdressM$+chr$(34)
      cmd$ = cmd$ +" -t "+chr$(34)+Dest$+chr$(34)
      cmd$ = cmd$ +" -subject "+chr$(34)+Suj$+chr$(34)
      cmd$ = cmd$ +" -body "+chr$(34)+Suj$+chr$(34)
      cmd$ = cmd$ +" -files "+chr$(34)+PJ$+chr$(34)
      clear 38
      item_add 38,cmd$
      file_save 38,"ecurie_senditquiet.bat"
      execute "ecurie_senditquiet.bat"
      clear 38
      file_delete "ecurie_senditquiet.bat"
  else
      If Message_warning_ok("Adresse du destinataire invalide !")=1
      end_if
      exit_sub
  end_if
End_Sub

-protocol ssl

label envoyer, copier

dim options$(11), i%, cmd$
dim prog$ : prog$ = "SendItQuiet"

data "s","port","u","p","f","t","subject","body","bodyfile","files","protocol"

height 0,600

alpha 1 : top 1,10 : left 1,10 : caption 1,"Serveur SMTP:"
edit 2 : top 2,10 : left 2,150 : width 2,300

alpha 11 : top 11,40 : left 11,10 : caption 11,"Port du serveur:"
edit 12 : top 12,40 : left 12,150 : width 12,40

alpha 21 : top 21,70 : left 21,10 : caption 21,"Compte utilisateur:"
edit 22 : top 22,70 : left 22,150 : width 22,300

alpha 31 : top 31,100 : left 31,10 : caption 31,"Mot de passe:"
edit 32 : top 32,100 : left 32,150 : width 32,300

alpha 41 : top 41,130 : left 41,10 : caption 41,"Expéditeur:"
edit 42 : top 42,130 : left 42,150 : width 42,300

alpha 51 : top 51,160 : left 51,10 : caption 51,"Destinataire:"
edit 52 : top 52,160 : left 52,150 : width 52,300

alpha 61 : top 61,190 : left 61,10 : caption 61,"Sujet:"
edit 62 : top 62,190 : left 62,150 : width 62,300

alpha 71 : top 71,220 : left 71,10 : caption 71,"Ligne de message:"
edit 72 : top 72,220 : left 72,150 : width 72,300

alpha 81 : top 81,250 : left 81,10 : caption 81,"ou fichier message HTML:"
edit 82 : top 82,250 : left 82,150 : width 82,300

alpha 91 : top 91,280 : left 91,10 : caption 91,"Fichiers joints:"
edit 92 : top 92,280 : left 92,150 : width 92,300

alpha 101 : top 101,310 : left 101,10 : caption 101,"Protocole:"
edit 102 : top 102,310 : left 102,150 : width 102,300

button 200 : top 200,340 : left 200,10 : width 200,440 : caption 200,"Envoyer"
  on_click 200,envoyer : font_bold 200
 
memo 210 : top 210,370 : left 210,10 : width 210,440 : height 210,140

button 220 : top 220,520 : left 220,10 : width 220,440 : caption 220,"Copier"
  on_click 220,copier : font_bold 220

for i%=1 to 11
  read options$(i%)
next i%

if file_exists(prog$+".exe")=0
  message "Le fichier "+prog$+".exe"+" est introuvable !"
  terminate
end_if

end

envoyer:
  cmd$ = prog$ + " -"+options$(1)+" "+chr$(34)+trim$(text$(2))+chr$(34)
  cmd$ = cmd$ + " -"+options$(2)+" "+chr$(34)+trim$(text$(12))+chr$(34)
  cmd$ = cmd$ + " -"+options$(3)+" "+chr$(34)+trim$(text$(22))+chr$(34)
  cmd$ = cmd$ + " -"+options$(4)+" "+chr$(34)+trim$(text$(32))+chr$(34)
  cmd$ = cmd$ + " -"+options$(5)+" "+chr$(34)+trim$(text$(42))+chr$(34)
  cmd$ = cmd$ + " -"+options$(6)+" "+chr$(34)+trim$(text$(52))+chr$(34)
  cmd$ = cmd$ + " -"+options$(7)+" "+chr$(34)+trim$(text$(62))+chr$(34)
  if trim$(text$(72))<>""
    cmd$ = cmd$ + " -"+options$(8)+" "+chr$(34)+trim$(text$(72))+chr$(34)
  else
    cmd$ = cmd$ + " -"+options$(9)+" "+chr$(34)+trim$(text$(82))+chr$(34)
  end_if
  if trim$(text$(92))<>""
    cmd$ = cmd$ + " -"+options$(10)+" "+chr$(34)+trim$(text$(92))+chr$(34)
  end_if
  if trim$(text$(102))<>""
    cmd$ = cmd$ + " -"+options$(11)+" "+chr$(34)+trim$(text$(102))+chr$(34)
  end_if
  clear 210
  item_add 210,cmd$
  execute cmd$
  return

copier:
  clipboard_string_copy cmd$
  return


doc de SendItQuiet:

-s <server>    : SMTP server address (required)
-port <port>    : SMTP server port (Default is 25)
-u <username>  : SMTP user name (reqired)
-p <password>  : SMTP password (required)
-f <from>      : Sender mail address (required)
-t <to>        : Comma seperated recipient list (reqired)
-protocol <protocol>  : SMTP protocol possible values are, ssl, normal.
-subject <subject> : subject line, surround with quotes if you want to include spaces
-body <body> : Mail body. Surround with quotes if you want to include spaces
-bodyfile <filename> :file path contains message body, file encoding assumed as utf8
-files <files>      : Attachment files, (comma seperated).
-logfile <filename> : Optionaly you can specify a log file to have detailed trace of whole communication process.