Recuperer ces mails facilement

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 140 fois - Téléchargée 36 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

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

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.