1. #1
    Membre à l'essai
    Femme Profil pro
    Étudiant
    Inscrit en
    avril 2017
    Messages
    28
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 24
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : avril 2017
    Messages : 28
    Points : 24
    Points
    24

    Par défaut Récuper des informations dans le corps d'un mail

    Bonjour,


    J'ai une marco qui me permet de trouver un mail dans ma boite outlook selon différents critères, or je souhaiterais extraire du mails certain chiffres, le corps du mail étant toujours idendique
    Avez vous des idées sur la façon de procéder

    merci d'avance

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    12 319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 12 319
    Points : 27 141
    Points
    27 141

    Par défaut

    Salut,

    et quel est le code qui te permet de recuperer le mailItem ?

    une fois cet object recupere, tu peux travailler sur ses proprietes.

    Quant aux chiffres, il faut nous dire dans quoi ils sont pour qu'on puisse te dire quelle propriete leur correspond.
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Membre à l'essai
    Femme Profil pro
    Étudiant
    Inscrit en
    avril 2017
    Messages
    28
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 24
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : avril 2017
    Messages : 28
    Points : 24
    Points
    24

    Par défaut

    Bonjour:

    voici mon code pour trouver le mail :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
     
    Sub mail()
     
    Dim maPj As Object
    Dim monMail As Object
    Dim MonApp As Object, ns As Object
    Dim MonDossier As Object, LesMails As Object
     
    Dim ladate As Date
    Dim ladate_2 As String
    Dim dat As String
    Dim monchemin As String
    Dim m As Long
     
     
    ladate = Feuil10.Range("A7").Value
    dat = DateAdd("d", -1, ladate)
    ladate_2 = Format(ladate, "ddmmyyyy")
     
    On Error Resume Next: Set MonApp = GetObject(, "Outlook.Application"): On Error GoTo 0
    If MonApp Is Nothing Then Set MonApp = CreateObject("Outlook.Application")
     
    Set ns = MonApp.GetNamespace("MAPI")
    Set MonDossier = ns.Folders("Structured Derivatives Funds").Folders("Boîte de réception")
    MsgBox "Le Dossier est " & MonDossier.Name & " || Nombre de Mails : " & MonDossier.items.Count
     
    Set LesMails = MonDossier.items
        For m = 1 To LesMails.Count
          If LesMails(m).Subject = "FW: AXA MPS DPI Trade " & dat Then
            If LesMails(m).SenderEmailAddress = "Cormac.Stapleton@ipsi.ie" Or LesMails(m).SenderEmailAddress = "Michael.Cima@ipsi.ie" Then
     
                MsgBox "mail trouvé"
     
                Exit For
            End If
         End If
        Next m
     
    End Sub

    Les chiffres que j'ai besoin sont dans le corps même du mails exemple:

    Bonjour,

    Voici les gap fees du 25/12/2017: 532.58 eur

    Cdt.


    Le coprs du mail est toujours le même seul me montant et la date change


    merci d'avance pour votre d'aide

  4. #4
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    12 319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 12 319
    Points : 27 141
    Points
    27 141

    Par défaut

    tres bien,

    du coup tu peux passer par le Body de ton mail. Avec un traitement pour isoler les valeurs (simplifie par le fait d'avoir un texte similaire tous les jours.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    dim Trouve as MailItem
    ...
    If LesMails(m).SenderEmailAddress = "Cormac.Stapleton@ipsi.ie" Or LesMails(m).SenderEmailAddress = "Michael.Cima@ipsi.ie" Then
    Set Trouve = LesMails(m)
    End If
    ...
    Msgbox Trouve.Body
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  5. #5
    Membre à l'essai
    Femme Profil pro
    Étudiant
    Inscrit en
    avril 2017
    Messages
    28
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 24
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : avril 2017
    Messages : 28
    Points : 24
    Points
    24

    Par défaut

    Merci

    J'arrive à afficher le corps je vais me dépatouiller pour le reste

Discussions similaires

  1. Comment intégrer des images dans le corps d'un mail en PHP
    Par alexandre_26 dans le forum Scripts
    Réponses: 6
    Dernier message: 21/11/2016, 16h49
  2. [AC-2007] Récupérer des informations dans le corps d'un mail Outlook
    Par fragglerick dans le forum VBA Access
    Réponses: 9
    Dernier message: 08/03/2013, 00h19
  3. [XL-2007] Placer des variables dans le corps d'un mail envoyé.
    Par Danad38 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 14/01/2012, 18h14
  4. affichage des images dans le corps d'un mail
    Par pigeon11 dans le forum VB 6 et antérieur
    Réponses: 0
    Dernier message: 24/06/2008, 14h40
  5. Récuperer des informations dans une ligne
    Par Au2laDeNosReves dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 15/04/2008, 13h22

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