Importer un fichier EML dans Outlook

Version imprimable

Bonjour,

Tout est dans le titre.
Je voudrait savoir comment importer un fichier EML dans Outlook.

J'ai remarqué qu'en renommant un fichier EML en MHT et en le faisant glisser dans l'exploreur d'Outlook (par exemple la boite de réception), celui-ci l'acceptait.

Je l'ai donc renommé puis j'ai récupérer son contenu que j'ai dans le HTMLBody.
Mais ça ne fonctionne pas. Le message ressort très vilainement
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 if (FileExists('C:\Users\XXX\Documents\FullMsg7.mht')) then begin SL := TStringList.Create; try SL.LoadFromFile('C:\Users\XXX\Documents\FullMsg7.mht'); HtmlBody := SL.Text; finally FreeAndNil(SL); end; Mail := (Folder.Items.Add(olMailItem) as MailItem); Mail.Recipients.Add('toto@toto.fr'); Mail.Subject := 'Test création mail par delphi'; Mail.HTMLBody := HtmlBody; Mail.Move(SpecificFolder); end;
J'ai un autre problème.
Lorsque je créé un MailItem de toute pièce, je perds l'expéditeur.

Citation:
Envoyé par popo
(...) Mais ça ne fonctionne pas. Le message ressort très vilainement
Code:

1 2 3 4 5 6 7 8 9 10 if (FileExists('C:\Users\XXX\Documents\FullMsg7.mht')) then begin SL := TStringList.Create; try SL.LoadFromFile('C:\Users\XXX\Documents\FullMsg7.mht'); HtmlBody := SL.Text; // manque la conversion, voir la discussion citée finally FreeAndNil(SL); end; end;
Une petite recherche rapide ici même t'aurait remonté cette discussion (bon, ça cause Java, mais l'idée est bonne).

Citation:

Envoyé par popo

(...) J'ai un autre problème.
Lorsque je créé un MailItem de toute pièce, je perds l'expéditeur.

Autre problème --> autre post, c'est la règle !

15/09/2014, 10h35
popo

En fait, je suis tombé sur cette discussion.
Elle ne semble cependant pas correspondre car le contenu de mon MHT n'est pas encodé (à l'exception des images).

Le fichier MHT qui est en réalité un fichier EML est (le plus souvent) formé de plusieurs type de contenu
-Un contenu Text/Plain correspondant au message brut en texte
-Un contenu Text/HTML correspondant au message au format HTML
-Plusieurs contenus Image/Gif correspondant aux images du format HTML.

Je ne suis vraiment pas à l'aise avec les expressions régulière et aussi, je voulais éviter d'extraire la partie HTML(qui n'est pas forcément présente) et la a partie décrivant les images qui n'est pas forcément présente non plus et qui m'oblige à créer des pièce jointes et donc à altérer le message d'origine.

La perte de l'expéditeur n'est pas un autre problème, il est lié à celui-ci car les données liées à l'expéditeur sont en lectures seules dans le MailItem.
En fait, ce que je cherche n'est pas de crée un mail Item de toute pièce comme dans cet exemple mais bien d'importer ce fichier. Outlook accepte le glisser-déposer et transforme de lui-même ce fichier en quelque chose de lisible et dont l'expéditeur est renseigné. Je cherche à utiliser cette mécanique.
15/09/2014, 11h34
Jipété

Citation:

Envoyé par popo

En fait, je suis tombé sur cette discussion.
Elle ne semble cependant pas correspondre car le contenu de mon MHT n'est pas encodé (à l'exception des images).(...)

Salut,

tu es en train de dire que ton fichier est lisible comme du plain text ? Tu peux l'ouvrir avec le Bloc-notes ? Si oui, alors c'est juste une histoire de parsing, et là je passe.

Mais dans ton post d'origine, tu disais que le fichier s'ouvrait "vilainement" et j'étais parti sur une idée d'encoding ou de compression, puisque tu ne décris pas ton "vilainement"...

Tâche d'être plus précis...
15/09/2014, 14h58
popo

Bonjour,

J'ai un collègue qui m'a appris que la direction technique avait encapsulé Redemption dans une DLL à eux.
Si j'avais su, je me serais évité bien du tracas et ça vous aurait épargné du temps à vous également.

Encore désolé.
Je marque comme résolu.
15/09/2014, 16h08
Jipété

Citation:

Envoyé par popo

Je marque comme résolu.

Et comme ça dans 6 mois ou 2 ans, quelqu'un ayant le même problème et faisant une recherche tombera là-dessus en se disant « Ouais super ! » et se retrouvera le bec dans l'eau.
(Oui, je sais, il n'y a plus le bouton Délestage qui existait il y a de nombreuses années.)

Comme moi, d'ailleurs, parce qu'au final, je ne sais pas si c'est un problème de fichier compressé ou de tentative foirée de parsing...

La vie des forums... :roll:

J'ai pourtant évoqué deux manières de résoudre mon problèmes :

La première est de parser manuellement en cherchant les lignes correspondants aux différents contenu.
La personne dans le même cas retrouvera facilement ces lignes.

Code:

content-type:text/pain

Code:

content-type:text/htm

Code:

content-type:image/gif

La seconde consiste à utiliser Redemption et des exemples pululent sur le net.
Comme je l'ai précisé, j'ai utilisé la librairie maison. Mais pour l'exemple voici, ce qui suffit.
Code:

1 2 3 4 5 Session := CreateObject("Redemption.RDOSession"); Inbox := Session.GetDefaultFolder(olFolderInbox); Msg := Inbox.Items.Add; Msg.Import('c:\temp\test.em', 1024); //1024 is olRfc822 Msg.Save;