Outlook Outlook: code VBA

[Dudu2]

Bonjour,
Quelqu'un a-t-il l'expérience d'un développement de Macro VBA sous Outlook ?
Le besoin est le suivant:
- Sur l'évènement clic d'un mail, proposer une liste de dossiers et choisir celui dans lequel le mail sera classé.
Facile à dire mais peut-être pas facile à faire !

 

[Staple1600]

Bonsoir @Dudu2

Me semble avoir vu ce type de procédure sur le web anglophone.

Mais l'ai-je intégré des archives Outook VBA ?

Faut que je regarde

EDITION : Tu parles de dossiers créés dans Outlook ou des dossiers (répertoires) sur le disque dur ?

 

[TooFatBoy]

Bonjour,

Sur l'évènement clic d'un mail

Ça se réalise comment concrètement ?

 

[Compte Supprimé 979]

Bonjour Dudu2,

Pourquoi ne pas créer une action rapide pour chaque dossier souhaité

A+

 

[Staple1600]

Re, Bonsoir @TooFatBoy , @BrunoM45

Ou avec une règle avec du VBA dedans ?

PS: Mon Outlook 365 parle plus difficilement le VBA que mon Outlook 2010 ou 2019

 

[Dudu2]

Ma demande est en fait le relais d'une question d'une connaissance qui avait sous Office 2013 une sorte de complément (il y a un fichier CAB avec des images gif et des dll et un Setup.exe) dont je ne comprends pas le rôle qui ne fonctionne plus sous Office 2016.
Donc j'essaie de voir si un développement VBA pourrait couvrir des fonctions de ce "complément" dont celle énoncée. Mais je ne comprends pas les compléments Outlook qui semblent tous être des .dll.
Bref c'est l'inconnu total.

 

[Staple1600]

Re

@Dudu2
Tu n'as répondu à ma question sur le type de dossier (cf message#2)
Dossier Outlook ou dossier dans Windows ?

 

[mromain]

Bonsoir le forum,

Peut-être avec la macro ci-dessous (s'il s'agit d'un dossier Outlook).
Elle ouvre une boite de dialogue de sélection de dossier pour déplacer le mail sélectionné/ouvert.

Public Sub MoveMail()
Dim l_o_curMail    As Outlook.MailItem
Dim l_o_destFold   As Outlook.Folder
  
    On Error Resume Next
    Set l_o_curMail = Application.ActiveInspector.CurrentItem
    On Error GoTo 0
  
    If Not l_o_curMail Is Nothing Then
        Set l_o_destFold = Session.PickFolder()
        If Not l_o_destFold Is Nothing Then l_o_curMail.Move l_o_destFold
    End If
End Sub

Il suffit de la rajouter au projet VBA.
Il est ensuite possible de l'ajouter à la barre d'outil accès rapide pour pouvoir l'appeler en un clic.

A+

 

[Staple1600]

Bonsoir @mromain

Est-ce que ton code peut fonctionner sur un mail se trouvant dans Brouillon ?

Je viens de tester sur Office 365, (en retirant la gestion d'erreur), j'ai une Erreur 91

 

[mromain]

Bonsoir JM,

Je viens de faire le test depuis un mail se trouvant dans les brouillons et je n'ai pas rencontré de souci.
Je suis également sur Office 365 (32 bits).

A+

 

[Dudu2]

@Staple1600
Dossier Outlook ou dossier dans Windows ? Outlook.

 

[Staple1600]

Re

@mromain
VBE me dit:
l_o_curMail = Nothing

Serait-ce lié au fait que lors de ma première ouverture d'Outlook, j'ai coché Utiliser Outlook sans compte mail ?

J'ai mis ton code dans un module
(les références sont cochées)
Je sélectionne le mail dans les brouillons et lance ta macro

PS: Je me sers d'Outlok de cette façon pour tester le VBA si besoin

 

[Dudu2]

@mromain,
Merci pour ton code.
Saurais-tu l'évènement qui concerne l'ouverture d'un mail pour y placer le code ?
P.S. De bonnes infos ici https://dolphy35.developpez.com/article/outlook/vba/

 

[Dudu2]

Autre question...
Comment je fais pour transformer le code VBA en Complément Outlook.
Pour un Complément Excel, je sais. Mais Outlook...?

 

[Staple1600]

Re

@mromain
Correction
Cela fonctionne si j'ouvre le mail
Mais si il est simplement sélectionné
C'est ceci qui m'a induit "en erreur"

déplacer le mail sélectionné/ouvert.

Quand je ne fais que sélectionner le mail dans Brouillons => erreur