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

Version imprimable

25/10/2017, 18h07
itfashiongirl

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
26/10/2017, 14h46
Jean-Philippe André

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.

Bonjour:

voici mon code pour trouver le mail :

Code:

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

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:

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

26/10/2017, 17h58
itfashiongirl

Merci

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