lire mes mails dans une listvieuw

Question

Bonjour
 je voudrais extraire mes emails de outlook pour les affichers dans une listview, avec les colonnes : sujet, taille date.
Merci d'avance pour la reponse.

cs_wape · Answer

Essaye le code ci-dessous, qui extrait les messages présents dans "Boîte de réception" :

Private Sub Command1_Click()

Dim oOlApp As Object 'Outlook.Application
Dim oOlNms As Object 'Outlook.NameSpace
Dim oOlFlr As Object 'Outlook.MAPIFolder
Dim oOlItm As Object 'Outlook.MailItem

Set oOlApp = CreateObject("Outlook.Application")
Set oOlNms = oOlApp.GetNamespace("MAPI")
Set oOlFlr = oOlNms.GetDefaultFolder(6) 'Boîte de réception

For Each oOlItm In oOlFlr.Items
   With Me.ListView1
      .ListItems.Add , , oOlItm.Subject
      .ListItems(.ListItems.Count).SubItems(1) = Int(oOlItm.Size / 1024) & " Ko"
      .ListItems(.ListItems.Count).SubItems(2) = DateValue(oOlItm.ReceivedTime)
   End With
Next oOlItm

oOlApp.Quit

Set oOlItm = Nothing
Set oOlFlr = Nothing
Set oOlNms = Nothing
Set oOlApp = Nothing

End Sub

@+

wape

Lire mes mails dans une listvieuw

1 réponse

Discussions similaires