Récupérer le texte d'un mail en vba

[pierrot132]

Bonjour.

J'aurais voulu savoir comment récupérer le texte d'un mail dans une textbox en vba.

Merci d'avance pour votre aide.

 

[MichelXld]

Re : Récupérer le texte d'un mail en vba

bonsoir

Un exemple pour extraire le contenu du premier message de la boite de réception:

Dim OLapp As Outlook.Application
Dim OLspace As Outlook.Namespace
Dim OLinbox As Outlook.MAPIFolder

Set OLapp = CreateObject("Outlook.application")
Set OLspace = OLapp.GetNamespace("MAPI")
Set OLinbox = OLspace.GetDefaultFolder(olFolderInbox)

MsgBox OLinbox.Items(1).Body

Set OLapp = Nothing
Set OLspace = Nothing
Set OLinbox = Nothing

Bonne soirée
MichelXld

 

[pierrot132]

Re : Récupérer le texte d'un mail en vba

Merci MichelXLD, c'est exactement ce que je voulais.

J'aurais une autre question à te poser, j'aurais voulu savoir, s'il était possible de dépalcer le mail que je viens d'exploitation grace à ta méthode vers un autre dossier d'outlook, qui me servirait d'archive.

 

[MichelXld]

Re : Récupérer le texte d'un mail en vba

bonjour


cet exemple transfère le premier message de la boite de réception vers un sous dossier "Archives"

Dim OLapp As Outlook.Application
Dim OLspace As Outlook.Namespace
Dim OLinbox As Outlook.MAPIFolder
Dim It As Outlook.MailItem

Set OLapp = CreateObject("Outlook.application")
Set OLspace = OLapp.GetNamespace("MAPI")
Set OLinbox = OLspace.GetDefaultFolder(olFolderInbox)

Set It = OLinbox.Items(1)
It.Move OLinbox.Folders("Archives")

Set OLapp = Nothing
Set OLspace = Nothing
Set OLinbox = Nothing

Bonne journée
MichelXld