[VBS] recherche dans des fichiers Outlook msg

Version imprimable

27/11/2007, 13h08
calogerogigante

[VBS] recherche dans des fichiers Outlook msg

Bonjour,

Je suis débutant en VBS (mon niveau se situe environ là où est arrivé mon petit tutoriel : tuto)

Je voudrais savoir si ceci est possible en VBS :

Lancer un script qui demande en input un email, un chemin de dossier, et qui recherche dans ce dossier (et sous-dossiers) tous les fichiers *.msg qui ont cet adresse dans le champs FROM.

Je vais chercher moi-même bien sûr pour le faire tout seul, mais je voudrais juste savoir d'abord si c'est quelque chose de réalisable en VBS.

Merci d'avance pour votre info...
:D
27/11/2007, 14h09
SfJ5Rpw8

les fichiers "*.msg" ... c'est quoi des fichiers textes (j'ai pas outlook sous la main..)

interesse-toi à : 2.2. Fichiers : le FileSystemObject
pour parcourir puis ouvrir tes fichiers... ;)
28/11/2007, 08h58
calogerogigante

Je n'ai pas trouvé ma réponse dans le lien que tu as mis.
Hélas, *.msg n'est pas qu'un simple format texte, c'est plus sophistiqué que ça...

En fait, ma question doit être plus précisée : un fichier *.msg, pour ceux qui le savent pas, est un format d'archivage d'Outlook pour UN e-mail.
Moi, ce que je voudrais savoir, c'est s'il y a des fonctions de bibliothèques, accessibles via VBS, qui me permettent de récupérer les différents champs d'un e-mail, et d'ensuite faire les traitements que j'ai envie avec les champs récupérés.

Quelqu'un a une idée ?
28/11/2007, 09h50
pc75

Bonjour,

Et concrétement, ces fichiers .msg devraient se trouver ou ?

Sur le poste client, sur le serveur, dans Outlook, ...
28/11/2007, 10h25
calogerogigante

Dans un folder, comme précisé déjà dans mon premier post...

Le but est de faire des recherches dans un archivage simple de mails stockés au format *.msg dans un folder.

Ma question est toute simple en fait :

Peut-on accéder aux caractérisitiques d'un e-mail au format *.msg (HEADER, CC, FROM, BODY, ATTACHEMENT, etc...) grâce à une bibliothèque accessible en VBS ?
29/11/2007, 22h02
calogerogigante

Les fichiers *.msg intéressent peu de monde, dirait-on... :cry:

J'ai trouvé sur internet une librairie qui prétend pouvoir lire les msg, mais je ne sais pas si je peux l'utiliser en VBScript :

http://www.codeproject.com/useritems/MsgReader.asp

J'ai lu dans un bouquin que toute dll pouvait être utilisée dans un script VBS, mais je ne suis plus sûr...

