Discussion :

[zooffy]

Bonjour à tous.

Je bloque sur un point (qui doit être juste un detail, j'espère) pour extraire les pieces jointes d'un mail.
J'ai trouvé un beau topic ici : https://www.developpez.net/forums/d1...s-sauvegarder/
Mais ce topic explique comment extraire les pièce jointes vers des fichiers extérieur.
Mon détail qui change c'est que je voudrais les extraire dans un Folder de OutLook et je trouv pas la method ou la function qui permet de faire cela.
Voici mon code actuel :

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
Dim olMail As MailItem
Dim myItems As Outlook.Items
  
'Préparation des répertoires dans OutLook
Set olNs = outlookApp.GetNamespace("MAPI")
Set myItems = Fldr.Items
While myItems.Count <> 0
    Set olMail = myItems.GetFirst
    Dim pj As Outlook.Attachment

    If olMail.Attachments.Count <> 0 Then
        For Each pj In olMail.Attachments
            pj.
        Next
    End If

    Set myItems = Fldr.Items
Wend
MsgBox "Fin de traitement"

L'autocomplémtion en me donne aps de chose que je comprenne sur la ligne en vert. C'est là que je bloque.
Mais peut-être que je m'y prends mal.

Pourriez-vous m'aider ?

[Jean-Philippe André]

Salut,

tu veux bouger le mail dans un dossier Outlook ?

https://outlook.developpez.com/faq/?...eceive_Save_PJ
avec plus particulierement les lignes de code

Code :

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

1
2
3
4
Dim myDestFolder As Outlook.MAPIFolder
 
        Set myDestFolder = MyMail.Parent.Folders("test")
        MyMail.Move myDestFolder

[zooffy]

Merci pour ton aide.

Aucun souci pour les bouger eentre diférnets folder.
Ce que je voudrais c'est détacher les mails attachés dans un autre mail et le poser dans un folder OutLook. Le lien que j'ai mis part du principe que l'attachment est un fichier autre (Word, Excel, Powerpoint, etc...) et je ne trouve pas le moyen de mettre en destination de l'attachment un Folder OutLook.

Suis je plus clair ?

[Jean-Philippe André]

Pas vraiment

je pense que c'est une histoire de vocabulaire.

un folder Outlook, pour moi c'est un dossier dans l'interface Outlook. Pour toi c'est aussi cela ou bien c'est un dossier sur un disque reseau ?

un dossier outlook ne contient que des mails, pas (a ma connaissance) de piece jointe seule (genre une liste de fichiers)

[zooffy]

Merci pour ton aide.

Oui, un Folder OutLook c'est bien un dossier dans l'arborescence de OutLook.
Et justement, ce sont des mails que je veux mettre dedans. Ces mails sont transmis en pièce jointe dans un mail. Je veux donc ouvrir ce mail et detacher les pieces jointes qui sont des mails, dans un Folder OutLook

Sauf que je trouve pas le moyen de le faire.

[Jean-Philippe André]

D'accord

Je ne savais pas qu'on etait dans un cas d'emailception


L'idee est la suivante :
1- tu detectes la piece jointe
2- tu fais un test pour verifier que c'est bien un email (non fait dans mon exemple)
3- tu enregistres le mail au format .msg
4- tu crees un mail a partir du fichier msg
5- tu importes et deplaces le mail ou tu veux
6- tu nettoies le dossier

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
Sub piou()
Dim oMail As MailItem
Dim oAttach As Attachment
Set oMail = ActiveExplorer.Selection.Item(1) ' ici ton mail a ta sauce
Set oAttach = oMail.Attachments(1)
Dim strTempPath as String
strTempPath = "C:\temp\temp.msg"
oAttach.SaveAsFile strTempPath 
Set olNewMail = Application.CreateItemFromTemplate(strTempPath)
On Error GoTo 0
' ...and olnewmail will not be an object...
If olNewMail Is Nothing Then
'cas si plantage
Else
olNewMail.UnRead = True
olNewMail.Save
olNewMail.Move Application.Session.GetDefaultFolder(olFolderInbox)
End If
'suppression fichier temp
Kill strTempPath 
End Sub

[zooffy]

Merci pour ton aide.

Très bon le coup de la "emailception", je me suis bien marré, j'adore.

Je vais implémenté ce code et voir ce que cela donne.