[VBA Outlook 2003] - Sauvegarder les mails au format .msg - Langages dérivés / VBA, Visual Basic, VB6, VB.NET, VB 2005, VB

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 21:33:06

MICROSOFT VOUS PERMET DE TESTER ECMASCRIPT 5 (ES3.1) par FREMYCOMPANY

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

RE : SAUVEGARDE DATASET IMPOSSIBLE par Alastor99

SAUVEGARDE DATASET IMPOSSIBLE par Alastor99

RE : MACRO SANS PASSER PAR LA FORMULE EXCEL par jack

RE : RECHERCHER UN MOT PUIS DONNER UNE VALEUR CORRESPONDANTE SUR LA MêME LIGNE par jack

ACTUALISATION D'UN DOSSIER par PHILOUVB

+ de logiciels à télécharger

1 465 545 membres
582 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 098 codes, 1 303 355 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : [VBA Outlook 2003] - Sauvegarder les mails au format .msg [ Langages dérivés / VBA ] (LSGSERVAL)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / Visual Basic 6 / Langages dérivés / VBA / [VBA Outlook 2003] - Sauvegarder les mails au format .msg
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

vendredi 20 juillet 2007 à 09:02:03 | [VBA Outlook 2003] - Sauvegarder les mails au format .msg

LSGSERVAL

Bonjour à tous

il y a quelques temps, j'avais trouver un code me permettant de sauvegarde les mails de outlook dans un dossier spécifié en formatant le fichier .msg de la facon suivante :
aaaammjj-expediteur-objet.msg

Suite à un plantage de mon DD, j'ai perdu ce code (je sais j'aurais du la sauvegarder quelque part ou l'imprimer).

Est ce que quelqu'un pourrait m'aider a recréer cette fonction en vba ou bien de donner des listes de sites traitant du vba pour outlook 2003 ?

J'ai bien en début de code, mais hélas quand je le teste je tombe sur des messages d'erreurs et n'étant pas un specialiste vba je n'arrive pas à débugger le code.

Code :
Set objCurrentMessage = ActiveInspector.CurrentItem
Sujet = objCurrentMessage.Subject
repertoire = "c:\mail\"
objCurrentMessage.SaveAs repertoire & sujet & ".msg", OlSaveAsType.olMSG

Merci d'avance

La route du savoir est plus longue que la muraille de Chine

vendredi 20 juillet 2007 à 12:08:38 | Re : [VBA Outlook 2003] - Sauvegarder les mails au format .msg

Charles Racaud

Réponse acceptée !

Salut,

Déjà, il faut déclarer les variables
Ensuite, on récupére la séléction via ActiveExplorer.Selection.

Const OutputDirectory As String = "c:\mail\"
Dim SelectObject As Selection
Set SelectObject = Outlook.Application.ActiveExplorer.Selection
Dim i As Integer
For i = 1 To SelectObject.Count
  Dim Item As MailItem
  Set Item = SelectObject.Item(i)
  Dim ItemOutputFileName As String
  ItemOutputFileName = OutputDirectory & Item.Subject & ".msg"
  Item.SaveAs ItemOutputFileName, OlSaveAsType.olMSGUnicode
Next i

(Coloration syntaxique automatique par Kenji)

