Discussion :

[Myogtha]

Boujour,

Un personne de l'entreprise ou je suis souhaite enregister en format de message Outlook (enregister sous) mais si l'option marche sans problème pour un message c'est pas le cas pour plusieurs ou l'option n'existe plus,

y a t'il un moyen car elle a énormément de mail à ranger dans un dossier sous ce format là ?

Merci d'avanc

ps : Outlook 2003/Xp pro

[Dolphy35]

Salut,

c'est vrai que lorsque tu fais une sélection multiple tu n'as pas le chois du format de sauvegarde, en l'occurrence tu ne peux l'enregistrer qu'au format txt.

Pour réaliser une sauvegarde de tes messages au format msg, je te conseil le code d'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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Sub sav_mail_as_msg(Optional objCurrentMessage As Object)
'By Oliv' juillet 2007 pour OUTLOOK 2003
 
If objCurrentMessage Is Nothing Then Set objCurrentMessage = ActiveInspector.CurrentItem
 
'Ici on construit le nom du fichier qui sera créé
NomExport = objCurrentMessage.Subject & objCurrentMessage.CreationTime
 
'Ici on défini le répertoire où l'enregistrer
repertoire = "c:\mail\"
'repertoire = BrowseForFolder("Choisissez la destination", SDossier(5, 0)) & "\"
 
'Ici on supprime les caractères non autorisé dans les noms de fichiers
PathNomExport = repertoire & "Email " & Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace( _
NomExport, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), "<", ""), ">", ""), "|", ""), ".", ""), """", ""), vbTab, ""), Chr(7), ""), 160) & ".msg"
 
'Ici on vérifie que le fichier n'existe pas déjà sinon il serait écrasé
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
 
End Sub
 
Sub LanceSurOuvert()
sav_mail_as_msg
End Sub
 
 
Sub LanceSurSelection()
Dim MonOutlook As Outlook.Application
Dim LeMail As Object
Dim LesMails As Outlook.Selection
Set MonOutlook = Outlook.Application
 
Set LesMails = MonOutlook.ActiveExplorer.Selection
 
    For Each LeMail In LesMails
    sav_mail_as_msg LeMail
    Next LeMail
 
Set LesMails = Nothing
MsgBox "Fin de traitement"
End Sub

[Myogtha]

oky merci, je vais voir que faire avec ce code, je suppose qu'il faut que je créé une macro et que je copie/colle et test sur le dossier que je veux exporter
merci en tout cas

[Heureux-oli]

Si tu veux te passer de code, un simple glisser déposer suffit.
Tu affiches les deux fenêtres cote à cote et tu glisse de Outlook vers l'explorer.

Et le tour est joué.
Tu peux à l'aide des touches control et Maj en sélectionner plusieurs à la fois.

[Dolphy35]

Si tu veux te passer de code, un simple glisser déposer suffit.
Tu affiches les deux fenêtres cote à cote et tu glisse de Outlook vers l'explorer.

Et le tour est joué.
Tu peux à l'aide des touches control et Maj en sélectionner plusieurs à la fois.

C'est clair plus simple

[hélios44]

Salut,

c'est vrai que lorsque tu fais une sélection multiple tu n'as pas le chois du format de sauvegarde, en l'occurrence tu ne peux l'enregistrer qu'au format txt.

Pour réaliser une sauvegarde de tes messages au format msg, je te conseil le code d'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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Sub sav_mail_as_msg(Optional objCurrentMessage As Object)
'By Oliv' juillet 2007 pour OUTLOOK 2003
 
If objCurrentMessage Is Nothing Then Set objCurrentMessage = ActiveInspector.CurrentItem
 
'Ici on construit le nom du fichier qui sera créé
NomExport = objCurrentMessage.Subject & objCurrentMessage.CreationTime
 
'Ici on défini le répertoire où l'enregistrer
repertoire = "c:\mail\"
'repertoire = BrowseForFolder("Choisissez la destination", SDossier(5, 0)) & "\"
 
'Ici on supprime les caractères non autorisé dans les noms de fichiers
PathNomExport = repertoire & "Email " & Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace( _
NomExport, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), "<", ""), ">", ""), "|", ""), ".", ""), """", ""), vbTab, ""), Chr(7), ""), 160) & ".msg"
 
'Ici on vérifie que le fichier n'existe pas déjà sinon il serait écrasé
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
 
End Sub
 
Sub LanceSurOuvert()
sav_mail_as_msg
End Sub
 
 
Sub LanceSurSelection()
Dim MonOutlook As Outlook.Application
Dim LeMail As Object
Dim LesMails As Outlook.Selection
Set MonOutlook = Outlook.Application
 
Set LesMails = MonOutlook.ActiveExplorer.Selection
 
    For Each LeMail In LesMails
    sav_mail_as_msg LeMail
    Next LeMail
 
Set LesMails = Nothing
MsgBox "Fin de traitement"
End Sub

Bonjour,

Nous sommes sur Outlook 2003.
J'ai voulu faire un test en insérant un module puis en collant le code...et nada.
Qd je selectionne plusieurs messages, je n'ai que ".txt" comme possibilité d'extension.
Qu'ai je oublié à votre avis ?

Merci

[RiggsArt]

Si tu veux te passer de code, un simple glisser déposer suffit.
Tu affiches les deux fenêtres cote à cote et tu glisse de Outlook vers l'explorer.

Et le tour est joué.
Tu peux à l'aide des touches control et Maj en sélectionner plusieurs à la fois.

Mais bien sur... J'y avais jamais pensé ! Merci.