2.34 du 17 mai 2013: ajout de fonctions pour envoyer un mail

Nouvelle version:
KGF.dll V2.34 du 17/05/2013

Nouveauté:
ajout de 10 fonctions pour constituer en envoyer un mail. J'utilise le système MAPI de MicroSoft. Ce service envoie le mail sur un serveur SMTP en utilisant le client de messagerie par défaut configuré sur le système. Chez moi, c'est Outlook Express. Rien n'est demandé à l'utilisateur en exécution. Le mail doit être constitué complètement, avec toutes ces partie, avant l'envoi. Le programme a besoin des informations obligatoires suivantes:
- nom du compte de l'expéditeur (en général, e qui précède le @)
- adresse mail de l'expéditeur
- 1 adresse de destinataire principal
Le programme gère les informations optionnelles suivantes:
- le mot de passe de l'expéditeur si le compte de messagerie est configuré avec un mot de passe (c'est tout te même le cas le plus fréquent)
- d'autres adresses de destinataires principaux
- 1 ou plusieurs adresses de destinataires en copie
- 1 ou plusieurs adresses de destinataires en copie aveugle
- 1 ou plusieurs noms de fichiers en pièce jointe (attention: chemin absolu obligatoire !)
- l'objet du message (par défaut, l'objet est "pas de sujet")
- 1 ou plusieurs lignes de texte pour le corps du message texte

Modules modifiés:
KGF.dll
KGF_SUB.bas
KGF.chm, KGF.doc, KGF.pdf

La doc est à jour.
Je n'ai pas encore réussi à mettre mon site Voilà à jour ; cela viendra.

Et voici une démo. Cliquer d'abord sur "Effacer", puis renseigner toutes les zones requises. Là où il y a un bouton "Charger", il faut l'utiliser pour valider la saisie. Lorsque tout est complet, cliquer sur "Envoyer";

Code:: ' mail_avec_MAPI.bas

labels()
constantes()
variables()
interface()

initialisations()

end

sub labels()
label effacer, charger_file, charger_dest_adr, charger_copy_adr
label charger_blind_copy_adr, envoyer, chercher_file
label effacer_dest, effacer_copy, effacer_blind_copy, effacer_file
end_sub

sub constantes()
dim KGF$ : KGF$ = "KGF.dll"
end_sub

sub variables()
dim no%, no_open%
dim n_dest%, n_copy%, n_blind_copy%, n_file%
dim e_from_name%, e_from_adr%, e_from_pwd%, e_file%
dim e_to_adr%, e_copy_adr%, e_blind_copy_adr%, e_objet%, m_body%
dim a_dest%, a_copy%, a_blind_copy%, a_file%
dim d_to_adr%, d_copy_adr%, d_blind_copy_adr%, d_file%
dim i%, s1$, s2$, s3$
end_sub

sub interface()
caption 0,"Envoi de mails par MAPI"
width 0,920 : height 0,535
no% = no% + 1 : button no% : top no%,40 : left no%,410
caption no%,"Effacer" : on_click no%,effacer
no% = no% + 1 : alpha no% : top no%,92 : left no%,24
caption no%,"Compte expéditeur:"
font_bold no% : font_color no%,0,0,255
no% = no% + 1 : edit no% : top no%,88 : left no%,200 : width no%,193
e_from_name% = no%
no% = no% + 1 : alpha no% : top no%,124 : left no%,24
caption no%,"Adresse expéditeur:"
font_bold no% : font_color no%,0,0,255
no% = no% + 1 : edit no% : top no%,120 : left no%,200 : width no%,193
e_from_adr% = no%
no% = no% + 1 : alpha no% : top no%,156 : left no%,24
caption no%,"Mot de passe expéditeur:"
font_bold no% : font_color no%,0,0,255
no% = no% + 1 : edit no% : top no%,152 : left no%,200 : width no%,193
e_from_pwd% = no%

