Discussion :

[MonSavon]

Hello,

Alors voilà, je cherche à la réception d'un mail spécifique à enregistrer le mail exactement comme si je faisais un drag & drop vers mon folder (ex: "C:\Users\MonSavon\Documents\Test"), en plus des PJ. En ce qui concerne les PJ: pas de soucis, sauvegarder le mail (dans une macro à part), pas de soucis, mais les 2 dans la même macro : cela ne marche pas, sans message d'erreur.

Dans mon code si dessous, je cherche à sauvegarde le mail si celui ci vient de mike, et sauvegarder les PJ en gérant mes folders.
Si je laisse le code comme ça, cela ne marche pas. Si je met en commentaire la LIGNE BUG, cela marche sans soucis. Il doit y avoir quelque chose que je ne comprend pas!

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
 
Sub SaveAttachement(Item As Outlook.MailItem)
        Dim TabPath(2) As String, SavePath As String
        Set attachs = Item.Attachments
 
 
        TabPath(0) = "\\toto\"
        TabPath(1) = "\\tata\"
 
        'Tableau de direction des PJ____________________________________________
        If (Item.Sender = "jordran@live.com") Then
            SavePath = TabPath(0)
        ElseIf (Item.Sender = "mike@live.com") Then
            SavePath = TabPath(1)
            Item.SaveAs TabPath(1) & Item.Subject & ".msg", OlSaveAsType.olMSG 'LIGNE BUG
        End If
        '_______________________________________________________________________
        
        For Each attach In attachs
            file = attach.FileName
            attach.SaveAsFile SavePath & file
        Next
End Sub

Quelqu'un aurait-il une idée ?

Merci d'avance à tous !

[Jean-Philippe André]

Salut,

le code de depart ne me semble pas a priori foireux, quel est exactement le message d'erreur stp ?

https://msdn.microsoft.com/fr-fr/lib.../ff868727.aspx

[MonSavon]

Hello!

Merci de ta réponse.

Et bien je n'ai aucune erreur, c'est bien ça qui est curieux.
Et j'ai mis la ligne SaveAs dans une macro à part exemple :

Code :

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

1
2
3
4
5
 
Sub SaveMail(Item As Outlook.MailItem)
 
            Item.SaveAs TabPath(1) & Item.Subject & ".msg", OlSaveAsType.olMSG 'LIGNE BUG
End Sub

et ça marche... (avec les params définit dans la sub)

Je vais essayer d'appeler la macro SaveMail dans la SaveAttachement.

On va voir.

Bonne journée

[MonSavon]

Allez comprendre pourquoi, mon nouveau code marche, j'ai planqué le SaveAs du mail dans une seconde macro que j'appelle et ça marche....

L'informatik cey magik

Si ça sert à quelqu'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
 
 
Option Base 0
 
Sub SaveAttachement(Item As Outlook.MailItem)
        Dim TabPath(2) As String, SavePath As String
        Set attachs = Item.Attachments
 
 
        TabPath(0) = "\\toto\"
 
        TabPath(1) = "\\tata\"
 
        'Tableau de direction des PJ____________________________________________
        If (Item.Sender = "labretagnecavousgagne@finistere.bzh") Then
            SavePath = TabPath(0)
        ElseIf (Item.Sender = "ilnepleutjamais@finistere.bzh") Then
            SavePath = TabPath(1)
            Call SaveMyMail(Item, TabPath(1))
        End If
        '_______________________________________________________________________
        
        For Each attach In attachs
            file = attach.FileName
            attach.SaveAsFile SavePath & file
        Next
End Sub
 
 
 
Sub SaveMyMail(MyMail As Outlook.MailItem, SavePath As String)
    Dim Sujet As String
    Sujet = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(MyMail.Subject, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), "<", ""), ">", ""), "|", ""), ".", ""), """", ""), vbTab, ""), Chr(7), "")
    MyMail.SaveAs SavePath & Sujet & ".msg", OlSaveAsType.olMSG
End Sub

Kenavo !