FAQ VB.NETConsultez toutes les FAQ

Nombre d'auteurs : 36, nombre de questions : 239, dernière mise à jour : 24 mai 2015  Ajouter une question

 

Cette FAQ a été réalisée pour répondre aux questions les plus fréquemment posées sur le forum Développement DotNET

Je tiens à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle contient sont correctes. Les auteurs font le maximum, mais l'erreur est humaine. Si vous trouvez une erreur, ou que vous souhaitez devenir rédacteur, lisez ceci.

Sur ce, je vous souhaite une bonne lecture.


SommaireMicrosoft Outlook (2)
précédent sommaire
 

Gestion de l'événement d'arrivée d'un mail dans le répertoire Inbox de Outlook.

Code vb.net : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
' Import des bibliothèques 
Imports Outlook = Microsoft.Office.Interop.Outlook 
Imports Redemption 
  
' Voir question "Comment lister les mails présents dans le répertoire "Inbox" d'Outlook"  
Dim m_ObjOutlookApp As Outlook.Application = New Outlook.ApplicationClass  
Dim n As Outlook.NameSpace = m_ObjOutlookApp.GetNamespace("mapi")  
Dim f As Redemption.RDOFolder 
Dim rdoSession As Redemption.RDOSessionClass = New Redemption.RDOSessionClass 
rdoSession.MAPIOBJECT = n.MAPIOBJECT  
f = rdoSession.GetDefaultFolder(rdoDefaultFolders.olFolderInbox)  
' Gestion de l’évènement OnNewMail 
rdoSession.OnNewMail += New IRDOSessionEvents_OnNewMailEventHandler(rdoSession_OnNewMail) 
  
  
' Méthode de récupération de l’évènement d'arrivée du nouveau mail 
Private Sub rdoSession_OnNewMail(ByVal EntryID As String)  
    ' À coder  
End Sub

Mis à jour le 1er novembre 2013 notalp

Pour ce faire, nous utiliserons Outlook et la DLL de Outlook Redemption. Cette dernière permet d'enlever la confirmation d'autorisation par un code externe à Outlook. Ce code permet de récupérer uniquement les mails présents dans le répertoire Inbox. L'ajout des références Microsoft Excel 11.0 Object Libraryainsi que celle de Outlook Redemptionsont nécessaires.

Code vb.net : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
' Import des bibliothèques 
Imports Outlook = Microsoft.Office.Interop.Outlook 
Imports Redemption 
  
' Créer une instance d'Application Outlook 
Dim m_ObjOutlookApp As Outlook.Application = New Outlook.ApplicationClass  
' Récupérer le NameSpace 
Dim n As Outlook.NameSpace = m_ObjOutlookApp.GetNamespace("mapi")  
' Récupérer le Répertoire Rdo (Redemption) 
Dim f As Redemption.RDOFolder  
  
Dim rdoSession As Redemption.RDOSessionClass = New Redemption.RDOSessionClass  
rdoSession.MAPIOBJECT = n.MAPIOBJECT  
  
' Récupération du répertoire Inbox (rdoDefaultFolders est un enum, d'autres répertoires sont disponibles) 
f = rdoSession.GetDefaultFolder(rdoDefaultFolders.olFolderInbox)  
  
  
For Each Item As Object In f.Items  
    ' Création d'un item RDOMailClass 
    Dim rdom As RDOMailClass = CType(Item, RDOMailClass)  
    ' rdom est un mail a proprement parler. Les propriétés accessibles sont par exemple : SenderEmailAddress,Body,Subject ... 
Next 
foreach (Object Item in f.Items)

Mis à jour le 1er novembre 2013 notalp

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2017 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

 
Responsable bénévole de la rubrique Microsoft DotNET : Hinault Romaric -