Discussion :

[Chamann]

Bonjour, je suis tout à fait novice en développement et après avoir parcouru quelques forums j'ai réussi à trouver comment faire fonctionner une macro.
Sauf que celle ci ne répond pas totalement à mes attentes.
je suis certains que l'un d'entre vous pourra me dépanner en 1 minute

Problème :
Sous Outlook 2007, je souhaiterais avoir une macro qui permettent d'enregistrer toutes les pièces jointes d'une sélection de mail puis de supprimer ces mails.

J'ai trouvé cette macro qui fonctionne bien, sauf qu'elle supprime les pièces jointes au lieu du mail et rajoute un texte dans le corps du mail.

Sub SaveAttachment()

'Declaration
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

'Boîte de dialogue simple pour le chemin de sauvegarde
myOrt = InputBox("Destination", "Save Attachments", "C:\CdeDELL\Facture\")

On Error Resume Next

'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
If myAttachments.Count > 0 Then
'Ajoute une remarque dans le corps du message
myItem.Body = myItem.Body & vbCrLf & _
"pièce jointe enlevée:" & vbCrLf

'for all attachments do...
For i = 1 To myAttachments.Count

'save them to destination
myAttachments(i).SaveAsFile myOrt & _
myAttachments(i).DisplayName
myItem.Body = myItem.Body & _
"File: " & myOrt & _
myAttachments(i).DisplayName & vbCrLf

Next i

'Enlève les pièces jointes du message
While myAttachments.Count > 0

myAttachments(1).Delete

Wend

'Sauvegarde le message sans ses pièces jointes
myItem.Save
End If

Next

Set myItems = Nothing
Set myItem = Nothing
Set myAttachments = Nothing
Set myAttachment = Nothing
Set myOlApp = Nothing
Set myOlExp = Nothing
Set myOlSel = Nothing

End Sub

[carden752]

Bonjour,

Pour supprimer le message, il suffit d'utiliser

Code :

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

myItem.Delete

à la place de myItem.save (qui sauvegarde le message)

[Chamann]

Merci Christophe

Maintenant, j'aimerai savoir s'il est possible d'effectuer dans cette macro une autre opération :

En gros, ce sont des factures que je vais recevoir par email.
les fichier PDF ont pour nom de facture le N° de la facture.
J'aimerai pouvoir enregistrer ces facture en rajoutant devant ce numéro de facture, mon numéro de bon de commande...
ce numéro de bon de commande est donné dans le corps du mail.
- Le corps du mail est toujours identique, sauf pour ces variables.

Disons que dans le corps du mail j'ai toujours une ligne :
Bon de commande 0006990X00007
Où bien évidement, le numéro de bon de commande change.

j'aimerai pouvoir faire en sorte que le nom de fichier enregistré soit :
"0006990X00007 - Nom du fichier initial.pdf


Est-ce possible?

merci d'avance