Discussion :

[afrodje]

Bonjour,

Etant donnée la politique d'Outlook en gardant les emails envoyés sur le serveur Exchange et non en les déplaçant dans le PST (comme pour Outlook 2003), j'utilise une macro qui déplace les mails dans le PST en sortant d'Outlook.

Cependant lorsque dans la boucle il y a un message de réponse à une réunion, celui plante.

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
36
37
38
39
40
41
Private Sub Application_Quit()
 
    ' 06/11/2014 - V1
    ' permet de déplacer tous les mails envoyés coté serveur,
    ' vers element envoyé coté client dans le PST
 
    ' variable
    Dim oMail As MailItem
    Dim myFolder As Folder
    Dim myOlApp As Outlook.Application
    Dim myNamespace As NameSpace
    Dim nom_BAL As String
    Dim rep_envoye_serveur_BAL As String
 
    ' ############# A changer #####################
    ' nom de la boite aux lettres serveur
    nom_BAL = "Boîte aux lettres - USERNAME"
 
    ' nom du repertoire "element envoyé" coté serveur.
    rep_envoye_serveur_BAL = "Éléments envoyés"
    '##############################
 
    ' #############################
    ' affectation
    Set myOlApp = Outlook.Application
    Set myNamespace = myOlApp.GetNamespace("MAPI")
 
    ' dossier de destination - Boite local
    Set myFolder_destination = myNamespace.GetDefaultFolder(olFolderSentMail)
 
    ' dossier source de la boite serveur Exchange
    Set myFolder_source = myNamespace.Folders(nom_BAL).Folders(rep_envoye_serveur_BAL).Items
    Dim myRestrictItems As Outlook.Items
    Set myRestrictItems = myFolder_source
 
    ' deplace le mail
    For Each oMail In myFolder_source
         oMail.Move myFolder_destination
    Next oMail
    '##############################################
End Sub

Message à la ligne For Each oMail In myFolder_source : Incompatibilité de type.

Question : Comment prendre en compte les mails de réponse au réunion? Ou comment justement prendre uniquement les emails ?
Question bonus : pourquoi la boucle s'arrête à chaque rupture (Aujourd'hui, hier, semaine dernière, le mois dernier,....) ?

Merci.

[Oliv-]

Bonjour,
C'est parce que tu partais du principe que tous les éléments contenus dans ton Dossier sont du même type (courrier).

Il faut juste vérifier avant le type

Code :

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

1
2
 ' on verifie que c'est un mail
    If Not Item.Class = olMail Then GoTo fin

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
36
37
38
39
40
41
42
43
44
Private Sub Application_Quit()
 
    ' 06/11/2014 - V1
    ' permet de déplacer tous les mails envoyés coté serveur,
    ' vers element envoyé coté client dans le PST
 
    ' variable
    Dim oMail As MailItem
Dim Item as object
    Dim myFolder As Folder
    Dim myOlApp As Outlook.Application
    Dim myNamespace As NameSpace
    Dim nom_BAL As String
    Dim rep_envoye_serveur_BAL As String
 
    ' ############# A changer #####################
    ' nom de la boite aux lettres serveur
    nom_BAL = "Boîte aux lettres - USERNAME"
 
    ' nom du repertoire "element envoyé" coté serveur.
    rep_envoye_serveur_BAL = "Éléments envoyés"
    '##############################
 
    ' #############################
    ' affectation
    Set myOlApp = Outlook.Application
    Set myNamespace = myOlApp.GetNamespace("MAPI")
 
    ' dossier de destination - Boite local
    Set myFolder_destination = myNamespace.GetDefaultFolder(olFolderSentMail)
 
    ' dossier source de la boite serveur Exchange
    Set myFolder_source = myNamespace.Folders(nom_BAL).Folders(rep_envoye_serveur_BAL).Items
    Dim myRestrictItems As Outlook.Items
    Set myRestrictItems = myFolder_source
 
    ' deplace le mail
    For Each Item In myFolder_source
  If Not Item.Class = olMail Then GoTo fin
Set OMail = Item
         oMail.Move myFolder_destination
    Next Item
    '##############################################
End Sub

Autre chose, il existe dans la config la possibilité d'utiliser un fichier cache (c'est presque comme un pst mais c'est un .ost)