Fanfandu17
Messages postés15Date d'inscriptionsamedi 5 mars 2016StatutMembreDernière intervention 5 octobre 2022
-
5 oct. 2022 à 20:20
Maelhia
Messages postés21Date d'inscriptionvendredi 25 mars 2022StatutMembreDernière intervention15 février 2023
-
5 janv. 2023 à 11:16
Bonjour,
deuis EXCEL, je souhaite recherche dansd toute ma boite outlokk, y compris les sous dossiers, tous les email qui ont "toto" dans l'objet, et enregistrer cette email sur le DD.
L'enregistrement ne fonctionne pas.
N'étant pas du domaine, je sollicite un petit coup de main d'une âme charitable.
Private Sub SearchFolders(ByVal Fld As Outlook.MAPIFolder)
Dim y As Integer
Dim OLmail As Object
Dim SousDossier As Outlook.MAPIFolder
Dim a As Integer
For Each SousDossier In Fld.Folders
If SousDossier.DefaultItemType = 0 Then
For Each OLmail In SousDossier.Items
If a = 10 Then Exit Sub ' provisoire pour faire les tests
'---recherche de TOTO dans l'objet
If InStr(1, OLmail.Subject, "TOTO") > 0 Then
OLmail.SaveAs "U:\TEST\Toto" & a, OlSaveAsType.olMSG
Exit For
End If
On Error GoTo 0
'--- fin de la recheche
If a = 10 Then Exit Sub ' provisoire pour faire les tests
Next OLmail
End If
SearchFolders SousDossier
Next SousDossier