no% = no% + 1 : alpha no% : top no%,208 : left no%,24
caption no%,"Fichier joint:"
font_bold no% : font_color no%,0,0,255
no% = no% + 1 : edit no% : top no%,208 : left no%,200 : width no%,193
e_file% = no%
no% = no% + 1 : button no% : top no%,208 : left no%,395 : width no%,30
caption no%,"..." : on_click no%,chercher_file
no% = no% + 1 : button no% : top no%,208 : left no%,425 : width no%,30
caption no%,"X" : on_click no%,effacer_file
no% = no% + 1 : button no% : top no%,208 : left no%,455
caption no%,"Charger" : on_click no%,charger_file
no% = no% + 1 : alpha no% : top no%,212 : left no%,550
font_color no%,0,0,255 : a_file% = no%

no% = no% + 1 : alpha no% : top no%,264 : left no%,24
caption no%,"Adresse destinataire:"
font_bold no% : font_color no%,0,0,255
no% = no% + 1 : edit no% : top no%,264 : left no%,200 : width no%,193
e_to_adr% = no%
no% = no% + 1 : button no% : top no%,264 : left no%,425 : width no%,30
caption no%,"X" : on_click no%,effacer_dest
no% = no% + 1 : button no% : top no%,264 : left no%,455
caption no%,"Charger" : on_click no%,charger_dest_adr
no% = no% + 1 : alpha no% : top no%,268 : left no%,550
font_color no%,0,0,255 : a_dest% = no%
no% = no% + 1 : alpha no% : top no%,296 : left no%,24
caption no%,"Adresse copie:"
font_bold no% : font_color no%,0,0,255
no% = no% + 1 : edit no% : top no%,296 : left no%,200 : width no%,193
e_copy_adr% = no%
no% = no% + 1 : button no% : top no%,296 : left no%,425 : width no%,30
caption no%,"X" : on_click no%,effacer_copy
no% = no% + 1 : button no% : top no%,296 : left no%,455
caption no%,"Charger" : on_click no%,charger_copy_adr
no% = no% + 1 : alpha no% : top no%,300 : left no%,550
font_color no%,0,0,255 : a_copy% = no%
no% = no% + 1 : alpha no% : top no%,328 : left no%,24
caption no%,"Adresse copie aveugle:"
font_bold no% : font_color no%,0,0,255
no% = no% + 1 : edit no% : top no%,328 : left no%,200 : width no%,193
e_blind_copy_adr% = no%
no% = no% + 1 : button no% : top no%,328 : left no%,425 : width no%,30
caption no%,"X" : on_click no%,effacer_blind_copy
no% = no% + 1 : button no% : top no%,328 : left no%,455
caption no%,"Charger" : on_click no%,charger_blind_copy_adr
no% = no% + 1 : alpha no% : top no%,332 : left no%,550
font_color no%,0,0,255 : a_blind_copy% = no%

no% = no% + 1 : edit no% : top no%,40 : left no%,528 : width no%,193
e_objet% = no%
no% = no% + 1 : alpha no% : top no%,44 : left no%,752
caption no%,"Objet"
font_bold no% : font_color no%,0,0,255
no% = no% + 1 : memo no% : top no%,72 : left no%,528 : width no%,193
height no%,113 : m_body% = no%
no% = no% + 1 : alpha no% : top no%,78 : left no%,752
caption no%,"Message"
font_bold no% : font_color no%,0,0,255

no% = no% + 1 : button no% : top no%,400 : left no%,416 : height no%,65
width no%,153 : font_size no%,12
caption no%,"Envoyer" : on_click no%,envoyer

no% = no% + 1 : dlist no% : d_to_adr% = no%
no% = no% + 1 : dlist no% : d_copy_adr% = no%
no% = no% + 1 : dlist no% : d_blind_copy_adr% = no%
no% = no% + 1 : dlist no% : d_file% = no%
no% = no% + 1 : open_dialog no% : no_open% = no%
end_sub

sub initialisations()
KGF_initialize(KGF$)
end_sub