:( ? ? ?
29/11/2007, 22h12
SfJ5Rpw8

Ben non toutes les dll ne peuvent pas être utilisés en VBScript...
peut être avec : dynawrap ... si omen passe par la il nous en dira plus ... voir : http://www.developpez.net/forums/sho...d.php?t=333644

sinon .. dans ton cas .. as tu outlook sur le pc où est exécuté ton VBscript..si oui dans ce cas tu dois pouvoir le piloter en VBScript.. non ..?
02/12/2007, 17h20
calogerogigante

Outlook se trouve bien sur le PC où sont archivés les fichiers *.msg .

J'aurai bien voulu me passer de transiter via Outlook, mais si c'est inévitable, je veux bien étudier une solution via le pilotage du logiciel de messagerie.

Autrement dit, on peut imaginer que la recherche d'un e-mail donné peut se faire alors via la procédure suivante.

- Le script ouvre Outlook (OK pour moi)
- Le script ouvre un fichier *.msg à la fois dans Outlook (Ce doit être faisable)
- Le script check via Outlook si le msg ouvert contient bien l'e-mail recherché, sinon passe au suivant (est-ce possible ???)

Merci encore pour votre aide...
02/12/2007, 18h12
SfJ5Rpw8
je ne vois pas de fonction d'import de .msg.. dans outlook.. :aie:

peu-être une piste : http://www.dimastr.com/redemption/
http://www.dimastr.com/redemption/objects.htm#examples

si quelqu'un à des infos sur cette librairie redemption ... ?

[edit]
finalement la fonction CreateItemFromTemplate ... à l'air de convenir..;)
Code:

1 2 3 4 Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.CreateItemFromTemplate ("D:\tmp\monmes.msg") msgbox myItem.SenderName
02/12/2007, 19h23
calogerogigante

Waouww !!

Super, merci !!

On est sur une voie royale, là !!

Ca marche en effet. Le bout de code vbs que tu as mis permet en effet de sortir le nom de l'expéditeur du mail stocké dans un fichier *.msg donné.

Il suffit maintenant de faire une petite routine qui prend un par un tous les fichiers *.msg d'un folder donné, de récupérer à chaque fois le senderName, et de le comparer à l'email de l'expéditeur recherché.

Ensuite, on sort une petite liste de tous les msg qui étaient dans ce cas de figure...

Je ne mets pas ce post en résolu, car je vais encore revenir avec le script complété et certainement d'autres questions, mais je te remercie déjà beaucoup bbil, car tu m'as donné le petit coup de pouce nécessaire pour avancer...
:D

[ EDIT : ]

Comment trouver la syntaxe de tous les autres champs, du style myItem.SenderName ? (CC, BODY, ATTACHMENT,...)
Où puis-je trouver cette documentation ? 8O

Voici déjà les champs que j'ai trouvé en cherchant sur le net (champs qui fonctionnent très bien chez moi) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Set myOlApp = CreateObject("Outlook.Application")
 
Set myItem = myOlApp.CreateItemFromTemplate("C:\TEST\test.msg")
 
MsgBox   "SenderName : "             & myItem.SenderName & vbCr _
       & "ReplyRecipientNames : "    & myItem.ReplyRecipientNames & vbCr _
       & "TO : "                     & myItem.To & vbCr _
       & "BCC : "                    & myItem.BCC & vbCr _
       & "CC : "                     & myItem.CC & vbCr _
       & "Importance : "             & myItem.Importance & vbCr _
       & "Subject : "                & myItem.Subject & vbCr _
       & "Sent On : "                & myItem.SentOn & vbCr _
       & "ReceivedOnBehalfOfName : " & myItem.ReceivedOnBehalfOfName & vbCr _
       & "SentOnBehalfOfName : "     & myItem.SentOnBehalfOfName & vbCr _
       & "EntryId : "                & myItem.EntryID & vbCr _
       & "Size : "                   & myItem.Size & vbCr _
       & "Body : "                   & myItem.Body

mais ce que je ne comprends pas, c'est que j'ai en réalité le nom de l'expéditeur avec SenderName, pas son e-mail ????

02/12/2007, 21h32
SfJ5Rpw8

Citation:

Envoyé par calogerogigante

....
Comment trouver la syntaxe de tous les autres champs, du style myItem.SenderName ? (CC, BODY, ATTACHMENT,...)
Où puis-je trouver cette documentation ? ...

voir l'aide en ligne VBA ... d'outlook .. ;) (j'ai pas trouvé .. l'adresse mail, où du moins comment faire le lien entre SenderName et cette adresse...)

peu-être une nouvelle discussion à ouvrir sur le forum VBA outlook ..?
03/12/2007, 11h52
calogerogigante

N'y a-t-il vraiment pas moyen de continuer en VBS ?
Car on est proche du but, là...

Je peux déjà effectuer des recherches sur les e-mails TO, CC et BCC, et sur le contenu du body... C'est déjà super.
Mais il me manque le plus important : pouvoir faire des recherches sur les msg qui proviennent d'un e-mail donné.

Je ne comprends pas pourquoi

Code:

myItem.SenderEmailAddress

me renvoit une erreur VBS chez moi ?

Est-ce parce qu'on utilise "CreateItemFromTemplate", qui crée un nouveau msg, avec les champs TO, CC, BCC, BODY, etc... mais qui refuse de créer un "nouveau" msg qui n'a jamais été envoyé par l'expéditeur du MSG dont on part pour faire une copie ?

En soi, c'est logique, mais il doit bien y avoir un moyen propre de récupérer le FROM de ce fichier msg... :(
03/12/2007, 11h55
SfJ5Rpw8

