Effectuer un parsing de mail avec DypsoPop

Techniques

Cette section permet de regrouper un ensemble de techniques ou de scripts qui ont l'originalité d'arriver à résoudre une difficulté avec le moindre effort ou qui sont particulièrement efficaces...

Techniques / Composant POP : DypsoPOP 2.0

•  Charger et parser un mail depuis le disque avec DypsoPop :

Le composant DypsoPop inclus la possibilité de charger un fichier mail que vous auriez auparavant en registrer avec l'extension ".eml", voici comment mettre en oeuvre cette fonctionnalité :

<%
set Mess = server.createObject("DypsoPop.Message")

'Charge un fichier depuis le disque
Mess.loadMsgFromFile(Server.MapPath("mails\ms.eml"))
set msg = Mess.getMail(0)

With Response
       
 'Parsinf des infos du mail
   .write msg.Send_date
   .write msg.from
   .write msg.subject
   .write msg.size
   .write msg.cc
   .write msg.bcc 
   .write msg.mimeVersion
   .write msg.contentType
   .write msg.contentTransferEncoding
   .write msg.messageId    

   'Et dans une plus grande mesure 
   'si vous voulez vous
   'même fetcher les headers
    
    .write msg.header      
    
end with
   
if msg.AttachmentsCount>0 Then
  for j = 0 to msg.AttachmentsCount-1
   set att = msg.getAttachMent(cint(j))
   
   	Response.write write "Filename : " &_
   	att.filename & "
"
  next
end if

set Mess = Nothing 

%>

Page précédente <<Exemple : Filtrer le contenu de votre boîte mail