Discussion :

[itfashiongirl]

Bonjour,

Voilà je souhaite automatiser un mail outlook (j'ai réussi cette partie là j'ai l'habitude) mais pb vient du fait que j'ai besoin de joindre à ce mail une PJ qui se trouve dans un mail présent dans ma boite mail outlook. Je souhaitons savoir comment mettre en place une macro qui soit trouve la PJ dans le mail et le met dans mon nouveau, ou simplement une macro qui enregistre la pj dans un dossier.

Merci d'avance.8

[joe.levrai]

Bonjour,

un exemple illustré à complètement adapter à ton cas, et sécuriser si besoin

il faut enregistrer le fichier sur ton PC pour ensuite l'attacher à un mail

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
Sub erre()
Dim MonMail As MailItem, MaPj As Attachment, MonChemin As String
 
' le mail contenant la PJ
' pour l'exemple, je prend le premier mail de la selection active
Set MonMail = ActiveExplorer.Selection.item(1)
 
' si le mail contient des PJ
If MonMail.Attachments.Count > 0 Then
    ' on prend la première PJ (à adapter !)
    Set MaPj = MonMail.Attachments(1)
 
    ' on construit le chemin d'enregistrement
    MonChemin = "C:\....." & MaPj.FileName
 
    ' on enregistre la PJ
    MaPj.SaveAsFile MonChemin
 
    ' on crée un nouveau mail
    ' Remplacer Application par la variable Objet représentant ton instance Outlook !
    With Application.CreateItem(olMailItem)
        ' on attache la PJ
        .Attachments.Add MonChemin
 
        ' toujours enregistrer par précaution le mail après ajout d'une PJ
        .Save
 
        ' on affiche le mail
        .Display
    End With
 
    ' on supprime la PJ enregistrée temporairement
    Kill MonChemin
Else
    MsgBox "Aucune PJ dans ce mail !"
End If
 
End Sub

Attention, rédigé en liaison précoce, si tu travailles en liaison tardive il faudra déclarer tes variable Objet "As Object" et remplacer la constante OlMailItem par le chiffre 0

[Invité]

Bonsoir,
Je n'ai regardé mais il.doit être possible de transférer le mail en changeant ce qu'il faut la pièce jointe y reste!

De toutes les façon la.pièce jointe est encapsule dans le mail en base64!

Il.est peut-être,mais là je spécule encore plus, de passer la.pièce jointe directement à un niveau mail!

[joe.levrai]

En soit l'idée de recycler une copie du mail en modifiant les Objets/Corps/Recipents est pas mauvaise oui

Cependant, du point de vue des en-têtes du mail, c'est une autre histoire, puisqu'on va alimenter/reprendre (notamment) le Thread-Topic et Thread-Index du mail initial

C'est pour ça que je préfère repartir d'un mail vierge

[Invité]

Bonjour joe,

Je te fais confiance j'ai balancé une idée mais ta réponse tient la route.

[itfashiongirl]

merci pour le code, je dois faire des motifications sur la pj à enrengistrer et joindre le mail, faut il d'abbord l'enrengistrer puis faire les modifications, ou l'ouvrir faire le modifications puis l'enrengistrer

merci d'avance

[joe.levrai]

Bonjour,

quel est le type de fichier ? Quelles sont les modifications à apporter ?

Si c'est du fichier Excel (voir word) il est possible d'automatiser les modifications avant de l'attacher au nouveau mail

Mais il faut dans ce cas là expliquer un peu les choses

[itfashiongirl]

En effet c'est un fichier excel il y a juste un rajout de collone qui sont a remplir, une fois que le code a réussir à ouvrir la Pj cette partie la c'est bon pour moi. Je souhaitais juste savoir comment ouvrir la pj la modifier et l'enrengistrer

[itfashiongirl]

Bonjour,

J'ai une dernière question, je souhaitais savoir comment choisir la boite mail qui sera parcouru j'en ai deux et j'aimerais qu'une ne parcours qu'une seule sur les deux merci d'avance