recuperer le contenu d un mailRésolu

Question

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.

michelxld · Accepted Answer

bonjour

cet exemple permet de copier dans des fichiers .txt , les message de la boite de reception . tu pourras facilement l'adapter pour transf&#233;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

Recuperer le contenu d un mail

1 réponse

Discussions similaires