[Résolu] Outlook enregistrer sous [format]

[chonos]

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+

 

[chonos]

Merci

Les macros et le VBA

 

[Eldarium]

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.

 

[chonos]

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

Vous devez être connecté pour voir les liens.

---------------

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

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

 

[Eldarium]

Merci m'sieur

Veux-tu que je clôture le topic ?

 

[chonos]

Oui Merci