Envoi automatique de mail.

Bonjour.

J'ai testé le code suivant, et il ne fonctionne pas.

Merci de votre aide.

Code:

' /t: objet du message
' /m: fichier contenant le texte du message
' /f: fichier(s) joint(s)
' /e: email de l'expéditeur

execute "sendmail.exe /u:pan5962@gmail.com /t:test /e:pan5962@gmail.com /s:smtp.gmail.com"

message "OK"

Même problème avec le code suivant:

Code:

execute "sendmail.exe /u:pp.lemoco@yahoo.fr /t:test /e:pp.lemoco@yahoo.fr /s:smtp.yahoo.fr"

Je me suis servi quelques fois de la commande execute pour les mails
et cela a fonctionné...

regarde là : https://panoramic.1fr1.net/t176-envoyer-un-email-automatique?highlight=envoyer+un+email+automatique

Jack avait donné une piste...

Tu peux voir là aussi éventuellement:
https://panoramic.1fr1.net/t1583-envoyer-en-email-depuis-un-programme-panoramic?highlight=email
attention, c'est avec SendEmail.exe (et non pas sendmail.exe, que tu as utilisé toi, et qui est autre chose).

PS j'ai essayé de m'envoyer des messages à moi-même, pour tester, mais ça ne marche pas, ça doit être détecté par le serveur.

J'utilise maintenant [/code]SendItQuiet pour faire cela. C'est gratuit, et il suffit de copier SendItQuiet.exe dans le dossier du programme Panoramic. Voici une petite démo. on peut spécifier le texte comme une seule ligne de texte ou comme fichier HTML. On peut optionnellement spécifier des fichiers en pièce jointe, dont les noms sont séparés par des virgules.

Le source du programme de démo ci-après donne la liste des options:

[code]label envoyer

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

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

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

button 200 : top 200,310 : left 200,10 : width 200,440 : caption 200,"Envoyer"
on_click 200,envoyer : font_bold 200

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

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
message cmd$
execute 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.

Je prends !

Je potasserai le sujet dès que j'aurai quelques minutes de calme.

Merci pour le tuyau Klaus !

Bonjour à tous,
Merci beaucoup Klaus pour ce petit programme de démo. Ça fonctionne super bien!
En plus cela ouvre des horizons supplémentaires dans la programmation!
Merci encore pour cet outil super pratique
A+

Attention quand même à l'usage des envois d'email, je conseille vivement que l'utilisateur valide l'opération avant ...
Je ne parle pas de la partie technique, mais du ressenti utilisateur si on utilise un programme qui envoie des mails sans son accord avec un contenu inconnu ...

En tout cas merci Klaus pour ses infos très pratique (par exemple pour un bouton contactez-moi, avec un texte prérempli et un champ libre pour l'utilisateur ou bien d'autres applications)

@Jicehel:
Tes remarques concernant la validation avant anvoi sont parfaitement pertinentes. Il faudrait évidemment demander systématiquement à l'utilisateur s'il accepte un envoi. L'envoi sans confirmation n'est envisageable que pour un programme ou un fichier batch qui tourne en arrière-plan et qui est lancé de façon automatique, par exemple tout les jours à minuit (exemple: sauvegarde automatique, surveillance d'un base de données, ...).

Mon programme n'apporte que la solution technique pour l'envoi, pas la nécessaire gestion applicative autour de cela.

Tout à fait Klaus, et ton explication technique est une fois de plus très efficace.
PS: Je profite de ma réponse pour te demander si tu peux me rafraîchir la mémoire. Sauf erreur de ma part, tu n'as pas rajouté à ce jour d'objets appelable permettant de faire des mémos formatés ? (gras, titre, puces, taille des caractères, alignement, ...). Je crois que non et Cosmos avait fait un travail la dessus, mais peux-tu me le confirmer et est-ce qu'un objet Delphi existant serait utilisable par l'intermédiaire de ta DLL ? Je ne te l'envoie pas en message privé par ce que même si c'est hors sujet du post, je pense que ça peut intéresser d'autres Panoramiciens.

A ce jour, je n'ai pas mis en ligne quelque chose de ce genre, sauf mon pseudo-objet GLIST. Outre la possibilité capitale d'avoir deux ou plusieurs listes synchronisées, on peut avoir des attributs graphiques pour les textes affichés dans ces objets. C'est du Panoramic pur.

Dans mon arrière-cuisine, je travaille sur un genre de LIST avec la maîtrise des polices, attributs graphiques et couleurs à tout niveau, mais c'est compliqué et j'avance à mes moments perdus. D'autres choses sont prioritaires (finaliser les StringList dans KGF.dll, continuer la conversion de KGF.dll vers Lazarus/Pascal en vue du 64 bits, etc).

Merci pour ta réponse Klaus, je ne continue pas plus le hors sujet mais ça me permet de faire le point et d'être sûr de ne pas avoir manqué un des nombreux ajouts de KGF.dl ;)l

Je pense en effet que c'est mieux. Par contre dans le menu tu peux proposer l'option de t'envoyer un mail aux utilisateurs et là, quand c'est l'utilisateur qui de décide, tu lui montre le texte envoyé si tu veux envoyer une partie fixe (si besoin) et une partie libre où il peut écrire ce qu'il veut pour te passer un message, faire une remarque ou te demander sur quel compte il peut te verser 10 millions d'euros ... on ne sait jamais

@ Klaus,

Ton astuce fonctionne t elle avec un compte hotmail ( j'ai viré tout les autres ) ?

Ce serait étonnant. As-tu bien vu le nom du serveur, le port et l'identifiant du compte ?

Bonsoir,
Après quelques tatonnement, j'ai réussi à faire fonctionner le programme de Klaus; je me suis envoyé un mail sur mon autre compte et j'ai testé également avec un fichier image joint. Il n'y a eu aucun problème. Ensuite j'ai répété la même opération vers l'email de mon épouse.
A+

Bonjour à tous.

Voici le code que j'utilise pour envoyer un mail:

Code:

sub envoyer_mail()

    ' Serveur SMTP: smtp.mail.yahoo.fr
    ' Port: 25
    ' Compte: pp.lemoco
    ' Mot de passe: à définir
    ' Expéditeur: pp.lemoco@yahoo.fr
    ' Destinataire: pp.lemoco@yahoo.fr

    chaine$ = "SendItQuiet" + " -"+"s"+" "+chr$(34)+"smtp.mail.yahoo.fr"+chr$(34)
    chaine$ = chaine$  + " -"+"port"+" "+chr$(34)+"25"+chr$(34)
    chaine$ = chaine$  + " -"+"u"+" "+chr$(34)+"pp.lemoco"+chr$(34)
    chaine$ = chaine$  + " -"+"p"+" "+chr$(34)+"mot de passe"+chr$(34)
    chaine$ = chaine$  + " -"+"f"+" "+chr$(34)+"pan5962@gmail.com"+chr$(34)
    chaine$ = chaine$  + " -"+"t"+" "+chr$(34)+"pp.lemoco@yahoo.fr"+chr$(34)
    chaine$ = chaine$  + " -"+"subject"+" "+chr$(34)+"Utilisateur."+chr$(34)
 
    chaine$ = chaine$ + " -"+"body"+" "+chr$(34)+date$+" a "+time$+chr$(34)

    chaine$ = chaine$ + " -"+"files"+" "+chr$(34)+"coordonnees.txt"+chr$(34)

    execute_wait chaine$
end_sub

Ce code fonctionne très bien dans le cas où je m'envoie un mail.

Par contre, il ne fonctionne pas lorsque l'utilisateur de mon logiciel m'envoie un mail depuis son poste.

C'est parce que le serveur, le port, le compte et le mot de passe doivent correspondre aux données de l'expéditeur, pas du destinataire. Tu ne vas pas coder ton propre mot de passe de messagerie dans un programme chez le client, non ?

Mais je pense que le problème principal vient de Yahoo. J'ai d'énormes problèmes d'identification avec Yahoo, en ce moment, alors que je n'ai rien changé dans mon compte Yahoo. J'ai également un compte Orange, en en expédiant à partir de ce compte Orange vers mon compte Yahoo, c'est immédiat et sans problème.

De toutes façons, pour des raisons de confidentialité, je te déconseille fortement de mettre les codes et mot de passe de ton compte habituel de messagerie dans un programme installé chez le client. Crée un compte de messagerie quelconque, à la Poste, par exempl. Ce compte ne servira qu'à l'envoi de messages par ton logiciel. Et ce sont ces codes (serveur, port, identifiant, mot de passe et adresse expéditeur que tu coderas dans ton programme. Et ton problème sera résolu.

@ Klaus,

J'essai désespérément de m'envoyer un mail depuis mon compte hotmail.fr vers mon compte laposte.net

Pourrais tu mettre un petit exemple ?

pour le smtp par exemple, il faut remplir l'edit avec : smtp.live.com ou seulement live.com
ect....

il manque le protocol, il se met où ? (ssl ou normal)

bon j'arrête...je vais me faire jeter...

Voici mon programme étendu pour gérer le protocole:

Code:

label envoyer

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

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

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

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

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
message cmd$
  execute 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.

Et voici une page qui donne le paramétrage du serveur SMTP pour plein de fournisseurs. Pour Hotmail, on y trouve;

Citation :

Serveur SMTP : smtp.live.com (Port 25 avec connexion SSL)

Cela répond à ta question ?