liaison entre outlook et access

Question

je cherche à récuperer tous les mails entrant dans outlook et les stockés dans access , de préférence par code VBA.
Mon majeur problème est de ne pas pouvoir lister les adresses E-mail des correspondants (je n'obtient que leur nom référencés dans l'annuaire d'outlook, grâce à un Item.SenderName)

voici comment j'y accède 
Set Olookspace = Olook.GetNamespace("MAPI")
Set Myfolder = Olookspace.GetDefaultFolder(olFolderInbox)
Myfolder.Display
Set Item = Myfolder.Items(2)
MsgBox Item.SenderName

visuric · Answer

Mettre ce code ci-dessous dans VBA de Outlook et
remplacer le sujet de recherche "Luis" dans l'objet 
par un de votre courrier.

Cela devrait fonctionner bonne fin journée

Sub Recherche_Sender()
    Dim myOlApp As New Outlook.Application
    Dim myNamespace As Variant
    Dim myFolder As Variant
    Dim myMail As Variant
    Dim myItem As Variant
    Dim myText As Variant
    Dim mySender As Variant
    
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNamespace = myOlApp.GetNamespace("MAPI")

    Set myMail = myNamespace.GetDefaultFolder(olFolderInbox)
    
    'Inscrire ici l'objet que l'on recherche a la place de Luis    Set myItem myMail.Items.Find("[Objet] ""Luis""")

    'Affecte le message à la variable myText
    myText = myItem.Body
    
    'Affecte le nom du sender du message à la variable mySender
    mySender = myItem.SenderName

    'Affiche le message
    myItem.Display
    
    'Affiche le nom de l'envoyeur dans la fenetre Exécution
    Debug.Print mySender

End Sub

jeanlemeilleur · Answer

J'ai reliés les messages outlook 2003 avec Access 2003 et je peut lire les messages mais je ne peux ouvrir les documents attachés.

Est-ce que quelqu'un peut me dire comment je pourrais faire pour les ouvrir avec ACCESS 2003

JeanD

Liaison entre outlook et access

2 réponses

Discussions similaires