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
» Détection connexion internet
par JL35 Aujourd'hui à 18:39

» Le parcours du cavalier sur un échiquier 8 x 8
par pascal10000 Hier à 13:26

» Casse-tête : Echanger les positions des cavaliers
par papydall Sam 22 Juil 2017 - 19:42

» Compilateur FBPano
par jean_debord Sam 22 Juil 2017 - 10:54

» demande pour recuperer un text speciale
par pascal10000 Ven 21 Juil 2017 - 22:04

» KGF_dll - nouvelles versions
par Klaus Ven 21 Juil 2017 - 14:29

» Amélioration de la commande HINT
par papydall Mer 19 Juil 2017 - 3:30

» TEST SUR SHAPE
par papydall Mer 19 Juil 2017 - 1:17

» Un challenge à relever
par papydall Mar 18 Juil 2017 - 21:25

» Astuce : Indenter plusieurs lignes de code à la fois
par papydall Mar 18 Juil 2017 - 1:32

» Suggestion pour le forum
par papydall Lun 17 Juil 2017 - 20:28

» Truver les handles des onglets de Panoramic Editor
par Klaus Lun 17 Juil 2017 - 18:20

» Synedit_Editor - nouvelles versions
par Klaus Lun 17 Juil 2017 - 13:46

» Détermine si oui ou non un objet est PARENT d'un autre objet
par Klaus Dim 16 Juil 2017 - 11:58

» Une autre façon de terminer une application.
par papydall Dim 16 Juil 2017 - 3:53

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2017
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
31      
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 : 5456
Age : 66
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 : 5841
Age : 44
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 : 5894
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 En ligne
Yannick

avatar

Nombre de messages : 7930
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 : 7930
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 : 5894
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 En ligne
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 : 5894
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 En ligne
Yannick

avatar

Nombre de messages : 7930
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 : 5894
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 En ligne
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 : 5894
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 En ligne
Yannick

avatar

Nombre de messages : 7930
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
» Comment ajouter une photo à la galerie personnelle ?
» Script pour faire un tableau au coins arrondi dans sa PA
» Nuvi 3597 lmt quelques petites interrogations

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: