Du bon usage de l'objet WebBrowser.

Nombre de messages : 1596 Date d'inscription : 19/01/2014

Bonjour.

Je viens de trouver la solution qui permet à l'utilisateur d'un programme d'envoyer un mail à l'auteur dudit programme.
Voici donc un petit code sans prétention.

Code::    b$="<a href='mailto:alvarezpedro03@gmail.com'>M'envoyer un mail</a>"
   file_open_write 99,"mail.htm"
   file_writeln 99,"<body background='images\brique.jpg'>"
   file_writeln 99,"<center><h3><font color=red>"
   file_writeln 99,b$
   file_close 99

   hnd%=handle(0)

   url$="file:///"+dir_current$+"/mail.htm"
   res%=dll_call1("WBCreate",hnd%)
   res%=dll_call4("WBLocate",10,hauteur_ecran%-100,200,50)
   res%=dll_call1("WBUrl",adr(url$))
   res%=dll_call2("WBScrollBars",0,0)

Très bien ! C'est ce que j'avais dit: l'objet WebBrowser de KGF.dll.

Sinon, tu as les fonctions du groupe "Envoi de mails par MAPI". Voici un extrait de la doc:

Citation :: Ce groupe de fonctions permet d'envoyer des mails à l'aide du service MAPI SendMail. Ceci est une fonction MicroSoft qui utilise le client mail par défaut.

Les informations obligatoires sont:
- nom du compte émetteur
- adresse mail de l'émetteur
- au moins 1 adresse de destinataire

Les informations optionnelles sont:
- mot de passe de l'émetteur si besoin est
- d'autres adresses mail destinataires
- 1 ou plusieurs adresses mail en copie
- 1 ou plusieurs adresses mail en copie aveugle
- 1 ou plusieurs fichiers en pièce jointe
- l'objet du mail (par défaut: "(pas de sujet)")
- 1 ou plusieurs lignes de message en format texte

Le message devra être construit par des appels successifs aux fonctions suivantes:
1. CreateMail pour préparer un nouveau message
2. SetMailSender pour mettre en place le compte, l'adresse et le mot de passe de l'émetteur
3. SetMailObject pour mettre en place l'objet du message
4. AddMailRecipient appelée pour chaque adresse de destinataire
5. AddMailCopy appelée pour chaque adresse en copie
6. AddMailBlindCopy appelée pour chaque adresse en copie aveugle
7. AddMailBodyLine appelée pour chaque ligne du message texte
8. AddMailJoinedFile appelée pour chaque fichier en pièce jointe
9. SendMail pour effectuer l'envoi du message
10. DeleteMail pour effacer le message de la mémoire

Toutes les fonctions retournent la valeur 0.

Pratique !

» usage des Dll
» Usage de 'kgf.dll'.
» Objet WebBrowser
» Objet WebBrowser.
» Un petit programme pour un usage très spécifique