{"id":3072,"date":"2016-11-08T12:56:08","date_gmt":"2016-11-08T11:56:08","guid":{"rendered":"http:\/\/www.blue-bears.com\/blog\/?p=3072"},"modified":"2016-12-09T09:03:30","modified_gmt":"2016-12-09T08:03:30","slug":"vba-backup-mails-outlook","status":"publish","type":"post","link":"http:\/\/www.blue-bears.com\/blog\/?p=3072","title":{"rendered":"VBA : Backup Mails Outlook"},"content":{"rendered":"<p>VBA Sauvegarde des mails individuellement sous forme de fichiers HTML :<\/p>\n<p><!--more--><\/p>\n<p>VBA : ALT+F11<\/p>\n<p>[pastacode lang=\u00a0\u00bbc\u00a0\u00bb manual=\u00a0\u00bbSub%20sav_mail_as_msg(Optional%20objCurrentMessage%20As%20Object)%0A&rsquo;By%20Oliv&rsquo;%20juillet%202007%20pour%20OUTLOOK%202003%0A%0A%0A%20%20%20%20If%20objCurrentMessage%20Is%20Nothing%20Then%20Set%20objCurrentMessage%20%3D%20ActiveInspector.CurrentItem%0A%20%20%20%20&rsquo;Set%20objCurrentMessage%20%3D%20ActiveInspector.CurrentItem%0A%0A%20%20%20%20&rsquo;Ici%20on%20construit%20le%20nom%20du%20fichier%20qui%20sera%20cr%C3%A9%C3%A9%0A%20%20%20%20NomExport%20%3D%20objCurrentMessage.Subject%20%26%20objCurrentMessage.CreationTime%0A%0A%20%20%20%20&rsquo;Ici%20on%20d%C3%A9fini%20le%20r%C3%A9pertoire%20o%C3%B9%20l&rsquo;enregistrer%0A%20%20%20%20repertoire%20%3D%20%22c%3A%5Cmail%5C%22%0A%20%20%20%20&rsquo;repertoire%20%3D%20BrowseForFolder(%22Choisissez%20la%20destination%22%2C%20SDossier(5%2C%200))%20%26%20%22%5C%22%0A%0A%20%20%20%20&rsquo;Ici%20on%20supprime%20les%20caract%C3%A8res%20non%20autoris%C3%A9%20dans%20les%20noms%20de%20fichiers%0A%20%20%20%20PathNomExport%20%3D%20repertoire%20%26%20%22Email%20%22%20%26%20Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(%20_%0A%20%20%20%20NomExport%2C%20%22%5C%22%2C%20%22%22)%2C%20%22%2F%22%2C%20%22%22)%2C%20%22%3A%22%2C%20%22%22)%2C%20%22*%22%2C%20%22%22)%2C%20%22%3F%22%2C%20%22%22)%2C%20%22%3C%22%2C%20%22%22)%2C%20%22%3E%22%2C%20%22%22)%2C%20%22%7C%22%2C%20%22%22)%2C%20%22.%22%2C%20%22%22)%2C%20%22%22%22%22%2C%20%22%22)%2C%20vbTab%2C%20%22%22)%2C%20Chr(7)%2C%20%22%22)%2C%20160)%0A%20%20%20%20%0A%20%20%20%20&rsquo;PathNomExport%20%3D%20PathNomExport%20%26%20%22.msg%22%0A%20%20%20%20PathNomExport%20%3D%20PathNomExport%20%26%20%22.html%22%0A%20%20%20%20%0A%20%20%20%20&rsquo;Ici%20on%20v%C3%A9rifie%20que%20le%20fichier%20n&rsquo;existe%20pas%20d%C3%A9j%C3%A0%20sinon%20il%20serait%20%C3%A9cras%C3%A9%20%3D%3E%20Incr%C3%A9ment%0A%20%20%20%20n%20%3D%201%0A%20%20%20%20MemPath%20%3D%20PathNomExport%0A%20%20%20%20While%20Dir(PathNomExport)%20%3C%3E%20%22%22%0A%20%20%20%20%20%20%20%20MsgBox%20%22Le%20fichier%20%22%20%26%20vbCr%20%26%20PathNomExport%20%26%20vbCr%20%26%20%22existe%20d%C3%A9j%C3%A0%22%2C%20vbInformation%0A%20%20%20%20%20%20%20%20&rsquo;PathNomExport%20%3D%20Left(MemPath%2C%20Len(MemPath)%20-%204)%20%26%20%22(%22%20%26%20n%20%26%20%22)%22%20%26%20%22.msg%22%0A%20%20%20%20%20%20%20%20PathNomExport%20%3D%20Left(MemPath%2C%20Len(MemPath)%20-%204)%20%26%20%22(%22%20%26%20n%20%26%20%22)%22%20%26%20%22.html%22%0A%20%20%20%20%20%20%20%20n%20%3D%20n%20%2B%201%0A%0A%20%20%20%20Wend%0A%20%20%20%20&rsquo;objCurrentMessage.SaveAs%20PathNomExport%2C%20OlSaveAsType.olMSG%0A%20%20%20%20objCurrentMessage.SaveAs%20PathNomExport%2C%20OlSaveAsType.olHTML%0A%20%20%20%20%0A%20%20%20%20%0A%20%20%20%20&rsquo;olTXT%20Text%20format%20(.txt)%0A%20%20%20%20&rsquo;olRTF%20Rich%20Text%20format%20(.rtf)%0A%20%20%20%20&rsquo;olMSG%20Outlook%20message%20format%20(.msg)%0A%20%20%20%20&rsquo;olDoc%20Microsoft%20Office%20Word%20format%20(.doc)%0A%20%20%20%20&rsquo;olHTML%20HTML%20format%20(.html)%0A%0A%0AEnd%20Sub%0A%0ASub%20LanceSurOuvert()%0A%20%20%20%20sav_mail_as_msg%0AEnd%20Sub%0A%0A%0ASub%20LanceSurSelection()%0A%20%20%20%20Dim%20MonOutlook%20As%20Outlook.Application%0A%20%20%20%20Dim%20LeMail%20As%20Object%0A%20%20%20%20Dim%20LesMails%20As%20Outlook.Selection%0A%20%20%20%20Set%20MonOutlook%20%3D%20Outlook.Application%0A%0A%20%20%20%20Set%20LesMails%20%3D%20MonOutlook.ActiveExplorer.Selection%0A%0A%20%20%20%20For%20Each%20LeMail%20In%20LesMails%0A%20%20%20%20%20%20%20%20sav_mail_as_msg%20LeMail%0A%20%20%20%20Next%20LeMail%0A%0A%20%20%20%20Set%20LesMails%20%3D%20Nothing%0A%20%20%20%20MsgBox%20%22Fin%20de%20traitement%22%0AEnd%20Sub%0A%0A\u00a0\u00bb message=\u00a0\u00bbCopie (Explode) Contenu Mail sur DD \u00a0\u00bb highlight=\u00a0\u00bb\u00a0\u00bb provider=\u00a0\u00bbmanual\u00a0\u00bb\/]<\/p>\n<ul>\n<li><a href=\"http:\/\/www.slipstick.com\/developer\/saving-messages-to-the-hard-drive-using-vba\/\">http:\/\/www.slipstick.com\/developer\/saving-messages-to-the-hard-drive-using-vba\/<\/a><\/li>\n<li><\/li>\n<\/ul>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>VBA Sauvegarde des mails individuellement sous forme de fichiers HTML :<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[17],"tags":[],"class_list":["post-3072","post","type-post","status-publish","format-standard","hentry","category-informatique"],"_links":{"self":[{"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/3072","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3072"}],"version-history":[{"count":7,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/3072\/revisions"}],"predecessor-version":[{"id":3090,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/3072\/revisions\/3090"}],"wp:attachment":[{"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3072"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3072"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3072"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}