Recuperer ces mails facilement

0/5 (3 avis)

Snippet vu 7 455 fois - Téléchargée 38 fois

Contenu du snippet


Source / Exemple :


<%
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 
%>

A voir également

Ajouter un commentaire Commentaires
mouasmaa Messages postés 1 Date d'inscription vendredi 14 juillet 2006 Statut Membre Dernière intervention 26 mars 2007
26 mars 2007 à 18:26
bonjour comment recuperer une image avec cdonts.session
P.I : objmail.text ne m'importe pas les image
jamil1976 Messages postés 4 Date d'inscription jeudi 31 août 2006 Statut Membre Dernière intervention 30 juin 2008
22 nov. 2006 à 10:06
desolé ca marche pas....
merci de verifier le code
Frank339 Messages postés 164 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 19 décembre 2008
26 sept. 2003 à 14:31
marche pas... :-( rien ne se passe

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.