Bonjour à tous !
Alors, mon problème est le suivant :
Je souhaite récupérer le contenu d'un email automatique que je reçois dans ma boîte réception qui est transférer automatiquement dans un dossier outlook sur le sujet.
Le corps du texte est en texte brut. Je souhaite récupérer les éléments de ce texte pour en faire un tableau récapitulatif.
J'ai déjà trouver un code qui me permet de récupérer le sujet, la date, l'émetteur et le corps du mail.
(c'est déjà ça)
le code est le suivant
Le corps du mail se présente ainsi :
Le but serait que je puisse récupérer toutes les informations entre crochet et d'en faire un tableau comme celui-ci :
Je suis bloquée et je ne sais comment je pourrais réussir ou si c'est possible à récupérer toutes les informations.
Je vous remercie par avance
Bonne Journée
Alors, mon problème est le suivant :
Je souhaite récupérer le contenu d'un email automatique que je reçois dans ma boîte réception qui est transférer automatiquement dans un dossier outlook sur le sujet.
Le corps du texte est en texte brut. Je souhaite récupérer les éléments de ce texte pour en faire un tableau récapitulatif.
J'ai déjà trouver un code qui me permet de récupérer le sujet, la date, l'émetteur et le corps du mail.
(c'est déjà ça)
le code est le suivant
VB:
Sub GetFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("Missions")
i = 1
For Each OutlookMail In Folder.Items
If OutlookMail.ReceivedTime >= Range("From_date").Value Then
Range("eMail_subject").Offset(i, 0).Value = OutlookMail.Subject
Range("eMail_date").Offset(i, 0).Value = OutlookMail.ReceivedTime
Range("eMail_sender").Offset(i, 0).Value = OutlookMail.SenderName
Range("eMail_text").Offset(i, 0).Value = OutlookMail.Body
i = i + 1
End If
Next OutlookMail
Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing
End SubLe corps du mail se présente ainsi :
Code:
De : NOM prénom <nom.prenom@xxx.xx> (signataire)
Envoyé : luni 13 mai 2019 15:58
À : NOM prénom <nom.prenom@xxx.xx> (moi)
Cc : NOM prénom <nom.prenom@xxx.xx> (la personne concernée)
Objet : Validation de l'ordre de mission n xxxxxxxxxx a Ville sujet
------------------------------------------------------------------
CORPS DU COURRIEL
L'ordre de mission n xxxxxxxxxx a [ville] du jj/mm/aaaa au jj/mm/aaaa [sujet] a ete valide par [valideur].
Veuillez verifier les elements ci dessous :
[NOM PRENOM] [service]
Numero de la mission : xxxxxxxxxx
Ordre de mission :
Mission : [France ou Etranger]
Centre / destination : [Ville]
Pays : [pays]
Region : [région]
Date de depart : jj/mm/aaaa
Date de retour : jj/mm/aaaa
Finalite du deplacement : [type de mission]
Motif du deplacement : [sujet]
Statut de la mission : [validé ou non]
Details / informations complementaires :
Vehicule personnel : [Oui/non]
Informations complementaires : [information sur la mission]
Centre de cout :
EOTP : [type de dépense 1]
Ordre statistique : [type de dépense 2]
Connectez vous a votre Espace pour pour imprimer votre ordre de mission : adresse htmlLe but serait que je puisse récupérer toutes les informations entre crochet et d'en faire un tableau comme celui-ci :
Je suis bloquée et je ne sais comment je pourrais réussir ou si c'est possible à récupérer toutes les informations.
Je vous remercie par avance
Bonne Journée
Dernière édition:
