exporter sur le disque un fichier txt en PJ [Résolu]

[tordji]

Bonjour

je reçois chaque jour un email particulier avec une piece jointe en Txt.
Je souhaite récuperer ce fichier txt chaque jour en automatique sur mon disqu dur puis en creer une base sur access (ça, je sais).

On m'avait fait un macro sur Outlook pour automatiser une tache equivalente mais je l'ai perdu.
Comment faire SVP?
Je suis relativement debutant alors n'hesitez pas à etre explicite..;-))
Par avance, merci

[Dolphy35]

Bonjour et bienvenue sur le Forum

Je t'invite à consulter ce post http://www.developpez.net/forums/sho...ht=enregistrer

ainsi que la FAQ Comment sauvegarder les pièces jointes d'un message sans ouvrir ce message ?


Dolphy

[Oliv-]

Bonjour à tous,
A partir de Outlook 2003 on peut utiliser l'évenement newmailex ou un script sur une règle, si c'est toujours le même expéditeur ou même sujet c'est préféréable plutot que de tout mouliner à chaque fois.

Attention cependant lorsque l'on enregistre les PJ sur le disque il faut gérer la possibilité de doublons, dans un mail on peut ajouter 2 fois le même nom de fichier.

ex : c:\clients\toto\budget.xls et c:\clients\titi\budget.xls

Lorsque tu enregistres les PJ vers un disque le deuxième effacera le premier.

Ou alors le répertoire peut contenir déjà un fichier portant ce nom.

Code :

1
2
3
4
5
6
7
8
9
10
11
        'Ici on vérifie que le fichier n'existe pas déjà sinon il serait écrasé
                  'By oliv' 2008 04 08
        n = 1
        MemPath = objAtts(k).FileName
        PathNomExport = MemPath
        While Dir(Repertoire & PathNomExport) <> ""
            MsgBox "Le fichier " & vbCr & PathNomExport & vbCr & "existe déjà", vbInformation
            PathNomExport = "(" & n & ")" & MemPath
        n = n + 1
        Wend
        objAtts(k).SaveAsFile Repertoire & PathNomExport

[tordji]

Bonjour
et merci à vous 2.
Pour les script, je n'y accede pas.
Peut etre un blocage au niveau administrateur.

Dolphy 35, si je prends l'exemple vu sur ton 1er lien (mail de alain godard), cela me semble tout simple. Mais ou dois je ecrire le sujet du mail correspondant à l'action d'enregistrement de la pJ ?
J'ai vu ça :

Code :

1
2
3
4
5
For Each oMsg In oFolder.Items
    'With oMsg
     ' If .Subject = "runFND.csv" Then
       ' oMsg.Attachments.Item(1).SaveAsFile _
                '   "C:\PARTAGE\SUIVI_STOCK\stock1.csv"

L'objet du mail dans l'exemple est "runFND.csv" et il va attacher la PJ sur C:\Partage\stock... Es ce bien cela ?

Puis je faire :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Application_NewMail()
Dim MaDatabase As NameSpace, Folder As MAPIFolder, Mail As MailItem
 
Set MaDatabase = Application.GetNamespace("MAPI")
Set Folder = MaDatabase.GetDefaultFolder(olFolderInbox)
Set Mail = Folder.Items(Folder.Items.Count)
 
For Each Attachment In Mail.Attachments
 If .Subject = "runFND.csv" Then
       oMsg.Attachments.Item(1).SaveAsFile "C:\PARTAGE\SUIVI_STOCK\stock1.csv"
'
Next
 
End Sub

Merci bcp pour votre aide.
cdt
Tordji

[Oliv-]

Envoyé par tordji

Pour les script, je n'y accede pas.

C'est à dire ? Quelle est ta version ?
ici un exemple :http://outlook.developpez.com/faq/?p...A#Script_Regle

Envoyé par tordji

C:\Partage\stock... Es ce bien cela ?

Oui c'est à peu près cela

Envoyé par tordji

Puis je faire :

Tordji

Non pas ca il manque trop de choses, mais répond déjà à mes questions

[tordji]

Bien
je viens de creer un script tel que decrit dans la FAQ en spécifiant le nom de l'expéditeur, l'objet du mail et je l'ai placé dans this outlooksession.
Ma version outlook 2003.
Pour C:\Partage\stock c'est l'adresse sur laquelle je souhaite enregistrer le fichier.
ET MAINTENANT.....

c'est trop sympa de m'aider.

[Oliv-]

bin il faut mixer tout cela :

Donc dans la regle on veirifie l'expediteur et le sujet ,... ok ?

Dans le script :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Script_Regle(Mail As MailItem)
Repertoire = "C:\PARTAGE\SUIVI_STOCK\"
on error resume next
For each PJ IN mail.attachments
 
       'Ici on vérifie que le fichier n'existe pas déjà sinon il serait écrasé
                  'By oliv' 2008 04 08
        n = 1
        MemPath = PJ.FileName
        PathNomExport = MemPath
        While Dir(Repertoire & PathNomExport) <> ""
            MsgBox "Le fichier " & vbCr & PathNomExport & vbCr & "existe déjà", vbInformation
            PathNomExport = "(" & n & ")" & MemPath
        n = n + 1
        Wend
        PJ.SaveAsFile Repertoire & PathNomExport
 
next PJ
 
End Sub

J'ai pas testé est ce ok ?

Pour tester il faut s'envoyer un mail répondant à la règle ou alors utiliser un mail déjà reçu et lancer

Code :

1
2
3
4
5
Sub test_script()
Dim Oitem As Outlook.MailItem
Set Oitem = ActiveInspector.CurrentItem
Script_Regle Oitem
End Sub

[tordji]

Ca marche trés bien.
allez une derniere chose. si je veux que le fichier soit ecrasé à chaque fois, j'enleve quoi ?
MErci pour ton aide précieuse.
cdt
Didier

[Oliv-]

Salut,

si je veux que le fichier soit ecrasé à chaque fois

La section while...wend

[tordji]

Tout fonctionn.
Merci de ton aide. Ca me rend un immense service.
cdt
Didier