FAQ VB.NETConsultez toutes les FAQ

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

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)