begin process at 2012 02 17 08:27:59
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

Visual Basic 6

 > 

Langages dérivés

 > 

VBA

 > 

[VBA Outlook 2003] - Sauvegarder les mails au format .msg

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

[VBA Outlook 2003] - Sauvegarder les mails au format .msg

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

Membre Club
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

Membre Club
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


Cette discussion est classée 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 Outlook changer l'expéditeur d'un message [ par phredo ] Bonjour, Dans Outlook, je possède un compte de messagerie avec la possibilité d'envoyer des messages avec deux adresses différentes. Je souhaiterais VBA Outlook, creation dosssier sur exchange [ par boir1cou ] Bonjour, Je voudrais savoir si il existe une fonction qui permet d'ouvrir la fenêtre "clique droit -> nouveau dossier" sous Outlook 2003. Je connais Affectation et initialisation sur la meme ligne en VBA [ par RoGx ] bonjour, Pourquoi est-ce que j'obtiens une erreur sur le "=" avec message "Erreur de compilation: Fin de ligne attendue" lorsque j'écris ceci en VBA


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy S
Entre 529€ et 529€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Beautiful woman in a bikini meditating on the beach
Photo Pêche au Carrelet, la Barre-de-Monts, vendée (85), Pays de loire 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,733 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)