FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Tout est tranquille
par Jean Claude Hier à 21:41

» Texte en gif animé
par JL35 Hier à 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

» Compilateur FBPano
par jean_debord Ven 15 Sep 2017 - 9:59

» 1 (en analyse): 3D_TARGET_IS ne fonctionne pas sur 3D_TEXT
par Jack Jeu 14 Sep 2017 - 19:52

» Problème avec la 3D.
par Jack Jeu 14 Sep 2017 - 18:06

» Test de la 3D.
par mindstorm Mer 13 Sep 2017 - 19:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

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

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: 2.34 du 17 mai 2013: ajout de fonctions pour envoyer un mail   Ven 17 Mai 2013 - 17:14

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"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
papydall

avatar

Nombre de messages : 5531
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: 2.34 du 17 mai 2013: ajout de fonctions pour envoyer un mail   Ven 17 Mai 2013 - 18:03

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: 2.34 du 17 mai 2013: ajout de fonctions pour envoyer un mail   Ven 17 Mai 2013 - 18:06

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 ... : ) )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: 2.34 du 17 mai 2013: ajout de fonctions pour envoyer un mail   Ven 17 Mai 2013 - 18:30

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Ven 17 Mai 2013 - 18:42

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...

cheers cheers cheers TOUTES MES FELICITATIONS KLAUS !!! cheers cheers cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 18 Mai 2013 - 13:02

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: 2.34 du 17 mai 2013: ajout de fonctions pour envoyer un mail   Sam 18 Mai 2013 - 18:26

Pareil pour moi (Windows Live Mail)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: 2.34 du 17 mai 2013: ajout de fonctions pour envoyer un mail   Sam 18 Mai 2013 - 23:47

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



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

MessageSujet: Re: 2.34 du 17 mai 2013: ajout de fonctions pour envoyer un mail   Dim 19 Mai 2013 - 0:43

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)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 19 Mai 2013 - 0:57

Comme je suis dans le même cas, je vais voir cela et faire le nécessaire...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: 2.34 du 17 mai 2013: ajout de fonctions pour envoyer un mail   Dim 19 Mai 2013 - 12:13

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: 2.34 du 17 mai 2013: ajout de fonctions pour envoyer un mail   Dim 19 Mai 2013 - 22:59

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



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

MessageSujet: Re: 2.34 du 17 mai 2013: ajout de fonctions pour envoyer un mail   Lun 20 Mai 2013 - 0:17

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 20 Mai 2013 - 1:03

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?...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




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

Revenir en haut Aller en bas
 
2.34 du 17 mai 2013: ajout de fonctions pour envoyer un mail
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Télécharger Norton Antivirus 2013 gratuit 6 mois
» [Administration] Pouvoir ajouter des smileys directement par leur URL
» Script pour faire un tableau au coins arrondi dans sa PA
» Nuvi 3597 lmt quelques petites interrogations
» V2.57 du 25/11/2013 - bibliothèque personnelle pour Toolbar

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Activité des sites créés par les Panoramiciens. :: Le site de Klaus-
Sauter vers: