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.
Accueil 
Calendrier
)
rien ne fonctionne 