effacer:
text e_from_name%, ""
text e_from_adr%, ""
text e_from_pwd%, ""
text e_file%, ""
text e_to_adr%, ""
text e_copy_adr%, ""
text e_blind_copy_adr%, ""
text e_objet%, ""
clear m_body%
n_dest% = 0
n_copy% = 0
n_blind_copy% = 0
n_file% = 0
caption a_dest%, ""
caption a_copy%, ""
caption a_blind_copy%, ""
caption a_file%, ""
clear d_to_adr%
clear d_copy_adr%
clear d_blind_copy_adr%
clear d_file%
return

chercher_file:
s1$ = file_name$(no_open%)
if s1$="_" then return
text e_file%,s1$
return

charger_file:
item_add d_file%,trim$(text$(e_file%))
n_file% = n_file% + 1
caption a_file%,str$(n_file%)+" fichiers joints"
return

charger_dest_adr:
item_add d_to_adr%,trim$(text$(e_to_adr%))
n_dest% = n_dest% + 1
caption a_dest%,str$(n_dest%)+" destinataires"
return

effacer_dest:
clear d_to_adr%
n_dest% = 0
caption a_dest%,""
text e_to_adr%,""
return

effacer_copy:
clear d_copy_adr%
n_copy% = 0
caption a_copy%,""
text e_copy_adr%,""
return

effacer_blind_copy:
clear d_blind_copy_adr%
n_blind_copy% = 0
caption a_blind_copy%,""
text e_blind_copy_adr%,""
return

effacer_file:
clear d_file%
n_file% = 0
caption a_file%,""
text e_file%,""
return

charger_copy_adr:
item_add d_to_adr%,trim$(text$(e_copy_adr%))
n_copy% = n_copy% + 1
caption a_copy%,str$(n_copy%)+" destinataires en copie"
return

charger_blind_copy_adr:
item_add d_to_adr%,trim$(text$(e_blind_copy_adr%))
n_blind_copy% = n_blind_copy% + 1
caption a_blind_copy%,str$(n_blind_copy%)+" destinataires en copie aveugle"
return

envoyer:
s1$ = trim$(text$(e_from_name%))
s2$ = trim$(text$(e_from_adr%))
s3$ = trim$(text$(e_from_pwd%))
if s1$=""
message "Pas de nom du compte"
return
end_if
if s2$=""
message "Pas d'adresse d'émetteur"
return
end_if
if s3$=""
if message_confirmation_yes_no("Pas de mot de passe. Continuer ?")<>1 then return
end_if

if n_dest%=0
message "Pas de destinataire"
return
end_if

' construction et envoi du mail
CreateMail()
SetMailSender(s1$, s2$, s3$)
SetMailObject(trim$(text$(e_objet%)))

if Count(d_to_adr%)>0
for i%=1 to Count(d_to_adr%)
s1$ = item_read$(d_to_adr%,i%)
AddMailRecipient(s1$)
next i%
end_if

if Count(d_copy_adr%)>0
for i%=1 to Count(d_copy_adr%)
s1$ = item_read$(d_copy_adr%,i%)
AddMailCopy(s1$)
next i%
end_if

if Count(d_blind_copy_adr%)>0
for i%=1 to Count(d_blind_copy_adr%)
s1$ = item_read$(d_blind_copy_adr%,i%)
AddMailBlindCopy(s1$)
next i%
end_if

if Count(m_body%)>0
for i%=1 to Count(m_body%)
s1$ = item_read$(m_body%,i%)
AddMailBodyLine(s1$)
next i%
end_if

if Count(d_file%)>0
for i%=1 to Count(d_file%)
s1$ = item_read$(d_file%,i%)
AddMailJoinedFile(s1$)
next i%
end_if

SendMail()
DeleteMail()

return

#INCLUDE "KGF_SUB.bas"

Je me disais « Klaus se taisait depuis plusieurs heures, il est sans doute en train de nous fabriquer quelque chose», et je ne me suis pas trompé !
La preuve ? Mais elle est là !

