Discussion :

[itfashiongirl]

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

[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.

[itfashiongirl]

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

[Jean-Philippe André]

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

[itfashiongirl]

Merci

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