Discussion :

[momobjk]

Bonjour,

J'ai développer une macro qui exporte les mails non lu vers un fichier excel et j'aimerais effectuer cette opération seulement pour une boite aux lettres données.

Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub ExportMessagesToExcel()
 
[...]
        For Each olkMsg In Application.ActiveExplorer.CurrentFolder.Items
            If olkMsg.Class = olMail Then
                If olkMsg.UnRead Then
                        excWks.Cells(intRow, 1) = GetSMTPAddress(olkMsg, intVersion)
                        excWks.Cells(intRow, 2) = olkMsg.Subject
                        excWks.Cells(intRow, 3) = olkMsg.ReceivedTime
                        intRow = intRow + 1
                    End If
                End If
            End If
        Next
 
[...]
End Sub

[Oliv-]

UNE BOITE ?

[momobjk]

Enfin un dossier Outlook

[carden752]

Bonjour,

Pour accéder aux éléments d'un dossier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each olkMsg In application.Session.GetDefaultFolder(olFolderInbox).Folders("mondossier").items