Merci Klaus.

Extra Klaus, je n'ai pas testé, mais le menu est alléchant.
Laisse moi deviner, tu t'es rajouté un nouvel icone sur ton bureau avec cet outil ? Smile

Reste à ajouter le carnet d'adresses / contacts utilisant la BDR pour envoyer les mails et la gestion de liste de diffusion. (Ben j'essai de te donner du boulot vu la vitesse à laquelle tu nous concoctte de nouvelles possibilités ... : ) )

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Tu as raison, c'est un véritable concocte-minute.

Je n'ai pas encore essayé, j'ai toujours du mal à m'envoyer des mails à moi-même pour les essais, mon serveur (wanadoo) doit me bloquer quelque part.

Je lève le nez de mon programme 30 secondes pour voir si il y a de nouveaux posts sur le forum
et voilà que Klaus nous a pondu un truc du "tonnerre de dieu". J' attends un peu pour la mise à jour
que tu mettes le site à jour pour tester les fonctions précédentes dans mon KGF UPDATER.
C' est l'occasion de voir si tout fonctionne... Laughing

Bref, là... c'est une avancée de chez avancée...

TOUTES MES FELICITATIONS KLAUS !!! cheers

Info pour Klaus,

Cela fonctionne très bien! ( j'ai essayé avec ton code panoramic.)
Ceci dit, pour ce qui concerne Windows Mail, celui ci ouvre une fenêtre d'avertissement
d'une utilisation de ses fonctions et demande confirmation de l'envoi.

2.34 du 17 mai 2013: ajout de fonctions pour envoyer un mail Captur23

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Pareil pour moi (Windows Live Mail)

J'avais le même problème en Outlook Express. Et j'ai trouvé un paramètre dans les options "Sécurité" que j'ai décoché:

Citation :: M'avertir lorsque d'autres applications tentent d'envoyer un message de ma part"

et je n'ai plus ce problème.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Merci Klaus, intéressant, je vais regarder ça.

PS Exact ! il y a la même chose dans Windows Mail (et Windows Live Mail), c'est décoché ! mais essais plus tard (ou plus tôt demain)

Comme je suis dans le même cas, je vais voir cela et faire le nécessaire...

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Bon effectivement, après décochage il n'y a plus de demande de confirmation.

Maintenant, est-ce qu'il y a un risque qu'un programme s'installe et se mette à envoyer des messages à mon insu ? Finalement je ne le pense pas, puisque je n'avais jamais eu cette alerte avant... le risque doit être minime, voire nul.

Je pense aussi que le risque est minime. Toutefois, avant une installation, tu peux réactiver cette protection, puis installer et exécuter le nouveau programme. Si tu n'as pas d'alerte, tu peux sereinement redécocher cette option.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Certes, ce serait sage. Mais le programme que tu installes, s'il est vicieux, ne va pas se mettre tout de suite à envoyer des messages, ça peut se faire à des heures ou dates prédéfinies... mais il ne faut quand même pas tomber dans la paranoïa.
Dommage qu'on ne puisse pas cocher et décocher par programme, mais ce serait trop facile à faire également par le programme pirate !
Je plaisante (à moitié).
L'idéal serait de pouvoir désigner les programmes autorisés à le faire sans contrôle.
Non, si on ne fait pas n'importe quoi sur son pc, il n'y a pas de risques

Le plus grand danger serait qu' un logiciel que l'on installe, recueille des infos perso pour les envoyer à son concepteur...
Dans ce cas, il me semble que ce serait l' antivirus qui prendrait le relais, non?...

» 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto
» 2.29 du 4 mai 2013: ajout fonction GetWeekNumber
» V2.49 du 9 Novembre 2013: ajout de fonctions
» 1.96 du 27 Février 2013: ajout ReadBlockFromBinaryFile
» 2.46 du 13/10/2013: ajout function SendSingleCharAsVKCode