Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail ?

kiki29

XLDnaute Barbatruc

• 4 Février 2011

• #2

Re : Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail

Salut,surement à adapter à ton contexte mais la réponse est là : Les meilleurs sources pour Excel - Club d'entraide des dveloppeurs francophones

 

Vote positif 0 Vote négatif

lebarbo

XLDnaute Occasionnel

• 4 Février 2011

• #3

Re : Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail

Merci kiki29 mais comment je peux faire pour que le code s'execute quand le mail arrive. J'ai essayé par une règle en executant un script mais je n'ai rien dans le champ script ?

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 4 Février 2011

• #4

Re : Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail

Salut,je précise que je n'utilise pas OutLook et donc ne te fournirais que qqs liens en espérant qu'ils te seront utiles, Voir Ce lien n'existe plus

 

Dernière édition: 4 Février 2011

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Février 2011

• #5

Re : Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail

Bonsoir à tous

lebarbo

mais comment je peux faire pour que le code s'execute quand le mail arrive.

Cliquez pour agrandir...

Il faut mettre ton code VBA dans : ThisOutlookSession (l'équivalent de ThisWorkBook pour Excel)

VB:

Private Sub Application_Startup()
' et ici ton code VBA de sauvegarde de ta pièce jointe
End Sub

 

Dernière édition: 4 Février 2011

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 4 Février 2011

• #6

Re : Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail

Salut,
T as cherché au niveau des regles et alertes sous OUTLOOK?

Suistrop

 

Vote positif 0 Vote négatif

lebarbo

XLDnaute Occasionnel

• 7 Février 2011

• #7

Re : Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail

Bonjour à tous,

Merci pour votre aide,
Je viens de trouver le code et ça fonctionne, par contre j'aimerais l'adapter en ajoutant dans ma règle que le mail doit venir d'un destinataire spécifique et que le sujet doit comporter le nom "Test Att" mais que cela fonctionne même si le nom fait partie d'un sujet plus long ex : "azerty Test Att qsddffgh".
Et je souhaiterais aussi modifier le fichier CSV, par exemple ajouter le chiffre 1 dans la cellule A2 de la feuille 1.

Merci d'avance,

Ci-dessous le lien et le code :

Description de la programmation à l'aide de règles Outlook

Dim WithEvents objInbox As Outlook.Items
Private Sub Application_Startup()
Set objInbox = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub objInbox_ItemAdd(ByVal Item As Object)
If Item.Class = olMail And Item.Subject = "Test Att" Then
If Item.Attachments.Count > 0 Then
Dim objAttachments As Outlook.Attachments
Set objAttachments = Item.Attachments
For Each objAttach In objAttachments
' Does not handle duplicate filename scenarios
objAttach.SaveAsFile "C:\Test\" & objAttach.FileName
Next
Set objAttachments = Nothing
End If
End If
End Sub

 

Dernière édition: 7 Février 2011

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Février 2011

• #8

Re : Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail

Bonjour à tous

Il est toujours intéressant (en tout cas c'est mon avis) de citer la source d'un code VBA.
Merci de l'avoir fait, lebarbo 😉

Et je souhaiterais aussi modifier le fichier CSV, par exemple ajouter le chiffre 1 dans la cellule A2 de la feuille 1.

Cliquez pour agrandir...

Un fichier CSV en tant que tel ne contient pas de cellules mais juste des données brutes séparées par une virgule (d'ou le nom de l'extension: CSV pour Comma-Separated Values)

Il faut donc voir du côté de Open (cf l'aide de VBA, touche F1)

 

Dernière édition: 8 Février 2011

Vote positif 0 Vote négatif

lebarbo

XLDnaute Occasionnel

• 8 Février 2011

• #9

Re : Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail

Bonjour,

Pour simplifier je peux enregistrer le fichier en .xls puis le modifier et le fermer en l'enregistrant à nouveau en CSV.
J'ai testé ce code (je donne la source ; ) que j'ai intégré dans ThisOutlookSession :

Excel

'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\MonFichierExcel.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)

Mais ça bug dès la première ligne :
Dim appExcel As Excel.Application 'Application Excel

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Février 2011

• #10

Re : Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail

Re

Il faut cocher dans VBE la référence à Microsoft Scripting Runtime pour éviter ce désagrément.
(ALT+F11 puis aller dans Outils/Références)

(ou écrire le code différemment)
Essaie de modifier ainsi

VB:

'Déclaration des variables
Dim appExcel 'As Excel.Application 'Application Excel
Dim wbExcel 'As Excel.Workbook 'Classeur Excel
Dim wsExcel 'As Excel.Worksheet 'Feuille Excel
'fin modifs

PS:: Pourquoi ne pas simplement utiliser l'assistant d'importation Texte d'Excel ° en VBA ??
°: voir exemple ci-dessous (c'est plus simple non ?)

Code:

Sub Macro1()
Workbooks.Open Filename:="C:\Temp\test.csv"
End Sub

 

Dernière édition: 8 Février 2011

Vote positif 0 Vote négatif

lebarbo

XLDnaute Occasionnel

• 9 Février 2011

• #11

Re : Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail

Re,
La case à cocher ne fonctionne pas mais la modif du code si, merci.
Sinon pour ton code et ouvrir le CSV comment je peux le traiter après en code VBA, je n'ai jamais fait ça 🙁
Pour te donner un exemple de ce que je dois faire sur ce fichier. C'est de supprimer toutes les lignes où je retrouve en 5ème position "CP".
Exemple :

bbbb;vvv;fbbf;gtgt;CP;gfgf (à supprimer)
bbbb;vvv;fbbf;gtgt;AA;gfgf (à conserver)
bbbb;vvv;fbbf;gtgt;AB;gfgf (à conserver)

Merci,

 

Vote positif 0 Vote négatif

lebarbo

XLDnaute Occasionnel

• 14 Février 2011

• #12

Re : Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail

Bonjour à tous,

petit up

 

Vote positif 0 Vote négatif

lebarbo

XLDnaute Occasionnel

• 21 Février 2011

• #13

Re : Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail

Bonjour,

Il n'y a personne pour m'aider à coder directement dans le fichier .csv ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Février 2011

• #14

Re : Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail

Bonjour


Le moteur de recherche du forum peut t'aider

Exemple:
Tu peux t'inspirer de ce code d' Hasco (que je salue au passage)
https://www.excel-downloads.com/threads/lecture-fichier-texte-delphi.154329/

Tu as été voir dans l'aide VBA comme je te le conseillais plus bas ?

 

Vote positif 0 Vote négatif