Recuperer le contenu d un mail [Résolu]

Mick84M 8 Messages postés mercredi 1 novembre 2000Date d'inscription 29 janvier 2007 Dernière intervention - 16 mars 2006 à 10:36 - Dernière réponse : michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention
- 18 mars 2006 à 07:07
Bonjour,

j'aimerai pouvoir recuperer le contenu de mes mails afin de pouvoir le traiter avec VB. Le but final est d inserer ces donnees recuperees dans une base MySQL.

Quelqu un aurai t il une idee?

par avance merci.
Afficher la suite 

1 réponse

Meilleure réponse
michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention - 18 mars 2006 à 07:07
3
Merci
bonjour

cet exemple permet de copier dans des fichiers .txt , les message de la boite de reception . tu pourras facilement l'adapter pour transférer les infos vars une base Access

Sub transfertMailsDansFichiersTextes()
'necessite d'activer la reference Microsoft Outlook xx Object library
Dim OLapp As Outlook.Application
Dim OLspace As Outlook.nameSpace
Dim OLinbox As Outlook.MAPIFolder
Dim OLmail As Outlook.mailItem
Dim OLbody As String
Dim Cible As Integer
Dim i As Byte


Set OLapp = CreateObject("Outlook.application")
Set OLspace = OLapp.getNamespace("MAPI")
Set OLinbox = OLspace.getDefaultFolder(olFolderInbox) 'boite de reception


For Each OLmail In OLinbox.Items
OLbody = OLmail.Body
i = i + 1
Cible = FreeFile
'adapter chemin fichier de suivi sur le reseau
Open "C:\ " & i & ".txt" For Append As #Cible
Print #1, OLbody
Close #Cible
Next


Set OLapp = Nothing
Set OLspace = Nothing
Set OLinbox = Nothing
End Sub

bon week end
michel

Merci michelxld 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.