libMail : une bibliothèque VBA pour expédier des emails avec ou sans pièces jointes

Dans la série : « comment, à partir d’Access, expédier un email avec ou sans pièces jointes ?« , voici une méthode alternative proposée par Denis Scheidt (également contributeur sur les forums self-access.com)…

La bibliothèque libMAIL fournie par Denis implémente ce qu’il faut de la RFC821 pour permettre l’envoi de mails à partir d’Access. Le tout en pur VBA et sous licence LGPL… Ca vous dit d’essayer ?

Présentation de libMAIL

Je cite directement l’introduction de libMAIL :

Il arrive régulièrement que l’on ait besoin d’envoyer un état ou un fichier (résultat d’une requête, par exemple) par messagerie électronique à partir d’une application Access.

Access n’offre que deux méthodes pour effectuer cette action : la méthode SendObject de l’objet DoCmd ou l’utilisation d’un objet Outlook.Application (si Outlook est le client de messagerie utilisé par le poste).

Ces deux solutions présentent l’avantage de la simplicité, mais ont également quelques inconvénients non négligeables :

• La méthode SendObject ne permet d’envoyer que des objets Access (formulaire, état, module, etc…). Il n’est pas possible de joindre un fichier externe. De plus, la mise en page est perdue, seules les données étant transmises.
• Lorsqu’une application est diffusée chez plusieurs clients, par exemple, rien ne permet d’être sûr qu’un poste disposera de MS-Outlook. Il peut utiliser un autre client de messagerie (qui ne sera peut-être pas compatible MAPI), ou même ne disposer d’aucun logiciel de messagerie électronique. Écrire un code tenant compte de tous les cas possibles peut vite devenir très compliqué.
• Piloter une application tiers pose également des problèmes : il faut s’assurer que l’application existe sur le poste, éventuellement l’inclure dans le jeu d’installation de l’application Access. Cette application risque d’être mise à jour par ailleurs, et perturber ainsi le déroulement de l’application Access.

Ces différentes contraintes peuvent nous faire préférer une solution plus souple et efficace : avoir un mini-serveur SMTP, écrit en VBA, donc utilisable directement depuis une application Access, et ne dépendant d’aucun composant ou logiciel externe.

Avantages de libMAIL

La bibliothèque libMail présente plusieurs avantages :

• Vous pouvez expédier des messages avec ou sans pièces jointes ;
• Vous n’avez besoin d’aucun logiciel externe (la bibliothèque est développée en VBA) ;
• Vous n’aurez pas d’avertissement de sécurité, comme c’est le cas lorsque vous utilisez Outlook Automation.
• La bibliothèque est sous licence LGPL : le code source est donc public et ré-exploitable librement.

Téléchargement

La version stable actuelle est numérotée 1.10.
Vous trouverez le changelog en bas de cette page.

1. Téléchargez libMAIL.
2. Une fois le fichier Zip téléchargé, cliquez sur son icône du bouton droit de la souris, puis sélectionnez Extraire tout.
   Vous obtenez un dossier contenant lui-même 3 sous-dossiers :
   – code : le code VBA et tout ce qui constitue la bibliothèque libMAIL.
   – doc : la documentation de la bibliothèque, sous plusieurs formats (PDF, OpenOffice).
   – licence : la licence LGPL.
3. Consultez la documentation pour bien comprendre le fonctionnement et l’installation de libMAIL.

Installation express

Si vous êtes pressé, voici une idée générale de l’installation :

1. Créez une base de données vide que vous nommerez par exemple libMAIL.mdb.
2. Copiez dans le même dossier tous les fichiers du sous-dossier code fourni avec libMAIL.
3. Importez le module Outils.MOD.
4. Vérifiez que la bibliothèque DAO est activée dans votre projet (voir plus bas).
5. Dans la fenêtre Exécution, tapez :
   ChargeVB puis appuyez sur la touche [Entrée].
   Vous pouvez aussi placer le curseur dans la procédure ChargeVB, et cliquer sur l’icône Exécuter Sub/UserForm.

Une fois la bibliothèque créée…

