Bonjour à tous,
Dans le cadre d'une migration d'appli sous access 7 vers access 2016, j'avais un bout de code qui s'exécutait lors d'un clic sur un bouton de la barre d'outils Accès rapide d'une fiche contact de Outlook 2007: ce code exportait le contact courant vers ma base de données access.
Après migration vers office 2016 la barre d'outils en question a disparu et bien que je puisse ajouter mes macros vba sur l'interface d'outlook, le code plante car on ne part plus d'un contact ouvert désigné dans ce même code par la commande ActiveInspector:
... et j'obtiens invariablement le message "Aucun élément Outlook n'est ouvert".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Set objInspector = Application.ActiveInspector If TypeName(VarName:=objInspector) = "Nothing" Then MsgBox Prompt:="Aucun élément Outlook n'est ouvert." Exit Sub Else Set objContact = Application.ActiveInspector.CurrentItem Call CreeContact(objContact) Call Wishes(objContact) End If
Comment trouver une solution de contournement ?
Ou, idéalement comment appeler ma macro depuis la fiche contact?
Je vous remercie par avance, cordialement
Partager