Discussion :

[clema91]

Bonjour à tous,

Ne gérant pas très bien le VBA sur Outlook, j'aimerais faire appel à vous (= les gens qui gère VBA sur Outlook ) pour réaliser une ou plusieurs macro me facilitant et/ou forçant la tâche pour ranger mes mails.

Deux cas possibles :

le premier cas
- Lors de la réception d'un mail : je souhaiterais que lorsque j'ouvre un mail qui se situe dans la boite de réception ( et seulement dans la boite de réception), il ouvre la boite de dialogue "déplacer vers un autre dossier" que l'on obtient habituellement en appuyant ici :

et qui nous affiche cela :


De cette façon VBA me force la main pour que je classe mes mails.

le deuxième cas
- Lors de la création d'un mail, je souhaiterais que dans l'objet j'ai une liste déroulante de tous les noms d'un de mes sous-dossiers intitulé "affaire" pour que je puisse sélectionner une affaire afin que le début de l'objet soit le nom de l'affaire suivi d'un texte. Ensuite lors de l'envoie j'aimerais la même chose qu'avec la réception d'un mail, à la seul différence que si l'objet comporte au début le nom d'une affaire alors la macro le range automatiquement dans le sous dossier correspondant plutôt que d'ouvrir la fenêtre pour classer le mail.

Je maitrise les bases du VBA sur Excel mais sur Outlook je suis perdu, c'est pour cela que je vous demande votre aide afin de m’orienter ou m’accompagner pour faire ceci.

Je vous remercie par avance

[Oliv-]

Bonjour,
C'est une demande assez complexe à mettre en oeuvre quand même

Pour le réception voir ici : https://www.developpez.net/forums/d1...e/#post8022029

Pour l'envoi :

c'est l'évenement application.item_send

https://www.developpez.net/forums/bl...t-automatique/


Pour l'objet tu ne pourras pas avoir une liste dedans, mais tu peux afficher une liste et selectionner une ligne qui viendra changer le sujet :

dans un userform avec un listbox et un commandbutton

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
 
Private Sub CommandButton1_Click()
Sujet = Me.ListBox1
MsgBox Sujet
End Sub
 
Private Sub UserForm_Initialize()
Dim inbox As Outlook.Folder
 
Set inbox = Application.Session.GetDefaultFolder(olFolderInbox)
 
For i = 1 To inbox.Folders.Count
 
Me.ListBox1.AddItem (inbox.Folders(i).Name)
 
Next i
 
 
End Sub

[clema91]

Merci pour les pistes ça m'aide bien.
Je travail dessus et j'ai quelques questions :

- Comment lancer un Userform lorsque je clic pour avoir mon curseur dans "objet" de mon mail créer.
- Peux t on faire pour qu'il classe les mails reçus une fois la fermeture du mail, car quand on ouvre le mail, il le classe après avoir choisit la destination et il le referme aussi tôt.

Merci

[Oliv-]

Bjr
Pour le classement au lieu d utiliser l evenement AM_Open utilise AM_close
https://msdn.microsoft.com/fr-fr/lib.../ff860308.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff861252.aspx

[clema91]

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
Private Sub AM_close(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

Ci-dessus le code, en revanche il s'arrete sur le ligne

Code :

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

  Set NewAM = AM.Move(fldDestination)

et me dis que je ne peux pas utiliser cette procédure dans cet événement.

Comment contourner ceci.

[clema91]

Pour ce qui est du lancement du Userform lors d'un changement de l'objet,
Je cherche avec le moyen :

Code :

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

Private Sub AM_PropertyChange(subject)

Ou quelque chose dans ce genre mais je aboutie a rien ...