… il faut l’ajouter à votre projet (donc à votre base de données principale).
Pour cela, vous avez aussi plusieurs possibilités :

• Vous pouvez transformer votre bibliothèque libMAIL.mdb en un complément Access (libMAIL.mda), et l’installer ensuite sur votre machine. Le processus est un peu long et sort du cadre de cet article.
• Vous pouvez lier la bibliothèque libMAIL.mdb comme n’importe quelle référence VBA.

Et si on expédiait un mail ?

Ce qu’il faut bien comprendre avant de démarrer, c’est que l’envoi de mails se fait en 2 étapes :

1. Vous devez d’abord préparer vos messages (normal, non ?).
2. Vous devez ensuite démarrer le serveur SMTP qui va se charger de l’envoi des messages.

Exemple #1 : envoi de messages simples

Commençons par un cas simple : on souhaite expédier un message sans pièce jointe. Recopiez le code ci-dessous dans un module standard de votre base de données :

Sachant que :

• L’adresse destinataire@fournisseur.fr doit bien sûr être remplacée par celle de votre destinataire réel. Vous pouvez écrire plusieurs adresses, séparées par des virgules ou des points-virgules.
• Le second paramètre est le sujet du message.
• Le troisième paramètre est le corps du message.
• L’adresse emetteur@provider.com est en principe votre propre adresse e-mail.
• CurrentUser donne le nom d’utilisateur Access qui expédie le message (généralement : Admin). Ce paramètre n’est pas utilisé dans le message, mais seulement dans les journaux de suivi.
  Nouveauté de la version 1.01 : ce paramètre est facultatif (si vous l’omettez, c’est le nom de l’utilisateur Windows qui est pris en comp
  te).

Une fois le message créé, la procédure SMTPLance démarre le serveur proprement dit. Elle accepte au minimum 2 paramètres :

• Le nom du serveur SMTP à utiliser pour l’envoi des messages. En général, celui de votre fournisseur d’accès.
  Par exemple, si vous êtes abonné Free, vous utiliserez : smtp.free.fr
• Le nom de domaine avec lequel libMAIL va s’identifier auprès du serveur SMTP. Ca peut être votre nom de domaine si vous en avez un, sinon celui de votre fournisseur d’accès.
  Toujours pour Free, vous pouvez utiliser : free.fr

Exemple #2 : envoi de pièces jointes

Le principe est le même si vous devez joindre des documents à votre message. Il va falloir en plus :

• Stocker la liste des pièces jointes dans un tableau VBA.
• Transmettre ce tableau à la procédure CreeMail.

Questions fréquentes

Pourquoi ne pas livrer la bibliothèque directement sous forme de fichier .mdb ou .accdb ?

La réponse est dans la question 🙂 : parce que les formats des fichiers Access évoluent, et qu’il est difficile de fournir un fichier pour chaque version d’Access. L’approche retenue permet de livrer une version unique, compatible avec tous les Access du moment (au moins depuis 97 !).

Est-ce que je peux intégrer les modules et le formulaire directement dans ma base de données ?

C’est possible aussi, et ça marchera aussi bien…
Il y a quand même quelques petites choses à prendre en compte :

• Les inconvénients de gestion : si vous devez mettre à jour la bibliothèque, vous devrez remplacer manuellement les anciens modules VBA (et le formulaire SMTP) par les nouveaux. Et vous ne pourrez pas utiliser le module Outils pour cette opération (rappelons qu’il ne doit être utilisé que pour construire la bibliothèque « from scratch« ).
• La bibliothèque est sous licence LGPL. Tant qu’elle est liée à votre application, votre base Access n’est pas concernée. Par contre, si le code de la bibliothèque est intégré à votre base, celle-ci passe également sous licence LGPL. Consultez la licence pour plus de détails.

Support

Si vous avez des questions ou des problèmes avec libMail, vous pouvez…

• les poster sur ce blog, comme commentaires ;
• les poster sur le forum Access de self-access.com ;
• écrire directement à l’auteur (Denis), dont l’adresse figure dans la documentation.

Change Log