__________
Kenji
( Nouveau forum VBA/Office

vendredi 20 juillet 2007 à 21:18:06 | Re : [VBA Outlook 2003] - Sauvegarder les mails au format .msg

LSGSERVAL

Bonjour

et merci pour le code, il marche parfaitement bien :D

J'ai essayé de l'adapter en ajoutant la date de reception et le nom de l'expediteur.

J'arrive a avoir le nom de l'expediteur mais pas la date

Voici le code qui fonctionne :
ItemOutputFileName = OutputDirectory & Item.SenderName & "-" & Item.Subject & ".msg"

Par contre si je fait
ItemOutputFileName = OutputDirectory & Item.ReceivedTime & "-" & Item.SenderName & "-" & Item.Subject & ".msg"
Je n'ai pas de message d'erreur mais j'ai pas non plus de copie du message dans mon répertoire

Serait-ce abuser de demander pourquoi ?

Merci d'avance

La route du savoir est plus longue que la muraille de Chine

vendredi 20 juillet 2007 à 22:42:50 | Re : [VBA Outlook 2003] - Sauvegarder les mails au format .msg

Charles Racaud

Réponse acceptée !
Si tu regarde le contenu de ItemOutputFileName, il y a (par exemple) :
c:\mail\20/07/2007 09:19:48 PM-CodeS-SourceS.com-Nouveau message sur le Forum de VBFrance.com [[VBA Outlook 2003] - Sauvegarder les mails au format .msg].msg

La date ne va pas. Pourquoi ? Parsque elle contient des / et des : et qui sont non autoriser dans les noms de fichiers.
Pour transformer ca, tu peux utiliser la fonction format qui te permettera aussi de choisir comment l'afifcher.
Par exemple: Format$(Item.ReceivedTime, "dd-mm-yy Hh Nn Ss")

Tu as toute la doc sur cette fonction ici :
http://office.microsoft.com/client/helppreview.aspx?AssetID=HV012026591033&ns=OUTLOOK.DEV&lcid=2057&QueryID=MgnBFo7ah0&respos=1

__________
Kenji
( Nouveau forum VBA/Office

samedi 21 juillet 2007 à 13:11:34 | Re : [VBA Outlook 2003] - Sauvegarder les mails au format .msg

LSGSERVAL	Merci pour le coup de main, je vais ajouter une fonction replace pour les caracteres non autorisés dans les sujets La route du savoir est plus longue que la muraille de Chine
	Rép. MP 8 msg 15 msg CS

Cette discussion est classé dans : outlook, vba, code, msg, sauvegarder

Répondre à ce message

Sujets en rapport avec ce message

VBA outlook 2000 [ par didine74 ] J'ai programmé une grosse application, à déployer sur 120 postes en Win NT et outlook 2000.Du code est associé à l'évènement Application_NewMail.Hélas Formulaire electrinque dans Outlook 2003 [ par lantno ] Je dois faire un formulaire dans outlook qui va être envoyé de service en service pour que chacun puisse mettre ce qu'il doit mettre dans la partie qu VBA Outlook : affiche un msg à l'arrivée d'un mail [ par trz303 ] Version : Outlook 2000 + Exchange serverVous me direz que c'est "built-in" dans Outlook, mais pas tout à fais.Je m'explique : mon problème est que j'a Outlook VBA recuperer le chemin d'un .msg [ par Phil1973 ] Salut,Lorsque j'ouvre un fichier .msg, je voudrais connaitre son chemin de sauvegarder complet.Comment recupere ce chemin sous OUTLOOK VBA?Phil1973 code en vba [ par aducloux ] bonjour a tous,je debute en vba et meme apres avoir achete VBA pour excel pour les nuls je rame....Voila je dois aller recuperer des données dans un f VBA outlook+excel [ par Liro ] Bonjour,Je souhaiterai à partir:- d'un fichier excel contenant des adresse mail - d'un courrier type (email) enregistrer au format *.msgOuvrir le fich Code VBA pour fonction "sauvegarder sous" [ par faboramix ] Bonjour a tous,je suis un débutant dans le VBA et j'ai un fichier dans le quel je souhaiterai introduire un code VBA permettant la fonction "sauvegard copier coller d'un code vba [ par lederic ] Bjr ,Suite à ma question de tout à l'heure;J'ai copié collé le code vba d'un programme d'anagramme, l'ai compilé mas lors de l'exécution, une fenêtre VBA Excel - générer du code vba avec du code vba... [ par fondue ] Bonjour,Est-il possible, lors de la création d'un objet de contrôle via vba (ici un scrollbar) de lui associer un événement sur changement?Mon code :f Amélioration code vba [ par Garion27 ] Bonjour à tous,J'utilise une macro qui permet de vérrouiller les données automatiquement dès que l'on renregistre. Elle fonctionne très bien mais lors