Discussion :

[max60fr]

Bonjour,

N'étant qu'un "amateur" VBA , j'avance à petits pas grâce à ce forum et n'arrive pas depuis quelques jours à résoudre mon erreur 13.

Ci-dessous mes élucubrations sensées , a partir d'un mail sélectionné :

• Tester l'expéditeur du mail
• S'il est connu rechercher son repertoire de destination
• s'il à une pièce jointe rechercher son dossier de destination sur le DD
• et : inscrire sur le corps du mail le chemin de sauvegarde DD
• et : sauvegarder la pièce jointe
• et : effacer du mail la PJ
• puis enfin , déplacer le mail dans le dossier prévu

C'est à ce moment que mon soucis intervient.
Autant je peux utiliser myItem.Body et myItem.Save sans soucis , autant la commande myItem.move est impossible telle que je l'écrit...

Ou ai-je fait "la boulette" ??

Merci beaucoup.

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Sub Principal()
 
 
'Declarations
    Dim myItems, myItem, myAttachments, myAttachment As Object
    Dim myOrt As String
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim myOlSel As Outlook.Selection
    Dim i As Integer
 
 
 
    'Actions sur les objets sélectionnés
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
 
    'boucle
    For Each myItem In myOlSel
        Set myAttachments = myItem.Attachments
 
 
        'Test si expéditeur connu et determine les dossiers de stockage
        '
        'Test si Free
        expMail = myItem.SenderEmailAddress
        If expMail = "freemobile@free-mobile.fr" Then codTrait = "Free" Else
 
        'Test si créditAgricole
        If expMail = "ca.enligne@ca-normandie-seine.fr" Then
            codTrait = "CA"
 
 
        End If
 
        'Traitement Mail pointé  (Pour récup dossiers de destination rangement PJ et Mail)
        TraitMail codTrait, dosRgmtMail, dosRgmtPJ
 
 
        'Vérifie présence fichier attaché (PJ) au mail
        If myAttachments.Count > 0 Then
            'Nom de la Piece Jointe
            PJ = myAttachments(1).Filename
            'Pour toutes les PJ
            For i = 1 To myAttachments.Count
                'Sauve la PJ dans un repertoire disque
                myAttachments(i).SaveAsFile dosRgmtPJ & myAttachments(i).Filename
                'Ajoute le chemin du dossier de sauv. en bas du mail
                myItem.Body = myItem.Body & vbCrLf & vbCrLf & "======" & vbCrLf & "Fichier Sauvegardé dans :  " & _
                              dosRgmtPJ & myAttachments(i).DisplayName & vbCrLf & "======="
                'Supprime la PJ attachée
                myAttachments(i).Delete
                'Sauvegarde le mail sans ses pièces jointes
                myItem.Body = myItem.Body & vbCrLf & vbCrLf & "======"
                myItem.Save
 
            Next
        End If
 
        'Déplace le Mail dans le dossier approprié
        myItem.Move dosRgmtMail    '<==  BOULETTE !
        'Dim aa As Object
        'aa = myItem
        'aa.Move dosRgmtMail
 
 
    Next
 
 
 
 
 
 
End Sub

[Oliv-]

Bonsoir,
Quelle est la déclaration pour dosRgmtMail ?

ca doit être un objet "OUTLOOK.FOLDER" pas un STRING

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
Sub MoveItems()
    Dim myNameSpace As Outlook.NameSpace
    Dim myInbox As Outlook.Folder
    Dim myDestFolder As Outlook.Folder
    Dim myItems As Outlook.Items
    Dim myItem As Object

    Set myNameSpace = Application.GetNamespace("MAPI")
    Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set myItems = myInbox.Items
    Set myDestFolder = myInbox.Folders("Personal Mail")
    Set myItem = myItems.Find("[SenderName] = 'Dan Wilson'")
    While TypeName(myItem) <> "Nothing"
        myItem.Move myDestFolder
        Set myItem = myItems.FindNext
    Wend
End Sub

[max60fr]

Bonsoir ,

Merci pour votre réponse rapide.

Effectivement dosRgmtMail n'est pas déclaré correctement..

Mais aussi en corrigeant , je patauge joyeusement en essayant de trouver le moyen d'affecter le dossier existant ("ordre de virement") remonté depuis dosRgmtMail , sachant que "ordre de virement" est placé comme suit : "Dossier Boîte de réception\Dossiers du 9 Avril 2007\Banques\Ordre de Virement". (Voir Image jointe)


Tout ceci n'est pas encore très clair dans ma tête malgré les # essais avec .parent , .item , etc...

Sos..
Cdlt.

[Oliv-]

Bonjour,
c'est plus simple si tu plublis l'ensemble de ton code

pour trouver la bonne "adresse" du path lance cette macro après avoir ouvert un Email se trouvant dans ce dossier

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub go_OU()
If ActiveInspector.CurrentItem.Class = olMail Then
    Dim OITEM As Outlook.MailItem
    Set OITEM = ActiveInspector.CurrentItem
    MsgBox "Cet Email est classé dans " & vbCr & OITEM.Parent.FullFolderPath, vbOKOnly, "Où est -il classé ?"
debug.print  OITEM.Parent.FullFolderPath
    Set OITEM = Nothing
End If
 
End Sub

[max60fr]

Merci encore pour votre aide pertinente.

Je suis parvenu à terminer mon projet aussi grâce à vous..

Cordialement.

Je passe à résolu.