Discussion :

[gllme.srn]

Bonjour à tous.
Je suis sur Outlook 2007 et pour m’aider à traiter les tonnes de mails parfois inutiles que je reçois par jour j’essaye de faire une macro qui me force à classer les mails de la boite de récéption une fois lus.
Je m’explique.
Je voudrais que lorsque je lis un mail qui se trouve dans ma boite de récéption pour la 1ère fois, une boite de dialogue me permettant de choisir le dossier dans lequel il doit être classer apparaisse, et qu’ensuite à la fermeture du mail, ce mail y aille tout seul comme un grand.
J’ai bien trouvé un bout de code, qui fait en partie ce que je kui demande. Le problème est qu’en même temps qu’il classe le mail, ce dernier ne reste pas ouvert…


Public WithEvents AM As MailItem


Private Sub Application_ItemLoad(ByVal Item As Object)
If Item.Class <> olMail Then Exit Sub
Set AM = Item
End Sub

Private Sub AM_Open(Cancel As Boolean)
Dim objNSpace As NameSpace
Dim fldDestination As MAPIFolder
Set objNSpace = Application.GetNamespace("MAPI")
Set fldDestination = objNSpace.PickFolder
AM.Display

AM.Move fldDestination

End Sub

Est-ce que qq’un a une idée pour corriger ça ??
Merci d’avance.

[Oliv-]

Bonjour,
Tu aurais eu une réponse plus rapide en postant dans le sous forum outlook-vba
Ce code doit fonctionner (dans la boite de reception uniquement)
si tu fais annuler sur le choix du dossier cela ouvre juste le mail.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Public WithEvents AM As MailItem
Public StopEvent As Boolean
 
 
Private Sub Application_ItemLoad(ByVal Item As Object)
If Item.Class <> olMail Then Exit Sub
Set AM = Item
End Sub
 
 
 
Private Sub AM_Open(Cancel As Boolean)
    Dim objNSpace As NameSpace
    Dim NewAM
    Dim fldDestination As MAPIFolder
 
    If StopEvent Then Cancel = True
    Set objNSpace = Application.GetNamespace("MAPI")
 
    If Split(AM.Parent.FullFolderPath, "\", , vbTextCompare)(3) = "Boîte de réception" Then
        If AM.subject <> "" And AM.Sent Then
            Set fldDestination = objNSpace.PickFolder
            If Not fldDestination Is Nothing Then
                StopEvent = True
                Set NewAM = AM.Move(fldDestination)
                Cancel = True
                NewAM.Display
                StopEvent = False
            End If
        Else
            Set AM = Nothing
        End If
    End If
End Sub

[GUILOM]

bonjour,
je reviens sur ce fil. j'avoue ne jamais avoir vu la réponse précédente. je l'ai decouverte hier en faisant des recherches sur le même thème. donc avant tt merci d'avoir répondu.

la macro fonctionne plutot bien, même sous OL365.
j'ai voulu la modifier un peu pour que la macro se lance non pas au chargement du mail, mais à sa fermeture. j'ai simplement remplacer Private Sub AM_Open(Cancel As Boolean) par Private Sub AM_close(Cancel As Boolean)

mais ca marche pas
une idée peut etre ?

[Oliv-]

Salut,
As tu un message d'erreur ?

[GUILOM]

oui, la macro fonctionne jusqu'au choix du dossier puis m'affiche le message suivant :

[repu04]

Bonjour à tous,

Je relance un peu ce sujet qui m'intéresse beaucoup, je ne maîtrise pas du tout le VBA, quelqu'un pourrait-il me donner des indications sur les étapes à suivre pour activer cette macro sur office 365 ?
(ouverture de VBA alt+F11 je crois et me dire ensuite où ajouter ce code et de quelle manière le rendre actif ?)

MErci beaucoup
Cyril