Discussion :

[Delbeke]

Ce composant DiEmailViewer6.Ocx affiche les fichiers au format eml (format fichier mail de Outlook Express)
http://contrib-vb.developpez.com/Delbeke/

[alain.girardin]

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 :

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

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 :

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

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.