Discussion :

[Oliv-]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[calogerogigante]

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...
Je suis encore trop débutant en programmation Windows.

Le voici :

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

[calogerogigante]

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).

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 ?

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 ?

[Oliv-]

Salut,
Je ne peux pas mettre de lien direct 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.

[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.

[SfJ5Rpw8]

à 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ?

[SfJ5Rpw8]

c'est quoi le message d'erreur..?

[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.

[SfJ5Rpw8]

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

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

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

[Oliv-]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Oliv-]

Bon voici un VBS qui devrais aller:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.