Bonjour a tous,
Afin des donnes importantes, j'ai recuperer l'historique d'un chat Bloomberg" par mail. Afin d'eviter les trop gros stockages, mon IT (ou BBG) ne stocke ce chat que par petits morceaux dans un grand nombre de fichiers. J'ai recu ses fichiers par mails ce matin. Il s'agit de + de 1500 mails et l'historique du chat est directement dans le body du mail.
J'ai l'habitude de coder en VBA mais je n'ai eu qu'une seule fois l'occasion de le coder pour outlook.
Ce que je souhaiterai faire, c'est d'aller de faire une boucle "for" sur tous les mails en question (qui sont dans le folder "Bloomberg" de ma boite de reception) de copier le texte qui est en body de l'email et de coller les bodys les uns a la suite des autres dans un bloc note (ce qui me permet d enlever les formats etranges).
J'essaie de m'inspirer d'un code que j'avais fait pour extraire une piece jointe d un mail cible mais je n'arrive pas a manipuler le Body d'un mail + le bloc note
"
Sub BBG()
Dim MonApp As Outlook.Application
Dim MonNameSpace As Outlook.Namespace
Dim MonDossier As Outlook.Folder
Dim MonMail As Outlook.MailItem
Dim numero As Integer
Dim strAttachment As String
Dim NbAttachments As Integer
Dim chemin As String
Dim datejour As Date: datejour = Date
'Instance des objets
Set MonApp = Outlook.Application
Set MonNameSpace = MonApp.GetNamespace("MAPI")
Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox)
Set myNewFolder = MonDossier.Folders("Bloomberg")
numero = myNewFolder.Items.Count
For i = 0 To numero
Set MonMail = myNewFolder.Items(numero - i)
{ici je souhaiterai copier le body et le mettre a la suite dans un bloc note}
next i
End Sub
"
Pourriez vous m'aider svp ?
Merci d'avance,
Thibault
Afin des donnes importantes, j'ai recuperer l'historique d'un chat Bloomberg" par mail. Afin d'eviter les trop gros stockages, mon IT (ou BBG) ne stocke ce chat que par petits morceaux dans un grand nombre de fichiers. J'ai recu ses fichiers par mails ce matin. Il s'agit de + de 1500 mails et l'historique du chat est directement dans le body du mail.
J'ai l'habitude de coder en VBA mais je n'ai eu qu'une seule fois l'occasion de le coder pour outlook.
Ce que je souhaiterai faire, c'est d'aller de faire une boucle "for" sur tous les mails en question (qui sont dans le folder "Bloomberg" de ma boite de reception) de copier le texte qui est en body de l'email et de coller les bodys les uns a la suite des autres dans un bloc note (ce qui me permet d enlever les formats etranges).
J'essaie de m'inspirer d'un code que j'avais fait pour extraire une piece jointe d un mail cible mais je n'arrive pas a manipuler le Body d'un mail + le bloc note
"
Sub BBG()
Dim MonApp As Outlook.Application
Dim MonNameSpace As Outlook.Namespace
Dim MonDossier As Outlook.Folder
Dim MonMail As Outlook.MailItem
Dim numero As Integer
Dim strAttachment As String
Dim NbAttachments As Integer
Dim chemin As String
Dim datejour As Date: datejour = Date
'Instance des objets
Set MonApp = Outlook.Application
Set MonNameSpace = MonApp.GetNamespace("MAPI")
Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox)
Set myNewFolder = MonDossier.Folders("Bloomberg")
numero = myNewFolder.Items.Count
For i = 0 To numero
Set MonMail = myNewFolder.Items(numero - i)
{ici je souhaiterai copier le body et le mettre a la suite dans un bloc note}
next i
End Sub
"
Pourriez vous m'aider svp ?
Merci d'avance,
Thibault