Discussion :

[diss10]

Bonjour

Voila donc : j'ai un fichier excel avec lequel je suis les demandes qui arrivent sur ma boite mail .

ma demande c de pouvoir sortir les dates contenu dans les body de mes mails pour les renvoyer sur ma feuil excel ( chaque body de mail contient une seul de date ) .

voila mon code actuel :

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
Sub Suivi_demandes_faisa()
 
 
    Dim olApp As Object, NS As Object, Dossier As Object
    Const olFolderInbox = 6
    Dim i As Object, R As Object, Ligne As Long
    Ligne = 2
    Set olApp = CreateObject("Outlook.Application")
    Set NS = olApp.GetNamespace("MAPI")
    'Set dossiersource = NS.Folders(1).Folders("Boîte de réception")
    Set dossiersource = NS.Folders("Maboitemail").Store.GetDefaultFolder(olFolderInbox)
 
    With Sheets("Feuil1")
        For Each i In dossiersource.Items
 
            Ligne = Ligne + 1
            .Cells(Ligne, 1) = i.Subject
            .Cells(Ligne, 2) = i.creationtime
            .Cells(Ligne, 3) = i.cc
 
        Next i
    End With
    Set NS = Nothing
    Set olApp = Nothing
 
End Sub

Merci d'avance

[Oliv-]

pour le body c'est .body et pour trouver une date le mieux serait d'utiliser les REGEX

http://cafeine.developpez.com/access/tutoriel/regexp

[diss10]

pour le body c'est .body et pour trouver une date le mieux serait d'utiliser les REGEX

http://cafeine.developpez.com/access/tutoriel/regexp

Bonjour

Possible d'avoir un exemple svp avec une extraction de date a partir d'un texte ?

Merci

[Oliv-]

https://regex101.com/r/jN4fN1/1