Se connecter avec
S'enregistrer | Connectez-vous
Votre question
Fermé

[Résolu] Outlook enregistrer sous [format]

Tags :
  • Microsoft Outlook
  • format
  • Windows
  • Email
Dernière réponse : dans Logiciels
Partagez
8 Février 2013 12:55:38

Salut,

Je désir changer le format d'enregistrement par défaut de Outook et avoir ce format par défaut "Format de message Outlook"

Avez-vous une idée ?

Merci a+

Autres pages sur : resolu outlook enregistrer format

11 Février 2013 17:49:53

Merci

Les macros et le VBA
a b 1 Email
11 Février 2013 22:12:30

Salut,

Peux-tu décrire ta trouvaille au cas où des personnes se poseraient les mêmes questions que toi STP ? :) 

Par la suite je pourrais clôturer ton topic si tu veux.
Contenus similaires
12 Février 2013 08:39:12

Salut,
Ce n'est pas ma trouvaille, (je suis aller sur le site développez.com)

http://outlook.developpez.com/faq/?page=VBA
---------------

J'ai adapter a mes besoins le code ci-desous :

  1. Sub sav_mail_as_msg(Optional objCurrentMessage As Object)
  2. 'By Oliv' juillet 2007 pour OUTLOOK 2003
  3.  
  4. If objCurrentMessage Is Nothing Then Set objCurrentMessage = ActiveInspector.CurrentItem
  5.  
  6. 'Ici on construit le nom du fichier qui sera créé
  7. NomExport = objCurrentMessage.Subject & objCurrentMessage.CreationTime
  8.  
  9. 'Ici on défini le répertoire où l'enregistrer
  10. repertoire = "c:\mail\"
  11. 'repertoire = BrowseForFolder("Choisissez la destination", SDossier(5, 0)) & "\"
  12.  
  13. 'Ici on supprime les caractères non autorisé dans les noms de fichiers
  14. PathNomExport = repertoire & "Email " & Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace( _
  15. NomExport, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), "<", ""), ">", ""), "|", ""), ".", ""), """", ""), vbTab, ""), Chr(7), ""), 160) & ".msg"
  16.  
  17. 'Ici on vérifie que le fichier n'existe pas déjà sinon il serait écrasé
  18. n = 1
  19. MemPath = PathNomExport
  20. While Dir(PathNomExport) <> ""
  21. MsgBox "Le fichier " & vbCr & PathNomExport & vbCr & "existe déjà", vbInformation
  22. PathNomExport = Left(MemPath, Len(MemPath) - 4) & "(" & n & ")" & ".msg"
  23. n = n + 1
  24.  
  25. Wend
  26. objCurrentMessage.SaveAs PathNomExport, OlSaveAsType.olMSG
  27.  
  28. End Sub
  29.  
  30. Sub LanceSurOuvert()
  31. sav_mail_as_msg
  32. End Sub
  33.  
  34.  
  35. Sub LanceSurSelection()
  36. Dim MonOutlook As Outlook.Application
  37. Dim LeMail As Object
  38. Dim LesMails As Outlook.Selection
  39. Set MonOutlook = Outlook.Application
  40.  
  41. Set LesMails = MonOutlook.ActiveExplorer.Selection
  42.  
  43. For Each LeMail In LesMails
  44. sav_mail_as_msg LeMail
  45. Next LeMail
  46.  
  47. Set LesMails = Nothing
  48. MsgBox "Fin de traitement"
  49. End Sub


a b 1 Email
12 Février 2013 08:40:22

Merci m'sieur :) 

Veux-tu que je clôture le topic ?
12 Février 2013 13:16:37

Oui Merci