Citation:

Envoyé par calogerogigante

N'y a-t-il vraiment pas moyen de continuer en VBS ?
Car on est proche du but, là...
... :(

non mon but n'était pas de te faire passer au VBA, mais d'utiliser l'aide VBA d'outlook .. pour trouver les propriétés et méthodes des objets "d'outlook" ;)

je n'ai vu nulle par de SenderEmailAddress
03/12/2007, 12h00
calogerogigante

J'ai cherché dans cette aide de Microsoft :

http://msdn2.microsoft.com/en-us/lib...ffice.11).aspx

Car les autres champs étaient référencé aussi dans cette partie de la doc...

Mais je crois que ce "SenderEmailAddress" concerne un autre type d'objet. (je suis débutant en VBS et ne voit pas encore très clair dans tout ça :roll: )

Où puis-je trouver l'aide VBA d'Outlook ?
03/12/2007, 12h09
SfJ5Rpw8

ok c'est à priori une nouveauté d'outlook 2003 ( moi je suis en 2002.:aie:.)

http://msdn2.microsoft.com/en-us/lib...ffice.11).aspx
03/12/2007, 12h15
calogerogigante

Moi aussi, j'ai Outlook 2002 au boulot. Et SenderEmailAddress ne fonctionne pas non plus, hélas...

Est-ce que ça veut dire que SenderEmailAddress ne fonctionne qu'à partir d'Outlook 2003 ?
Ou est-ce dû à l'utilisation de CreateItemFromTemplate qui (à mon avis) ne reproduit pas le champ FROM dans sa copie ?

Puisque le format msg existe aussi sous Outlook 2002, il doit quand même y avoir moyen de récupérer ce #"?§crénondidjuu&#!§ de champs FROM ????
04/12/2007, 10h34
ced600

Dit mois ton fichier .MSG à la tête d'un fichier XML ?
Tu peux l'ouvrir en fichier texte ?
Parce qu'il te suffirait dans ce cas de faire ton propre parseur.
Si tu ne cherches que le champ From ....
En plus en VBS c'est facile de lister tous les fichiers d'extension précises contenues dans un dossier
04/12/2007, 12h11
calogerogigante

Citation:

Envoyé par ced600

Dit mois ton fichier .MSG à la tête d'un fichier XML ?
Tu peux l'ouvrir en fichier texte ?
Parce qu'il te suffirait dans ce cas de faire ton propre parseur.

Hélas non, c'est principalement un format "englobant", qui semble contenir du texte et du binaire (la preuve, les attachements d'un mail sont inclus).
J'ai déjà essayé textuellement, mais ce n'est pas possible. Il faut passer par des méthodes...

Ouvrir un fichier *.msg avec WORDPAD te montre des caractères illisibles et quelques champs textes lisible. Mais ces champs textes ne sont pas toujours évident à comprendre, s'il s'agit du champ BCC, CC, etc...

Citation:

Envoyé par ced600

En plus en VBS c'est facile de lister tous les fichiers d'extension précises contenues dans un dossier

Oui, tout à fait. Comme msg est propre à Windows et VBS aussi, c'est pour ça que je m'obstine à faire ce petit script de recherche dans les fichiers *.msg en VBS...

On n'est pas loin de la solution, mais il faut encore trouver comment extraire proprement le champ FROM d'un e-mail stocké au format *.msg .

Si quelqu'un a une idée de génie ?
04/12/2007, 14h05
ced600

as tu essayer de trouver un parseur gratuit de ce genre de fichier sur google ?

On ne sait jamais :D

Après jamais fait de VBA/VBS Outlook alors je ne peux pas trop t'aider.

Surtout si tu as une ancienne version, je ne suis même pas sur que l'aide en ligne MSDN te propose encore une description de librairies pour 2002

