RECUPERER CES MAILS FACILEMENT

<%
Set MailObj = Server.CreateObject("CDONTS.Session")
MailObj.LogonSMTP "Your password" , "YourEmail@Address.com"
Set InBoxCont = MailObj.Inbox


Set MessageStrings = InBoxCont.Messages
MessageID = Trim(Request.QueryString("MsgId"))
If ("" = MessageID Or Not IsNumeric (MessageID)) Then


      For Each MessageString in MessageStrings
        counter = counter + 1
       %><a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?MsgId=<%=counter%>">        <%=MessageString.Subject%></a> from : <%=MessageString.Author%><br><%
     Next


Else
     Set MessageString = MessageStrings(MessageID)
      %>
     Email Subject : <b><i><%=MessageString.Subject%></b></I><br>
     From Address : <%=MessageString.Sender%><br><hr>
     Email Body : <%= MessageString.Text%><hr>
     <%
End If
MailObj.LogOff 
%>