Discussion :

[saturne06]

Bonjour,

Je suis nouveau sur ce Forum et je suis impressionné par tous les sujets traités et la qualité des intervenants.
J'ai regardé longuement si je pouvais trouver une réponse à mon besoin avant d'ouvrir cette nouvelle discussion.

Mon besoin depuis Outlook:
1/ Enregistrement automatique des Pièces Jointes d'un e-mail reçu

=> J'ai vu que cela est possible avec une macro VBA

2/ Automatisation de ces enregistrement

=> J'ai vu que cela est possible depuis une règle qui lance la macro

3/ Changer le nom de la pièce jointe depuis un fichier externe d'annuaire

=> Je n'ai pas trouvé comment faire

Détail du point 3:
Le fichier en attachement (c'est un message vocal) a le format suivant :
20160425161410863-00618546978-100_E_N.mp3

J'ai besoin de remplacer le 2ème champ qui est un numéro de téléphone par un nom.
Ce nom se trouve dans un fichier texte qui a le format suivant :

Numéro;nom

00618546978;Laurent Dupont
Ce fichier peut contenir de nombreuses lignes

J'ai donc besoin de stocker le fichier avec le format :

20160425161410863-Laurent Dupont-100_E_N.mp3
ou
20160425161410863-Laurent Dupont-00618546978-100_E_N.mp3

Je vous remercie d'avance pour vos réponses
Cordialement
Saturne06

[Oliv-]

Bonjour,

Tu peux regarder le code de ce post pour la partie EXPORT.

http://www.developpez.net/forums/d15...e/#post8612872

3/ Changer le nom de la pièce jointe depuis un fichier externe d'annuaire

la solution va dépendre de la fréquence de mise à jour de ce fichier annuaire ( est ce qu'entre 2 traitements le jour même cela change).
du nombre de lignes de ce fichier, et du nombre de Mails reçus à traiter.


Si l'annuaire change souvent ou s'il ne contient pas beaucoup de lignes, tu le charges à chaque fois
Dans les autres cas tu le charges la première fois et le laisse en mémoire pour les fois suivantes.

je te conseille cette lecture : http://warin.developpez.com/access/fichiers/#LII-B-1


L'utilisation d'un dictionnaire sera très bien. je te fais un exemple prochaienement

[Oliv-]

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
Public mondico As Object
 
 
Sub lecture_Annuaire()
    Dim intFic As Integer
    Dim strLigne As String
 
    Set mondico = CreateObject("Scripting.Dictionary")
    intFic = FreeFile
    Open "c:\temp\annuaire.txt" For Input As intFic
    While Not EOF(intFic)
        Line Input #intFic, strLigne
        Tablo = Split(strLigne, ";")
        If Not mondico.Exists(CStr(Tablo(0))) Then mondico.Add CStr(Tablo(0)), CStr(Tablo(1))
    Wend
    Close intFic
 
 
End Sub
 
 
Sub Cherche_Annuaire()
    If mondico Is Nothing Then
        lecture_Annuaire
    End If
    NomFichier = "20160425161410863-00618546978-100_E_N.mp3"
    Numero = Split(NomFichier, "-", , vbTextCompare)
 
    MsgBox "le numéro : " & Numero(1) & vbCr & "appartient à " & vbCr & mondico(Numero(1))
 
    NouveauNom = Replace(NomFichier, Numero(1), mondico(Numero(1)) & "-" & Numero(1))
    MsgBox NouveauNom, , "Nouveau nom de fichier"
End Sub

[saturne06]

Bonjour Oliv-

Je viens de prendre connaissance rapidement de tes 2 messages et je te dis d'avance un grand MERCI.
Je vais me plonger dans le code et les liens que tu as mis et je reviens vers toi.

Le fichier peut contenir plus de 600 lignes.
Les opérations de modification / suppression / ajout sont réduits, autour de 5 à 10 lignes par mois.

J'avais volontairement réduit les colonnes du fichier mais il se présente comme suit:

Index;Etiquette;Numero;Libre1;Libre2;Actif;Param1;Param2;Param3
8500;DUPONT ISABELLE;00689123456;;;oui;non;non;
8501;DURAND LOUIS;00622123456;;;oui;non;non;

Je suis à ta disposition
Cordialement
Saturne06