Discussion :

[don_pets]

Bonjour à tous,

J'utilise la macro faite par Oliv (pardonne moi Oliv, je viens de t'écrire sous MP n'arrivant pas à créer une nouvelle discussion, en changeant de navigateur cela fonctionne nettement mieux) afin de sauvegarder les mails sous un environnement Windows.

Tout fonctionne à merveille pas de soucis la-dessus ! (D'ailleurs merci pour tout ces tutaux qui aident grandement !! Merci merci ^^)

J'ai simplement un problème existentiel avec les éléments envoyés, je m'exlique :

J'ai modifié le code d'Oliv afin de faire apparaître l'expéditeur - l'objet - et une date avec un format acceptable, le tout pointe sur un dossier que j'ai spécifié, ici tout baigne. La où ça coince, c'est lorsque je veux faire la même chose sur les éléments envoyés, en effet l'expéditeur c'est moi, et j'aimerais rajouter le destinataire afin d'avoir une meilleure lisibilité sur mon explorateur windows notamment quand je fais des recherches !

Voilà le code que j'utilise :

Code vb :

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
     If objCurrentMessage Is Nothing Then Set objCurrentMessage = ActiveInspector.CurrentItem
 
    Annee = Mid(objCurrentMessage.CreationTime, 7, 4)
    Mois = Mid(objCurrentMessage.CreationTime, 4, 2)
    Jour = Mid(objCurrentMessage.CreationTime, 1, 2)
    Heure = Mid(objCurrentMessage.CreationTime, 12, 5)
 
 
    NomExport = objCurrentMessage.SenderName & " - " & objCurrentMessage.Subject & " - " & Jour & "-" & Mois & "-" & Annee & " - " & Heure
 
 
    Repertoire = ("D:\Test_Mail\")
 
 
 
    PathNomExport = Repertoire & Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace( _
    NomExport, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), "<", ""), ">", ""), "|", ""), ".", ""), """", ""), vbTab, ""), Chr(7), ""), 160) & ".msg"
 
 
    n = 1
    MemPath = PathNomExport
    While Dir(PathNomExport) <> ""
        MsgBox "Le fichier " & vbCr & PathNomExport & vbCr & "existe déjà", vbInformation
        PathNomExport = Left(MemPath, Len(MemPath) - 4) & "(" & n & ")" & ".msg"
        n = n + 1
 
    Wend
    objCurrentMessage.SaveAs PathNomExport, OlSaveAsType.olMSG

J'aimerais pouvoir rajouter après l'expéditeur, le destinataire. Je pensais naïvement qu'en rajoutant quelque chose du genre objCurrentMessage.Recipients cela allait fonctionner mais non =__=

Par ailleurs, est- il possible de faire en sorte que l'on choisisse intiallement le répertoire de destination ?

J'ai vu partout du code avec

Code vb :

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

repertoire = BrowseForFolder("Choisissez la destination", SDossier(5, 0)) & "\"

Mais je n'ai pas réussit à le faire tourner,

Merci d'avance pour votre précieuse aide,

Pets

[Oliv-]

Bonjour,

Es tu bien parti de ce code là http://www.developpez.net/forums/blo...le-disque-msg/ ,il est plus complet que celui de la faq ?

Le destinataire, en fait n'est pas 1 destinataire mais une collections de destinataires que tu trouves dans les champs A: CC: ou CCI:

ensuite soit tu veux son nom ou son adresse Email ce sont 2 choses différentes.

Si tu veux juste les noms tu peux récupérer

Code :

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

objCurrentMessage.to

qui va te donner la liste des destinataires A: concaténés
ex

Nicolas; Charlotte

il faut ensuite s'assurer qu'on n'a pas de caractères interdits dans le nom de sauvegarde

[don_pets]

Bonjour Oliv,

Non je n'étais pas parti de ce code, je m'en veux un peu puisque j'avais le sentiment d'avoir démonté le forum et autres pages de developpez avant de poster ma demande, du coup j'étais parti de l'ancien code.

Je regarderai l'évolution après, puisque je viens d'essayer ta commande

Code vh :

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

 objCurrentMessage.to

et c'est exactement ce que je cherchais. **tain comme quoi parfois plus c'est simple moins tu le vois !!

Super merci,

je vais essayer de partir également avec le nouveau lien que tu m'as filé afin de voir ce que je peux en tirer, en tout cas merci pour tout !!