Discussion :

[skins]

Bonjour,

J’ai un problème que je n’arrive pas à résoudre depuis quelques jours maintenant,
Je m’explique
Je travail sous Outlook 2000 , et j’aimerais créer une règle ou Macro qui me permettra de distingué les pièces jointe qui portent un nom X et les enregistrer automatiquement dans un dossier que j’ai crée sur mon poste de travail.
J’ai beau chercher dans plusieurs forum et on ma toujours réorienté vers celui ci

Merci de m’aider

[Dolphy35]

Bonjour et bienvenue sur le Forum Outlook

Je t'invite à consulter la FAQ Outlook :

Comment sauvegarder les pièces jointes d'un message sans ouvrir ce message ?
Comment enregistrer mes messages sur mon disque dur ?
Comment créer un script dans une règle d'arrivée d'un message ?

Je pense que tu devrais t'en sortir avec cela


Dolphy

[skins]

Bonjour

Un grand merci à vous
j'ai trouvé plusieurs cas de figure pour outlook 2003 mais pas pour le 2000.
cela peux fonctionné pour le 2000 aussi ?

[Oliv-]

Salut,
Certaines règles et événements n'existent pas sous O2000

[Totof43]

Bonjour,
J'ai utilisé la macro suivante:

Comment sauvegarder les pièces jointes d'un message sans ouvrir ce message ?

Et je l'ai modifiée/simplifiée pour l'utilisation dont j'ai besoin:

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
Sub Enregistrement_PieceJointe()
 
    'Declaration
    Dim myItem, PieceJointe As Object
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim myOlSel As Outlook.Selection
    Dim i As Integer
 
    On Error Resume Next
 
    'Actions sur les objets sélectionnés
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
 
    For Each myItem In myOlSel
        Set PieceJointe = myItem.Attachments
 
        If PieceJointe.Count > 0 Then
            FileName = "C:\Mes documents\WebCam\WebCamPic_" & Format(myItem.ReceivedTime, "yyyy_mm_dd  hh_mm_ss  ")
 
            For i = 1 To PieceJointe.Count
                PieceJointe(i).SaveAsFile FileName & i & ".jpg"
            Next i
 
        End If
 
    Next
 
    Set myItem = Nothing
    Set PieceJointe = Nothing
    Set myOlApp = Nothing
    Set myOlExp = Nothing
    Set myOlSel = Nothing
 
End Sub

J'utilise Outlook 2003.
Quand je lance cette macro sur une dizaine de message, tout fonctionne parfaitement.

Mais lorsque je lance la macro sur 400 messages (soit plus de 800 pièces jointes !), ça ne marche plus correctement:

La macro n'enregistre que 93 pièces jointes. Pas une de plus. A chaque fois 93...

J'ai exécuté la macro en pas à pas: tous se passe normalement. Au delà de 93 pièces jointes, la macro continue d'exécuter la commande "PieceJointe(i).SaveAsFile " mais plus rien ne se passe en réalité. La PJ n'est pas enregistrée.

Vous avez déjà rencontré ce problème??? Merci.

[Oliv-]

Bonjour,
Les nom des fichiers sont'ils identiques ?

si oui il faut géréer les doublons ce qui est presque fait dans ton code mais mail par mail regarde la partie "'Ici on vérifie que le fichier n'existe pas déjà sinon il serait écrasé"
http://outlook.developpez.com/faq/?p...#VBA_save_mail

[Totof43]

Oui, tous les noms de fichiers sont identiques.
Mais je renomme ces fichiers avec la date et l'heure de réception du message (secondes comprises), plus un numéro (i). Je ne reçois pas 2 e-mail durant la même seconde, donc pas de problème.
J'ai quand même fait un essai en rajoutant un deuxième numéro (incrémenté à chaque enregistrement). Le résultat est le même. J'obtient 93 fichiers numérotés de 1 à 93. Ensuite la macro continue, mais les fichiers numéro 94, 95... ne sont pas enregistrés.

J'ai fait un autre essai: Enregistrer 100 fois les pièces jointes d'un seul message (en rajoutant une boucle "For j=1 to 100"). Ca marche.
Par exemple, si j'exécute ça sur un message qui comporte 6 pièces jointes, j'obtient bien 600 fichiers.

Pour info, les fichiers que j'enregistre sont de petite taille: moins de 30 Ko.

[Oliv-]

Etrange ,
Essaye de vider tes fichiers temporaires dans
%temp%

passe Set PieceJointe = Nothing
avant le next

[Totof43]

Essaye de vider tes fichiers temporaires dans
%temp%

Tu veux dire C:\temp ? C'est déjà vide.

passe Set PieceJointe = Nothing
avant le next

Ca n'a rien changé.


Aujourd'hui ça enregistre 99 fichiers au lieu de 93!! Et avec exactement la même macro qu'au début et les mêmes messages.

J'ai fait plein de tests, et finalement j'ai trouvé que si je renomme des pièces jointes dans les messages de bases, j'arrive à enregistrer plus de 99 fichiers. (mes pièces jointes sont des images insérées dans le corps du message)
On dirait donc que Outlook n'arrive pas à mémoriser plus 99 fichiers qui portent le même nom.

Finalement, j'ai contourné le problème en sélectionnant les messages un par un:

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
Sub Enregistrement_PieceJointe()
 
    'Declaration
    Dim PieceJointe As Object
    Dim oMail As MailItem
    Dim myOlApp As Outlook.Application
    Dim myNamespace As NameSpace
    Dim i, j As Integer
 
    On Error Resume Next
 
    'Sélection du répertoire
    Set myOlApp = Outlook.Application
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
    Set myNewFolder = myFolder.Folders("IP Camera")
 
    For Each oMail In myNewFolder.Items
 
        Set PieceJointe = oMail.Attachments
        If PieceJointe.Count > 0 Then
 
            FileName = "C:\Mes documents\WebCam\WebCamPic_" & Format(oMail.ReceivedTime, "yyyy_mm_dd  hh_mm_ss  ")
            For i = 1 To PieceJointe.Count
                PieceJointe(i).SaveAsFile FileName & i & ".jpg"
            Next i
 
        End If
        oMail.Delete
 
    Next oMail
 
    Set oMail = Nothing
    Set PieceJointe = Nothing
    Set myOlApp = Nothing
    Set myNamespace = Nothing
    Set myFolder = Nothing
    Set myNewFolder = Nothing
 
End Sub

Merci pour ton aide Oliv-

[Oliv-]

Salut,
Non %TEMP% c'est à taper tel quel dans l'explorateur ca désigne
C:\Documents and Settings\TON PROFIL\Local Settings\Temp