[OL-2007] Exporter avec le sujet comme nom de fichier [Résolu]

[dlewin]

Après avoir résolu
Automation: comment exporter un mail depuis un dossier spécifique ?

j'ouvre cet autre thread qui est en relation, mais avec un problème un peu différent.

En résumé: j'utilise le code de la FAQ pour exporter certains mails. TOut marche saufque le nom de fichier par défaut est inutilisable :

00000000D98C86CD726AFB41BE9D0CD8BA4C0DD30700B67160740FC7384CB62C185F4D0C947100001B31800F0000B67160740FC7384CB62C185F4D0C947100001B3196A10000.txt

il y a mieux, si j'en suis sur.

Alors j'ai tenté de changer

Code :

strName = myItem.EntryID

en

Code :

strName = myItem.Subject

mais
j'ai une erreur :

Outlook cannot complete the save due to a file permission error (c:\...\sujetmail1: Descrition

et l'erreur -2147467259

Alors que je peux écrire dans ce répertoire quand j'utilise ".EntryID"

PS: question subsidiaire plutôt que de refaire une passe à chaque fois quand la boucle for crée tous les fichiers, comment plutôt faire pour ne créer qu'un seul fichier (xml serait top) dans lequel l'export ne se fera que si le sujet du mail n'existe pas déjà ?

[carden752]

Bonjour,

Utilises la commande de remplacement des caractères interdit lors de la sauvegarde sur ton nom de fichier.

Code :

1
2
3
 'Ici on supprime les caractères non autorisé dans les noms de fichiers
    strname = Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace( _
    myItem.Subject, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), "<", ""), ">", ""), "|", ""), ".", ""), """", ""), vbTab, ""), Chr(7), ""), 160)

On ne prend que les 160 premiers caractères pour le nom car Windows limite à 255 caractères la longueur d'un nom de fichier en y incluant le chemin d'accès.

[dlewin]

ok effectivement c'était ça. Merci.

Par contre,en changeant le code comme suit ça ne sauvegarde pas en XMl mais reste au format txt..... est ce normal ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
 For Each myItem In myInbox.Items
        'strName = myItem.EntryID
        strName = myItem.Subject
        'Ici on supprime les caractères non autorisé dans les noms de fichiers
    strName = Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace( _
    myItem.Subject, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), "<", ""), ">", ""), "|", ""), ".", ""), """", ""), vbTab, ""), Chr(7), ""), 160)
 
 
        myItem.SaveAs "C:\Temp\pipo\" & strName & ".xml", olXML
        Set myItem = myItems.GetNext
    Next myItem