IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Dotnet Discussion :

[VB.net] Pop récuperer message du Mail


Sujet :

Dotnet

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2013
    Messages
    57
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2013
    Messages : 57
    Par défaut [VB.net] Pop récuperer message du Mail
    Bonjour,

    J'essaye de récuperer le message de mes mails avec la DLL OpenPop. Malheureusement je récupere bien le message mais avec le code HTML, ce qui donne ceci :

    <html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
    <meta name="Generator" content="Microsoft Word 14 (filtered medium)">
    <style><!--
    /* Font Definitions */
    @font-face
    {font-family:Calibri;
    panose-1:2 15 5 2 2 2 4 3 2 4;}
    @font-face
    {font-family:Tahoma;
    panose-1:2 11 6 4 3 5 4 4 2 4;}
    /* Style Definitions */
    p.MsoNormal, li.MsoNormal, div.MsoNormal
    {margin:0cm;
    margin-bottom:.0001pt;
    font-size:12.0pt;
    font-family:"Times New Roman","serif";}
    a:link, span.MsoHyperlink
    {mso-style-priority:99;
    color:blue;
    text-decoration:underline;}
    a:visited, span.MsoHyperlinkFollowed
    {mso-style-priority:99;
    color:purple;
    text-decoration:underline;}
    p.emailquote, li.emailquote, div.emailquote
    {mso-style-name:emailquote;
    mso-margin-top-alt:auto;
    margin-right:0cm;
    mso-margin-bottom-alt:auto;
    margin-left:1.0pt;
    border:none;
    padding:0cm;
    font-size:12.0pt;
    font-family:"Times New Roman","serif";}
    span.EmailStyle18
    {mso-style-type:personal-reply;
    font-family:"Calibri","sans-serif";
    color:#1F497D;}
    .MsoChpDefault
    {mso-style-type:export-only;
    font-size:10.0pt;}
    @page WordSection1
    {size:612.0pt 792.0pt;
    margin:70.85pt 70.85pt 70.85pt 70.85pt;}
    div.WordSection1
    {page:WordSection1;}
    --></style><!--[if gte mso 9]><xml>
    <o:shapedefaults v:ext="edit" spidmax="1026" />
    </xml><![endif]--><!--[if gte mso 9]><xml>
    <o:shapelayout v:ext="edit">
    <o:idmap v:ext="edit" data="1" />
    </o:shapelayout></xml><![endif]-->
    </head>
    <body lang="FR" link="blue" vlink="purple">
    <div class="WordSection1">
    <p class="MsoNormal"><span style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;color:#1F497D"><o:p>&nbsp;</o:p></span></p>
    <p class="MsoNormal"><span style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;color:#1F497D"><o:p>&nbsp;</o:p></span></p>
    Pour ce faire j'ai utiliser le code suivant:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
     TempMessage = MailRecu.ElementAt(compteur)
                        NewMail.SEND = TempMessage.Headers.From.MailAddress.ToString
                        NewMail.OBJECTMAIL = TempMessage.Headers.Subject.ToString
                        NewMail.MESSAGEMAIL = TempMessage.ToMailMessage.Body
    Avez-vous une idée pour supprimer le code HTML?

  2. #2
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2013
    Messages
    57
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2013
    Messages : 57
    Par défaut
    Bonjour,

    Finalement apres de multiple recherche et de test voici la solution pour ne pas avoir la partie en HTML:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
     Dim u() As Byte = TempMessage.MessagePart.MessageParts(0).MessageParts(0).Body
                        Dim c As String = System.Text.Encoding.UTF8.GetString(u)
                        NewMail.MESSAGEMAIL = c

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Protocole POP et messages
    Par keyra dans le forum Développement
    Réponses: 1
    Dernier message: 26/06/2006, 16h22
  2. [VB.net 2005] Récuperer image resources + bouton dynamique
    Par PoZZyX dans le forum Windows Forms
    Réponses: 9
    Dernier message: 12/05/2006, 17h35
  3. Réponses: 3
    Dernier message: 12/05/2006, 10h53
  4. [VB.NET] Excel et message de fusion
    Par prem's dans le forum ASP.NET
    Réponses: 4
    Dernier message: 14/04/2005, 11h08
  5. [VB.NET][XML] Récupere l'attribut du dernier noeud ds un XML
    Par Hoegaarden dans le forum Windows Forms
    Réponses: 2
    Dernier message: 30/09/2004, 14h14

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo