Evernote et VBA – Episode 6

Retour de la saga Evernote ! Simon, visiteur du blog, demande s’il est possible de créer une note avec des tags (mots-clefs), en VBA bien sûr. Hé oui, c’est possible, lisez la suite pour savoir comment faire !

Résumé des épisodes précédents

Tout ce qui suit dépend des articles précédents. Pensez à les consulter si vous passez pour la première fois par ici (vous aurez besoin du VBA présenté dans ces articles) :

• Evernote et VBA – Episode 1
• Evernote et VBA – Episode 2
• Evernote et VBA – Episode 3
• Evernote et VBA – Episode 4
• Evernote et VBA – Episode 5

Le code

Dans cet article, on va simplement créer des tags (pas de note). La méthode est finalement assez simple, ajoutez cette portion de code dans votre module de classe EvernoteClient :

Tester

Ajoutez également, dans un module standard cette fois, la procédure suivante, en remplaçant la chaîne strTags par vos propres mots-clefs, séparés par des virgules :

Exécutez ce bout de code, puis démarrez Evernote. Vos nouveaux tags devraient y figurer !

Compléments

• EDIT: Avant de créer un tag, on vérifie d’abord si celui-ci existe déjà. Le principe consiste à appeler la méthode GetTagByName(), qui renvoie un objet un objet enapiLib.Tag valide, si un tag existe déjà dans Evernote avec le nom fourni. La méthode renvoie Nothing dans le cas contraire.
• On peut ensuite invoquer la méthode CreateTag pour créer un tag.
• Cette méthode envoie un objet enapiLib.Tag. Lors de la création d’un tag, vous pourriez récupérer celui-ci pour le manipuler ultérieurement (ce qui n’a pas d’intérêt ici). Il faudrait remplacer la ligne ec.CreerTags plus haut de cette manière :

• L’objet Tag a d’autres méthodes et propriétés qui permettent de créer des « sous-tags » (SubTags) : il est possible de créer des tags imbriqués ou arborescents (comme vous le feriez manuellement dans Evernote).