[Source] Composant Viewer de fichier eml

Bonjour,

j'ai utilisé votre bibliothèque DiPop6 avec DiEmailViewer afin de lire des mails et de filtrer certain mail en fonction de l'expéditeur.
J'ai constaté que les mails émis par moi même depuis la bibliothèque CDO se lisent très bien avec votre outil, mais dès que je reçois des mails extérieurs d'un client, cela pose quelques soucis.

1/ Le champs destinataire est mal renseigné :
On retrouve l'adresse dans le champ "Name" et non "Adres" et le dernier caractère de l'email ne passe pas.

Ex : oMail.MsgFrom.Item(1)
.Adres = ""
.Name = "a.g@dev.co"

Au lieu de :
.Adres = "a.g@dev.com"
.Name = ""

Ma correction:
Code:

1 2 3 4 5 6 7 8 If oMail.MsgFrom.Count > 0 Then If Len(oMail.MsgFrom.Item(1).Adres) = 0 Then oMail.MsgFrom.Item(1).Adres = oMail.MsgFrom.Item(1).Name End If If InStr( 1, mail_attendu, oMail.MsgFrom.Item(1).Adres) = 1 Then oMail.MsgFrom.Item(1).Adres = mail_attendu End If End If
2 / Au niveau des pièces jointes le nom de fichier est mal décodé et je me retrouve avec l'information "application/octet-stream Name = "fichier.ext"" au lieu d'avoir "fichier.ext". (NB: Information du content-type)

Ma correction:
Code:

1 2 3 If InStr( 1, pj.FileName, "fichier.ext") > 0 Then pj.FileName = "fichier.ext" End If
Il se peut que d'autre problème persiste car je n'ai pas tout vérifier mais ce que je peux garantir c'est que ces mails sont lu correctement depuis l'applicatif Outlook.

En tout cas si vous pouvez corriger ces deux problèmes, je peux même vous fournir le mail que je reçois si cela peut vous aider.

Salutations,

Alain G.