SAlut,
Avec ce code sur un mail (ou autre élément")dans outlook ,VBE tu verras la plupart des objets dans les variables:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub BaBa() Dim App Dim Insp Dim Expl Dim Oitem Set App = Outlook.Application 'désigne Outlook Debug.Print App Set Expl = App.ActiveExplorer 'désigne l'exploreur actif càd la fenêtre des dossiers. Debug.Print Expl.Caption Set Insp = ActiveInspector 'désigne la fenêtre de l'élement actif Debug.Print Insp.Caption Set Oitem = ActiveInspector.CurrentItem 'désigne l'élément actif càd le mail le contact ou rdv... Debug.Print Oitem Stop
Sinon un .msg peut "en partie" être lu avec un éditeur de texte genre le bloc note.

Dans la méthode proposée avec CreateItemFromTemplate le pb c'est que tu crées un NOUVEAU MAIL et que tu n'ouvres pas le mail qui comporte lui bien l'expéditeur la date d'expédition ...

Pour ouvrir le .msg il faut reproduire le "ouvrir" de l'explorateur :
"C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE" /f "%1"

04/12/2007, 15h48
calogerogigante

Citation:

Envoyé par ced600

as tu essayer de trouver un parseur gratuit de ce genre de fichier sur google ?

Oui, j'en ai trouvé un, qui semble convenir à ce que j'ai besoin de faire, mais honte sur moi : je ne sais pas comment l'utiliser... :oops:
Je suis encore trop débutant en programmation Windows.

Le voici :

http://www.codeproject.com/useritems/MsgReader.asp
04/12/2007, 15h51
calogerogigante

Citation:

Envoyé par Oliv-

SAlut,
Avec ce code sur un mail (ou autre élément")dans outlook ,VBE tu verras la plupart des objets dans les variables

Ca m'a l'air compliqué ? Peux-tu me donner un exemple concret en VBS directement ? (Excuse-moi, je suis tout nouveau dans l'apprentissage de VBS).

Citation:

Envoyé par Oliv-

Sinon un .msg peut "en partie" être lu avec un éditeur de texte genre le bloc note.

Oui, mais le résultat n'est pas top. Comme dit plus haut, on n'est jamais sûr de récupérer correctement tel ou tel champs... Je crois qu'il vaut mieux passer par des bibliothèques spécifiques, non ?

Citation:

Envoyé par Oliv-

Dans la méthode proposée avec CreateItemFromTemplate le pb c'est que tu crées un NOUVEAU MAIL et que tu n'ouvres pas le mail qui comporte lui bien l'expéditeur la date d'expédition ...

Entièrement d'accord avec toi, c'est ce que je pense aussi. C'est sans doute pour ça que je n'arrive pas à récupérer le FROM de la copie du msg en question.

Mais alors ? Comment faire ? :roll:
04/12/2007, 16h12
Oliv-

Salut,
Je ne peux pas mettre de lien direct :aie: donc si tu suis le lien de mon site web (en bas de cet article) et va sur l'article r15000 tu auras un petit didacticiel VBA.

Si tu es débutant en VBS tu peux commencer plutot par du VBA c'est presque pareil mais plus facile car tu as un déboggueur.
04/12/2007, 16h48
ced600

J'avais vu un topic passé il y a très longtemps parlant de la possibilité de se créer un débugger en VBS simplement. Peut être dans les contribution.

à je pense avoir trouvé faut utiliser un objet mapi.session pour faire le lien entre sendername et l'adresse j'étais pas loin dans la doc msdn voir (GetSender()):

http://msdn2.microsoft.com/en-us/lib...612730_topic29

..
je te prépare un script.. ;)

Tiens ..:
Code:

1 2 3 4 5 6 7 8 Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.CreateItemFromTemplate ("D:\tmp\monmes.msg") myITEM.Save 'Il faut sauver sinon EntryID ="" Set objCDO = CreateObject("MAPI.Session") objCDO.Logon "", "", False, False Set objMsg = objCDO.GetMessage(myItem.EntryID) msgbox objMsg.Sender.Address myItem.delete 'On ne garde pas le message
reste peu-être le probléme de sécurité (fenêtre d'autorisation au démarrage...) à voir si gênante dans ton cas ;)

04/12/2007, 20h06
calogerogigante

Salut bbil,

La fenêtre de sécurité n'est pas du tout gênante. J'ai juste une crainte que quand mon script sera fini, autoriser l'accès du script à Outlook pendant 10 min ne soit pas suffisant pour finir une recherche dans des tas de folders contenant des msg...

J'ai essayé ton bout de code dans un fichier texte d'extension *.vbs, en mettant un path vers un *.msg présent sur mon PC.
Mais j'ai un message d'erreur que je ne comprends pas ??????

Il fonctionne, chez toi, ton bout de code ?
8O
04/12/2007, 20h22
SfJ5Rpw8

c'est quoi le message d'erreur..?
05/12/2007, 18h33
Oliv-

salut bbil ca ne renvoi pas ton adresse à toi ce code ?

l'adresse de l'exp est dans SenderEmailAddress.

Sinon tu dois pouvoir utiliser la recherche de fichier de office au moins pour dégrossir ta recherche.
voire un truc comme google desktop.
05/12/2007, 19h01
SfJ5Rpw8

Citation:

Envoyé par Oliv-

salut bbil ca ne renvoi pas ton adresse à toi ce code ?

non ... : sender c'est bien expéditeur ;)

Citation:

Envoyé par Oliv-

l'adresse de l'exp est dans SenderEmailAddress...

oui cela je l'ai déjà écrit plus haut .. mais il faut outlook 2003 .. mini .. et ici il c'est outlook 2002 ;)

Citation:

Envoyé par bbil

non ... : sender c'est bien expéditeur ;)
oui cela je l'ai déjà écrit plus haut .. mais il faut outlook 2003 .. mini .. et ici il c'est outlook 2002 ;)

au temps pour moi !!
Ce que je craignais c'est qu'il ne reprenne pas les infos du msg d'origine et c'est le cas pour certaines infos comme les dates de création , etc...

Pour éviter le message de sécurité il existe des logiciels comme clickyes mais qui font un trou de sécurité , sinon il faut mettre une partie du code dans outlook et lancer la macro à partir du vbs soit :
Code:

1 2 3 'ici on lance une macro du nom de ScheduleMeeting dans Outlook thisoutlooksession. ' avec des paramétres Call myOlApp.ScheduleMeeting("22/09/2007", 1,1, "test",1440, "toto@toto.fr", "", "Display")
dans outlook :
Code:

1 2 3 Sub ScheduleMeeting(Du_txtbox, Sujet, duree, Email, chef, corps) Dim myOlApp As Outlook.Application End Sub

Bon voici un VBS qui devrais aller:
Code:

1 2 3 4 5 6 7 8 9 10 Set WshShell = WScript.CreateObject("WScript.Shell") Set myOlApp = CreateObject("Outlook.Application") shellcommande = """C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE"" /f ""C:\Documents and Settings\ton profil\Bureau\Réponse dans « Recuperer le chemin d'un msg ».msg""" msgbox shellcommande RetVal = WshShell.run (shellcommande, 1,true) 'DoEvents Set myItem = myOlApp.ActiveInspector.CurrentItem MsgBox "Sujet: " & myItem.Subject & vbCr & "reçu le : " & myItem.ReceivedTime & vbCr & "A: " & myItem.To & vbCr & "Email Exp: " & myItem.SenderEmailAddress & vbCr & "PJ: " & myItem.Attachments.Count 'myItem.Close 0 ' ferme sans enregistrer le mail
le reste du code doit être bon quoique j'ai une erreur MAPI_E_INVALID_ENTRYID(80040107) chez moi sans doute car j'utilise le "mode exchange mis en cache" , je pense qu'il est cependant préférable d'utiliser REDEMPTION si vous avez une version avant 2003.
Code:

1 2 3 4 5 6 7 8 'CreateItemFromTemplate ("C:\Documents and Settings\ton profil\Bureau\Réponse dans « Recuperer le chemin d'un msg ».msg") myItem.Save 'Il faut sauver sinon EntryID ="" msgbox myitem.saved Set objCDO = CreateObject("MAPI.Session") objCDO.Logon "", "", False, False Set objMsg = objCDO.GetMessage(myItem.EntryID) msgbox objMsg.Sender.Address myItem.delete 'On ne garde pas le message
préférer peut être objMsg.delete qui ne remplira pas la corbeille.

Mais je le redis si tu dois ouvrir x milliers de .msg pour trouver ton bonheur tu vas y passer des heures.

Fuseau horaire GMT +2. Il est actuellement 09h50.