Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Accéder à un répertoire perso

2 réponses
Avatar
Fabrice
Bonjour,

Comment, par programmation en vb, travailler sur un dossier perso spécifique
ou sont rangés des messages?.

J'arrive en ouvrant une fenêtre et en choiisissant le dossier à traiter,
mais je n'arrive pas à lui dire de travailler sur ce dossier (qui est
toujours le même) afin de gagner du temps.

mon code:

Sub Main()
Dim objItem As Object

Set objNS = Application.GetNamespace("MAPI")
'ici boite de dialogue qui affiche l'arborescence d'outlook
'Je choisit mon dossier à traiter
Set objFolder = objNS.PickFolder

If Not objFolder Is Nothing Then
strTopFolder = CleanString(objFolder.Name)
strDestination = "C:\Traces Internet du firewall"
If strDestination <> "" Or strDestination <> Null Then
strFolderName = CleanString(objFolder.Name)

intUserAbort = 0
For Each objItem In objFolder.Items
'DoEvents
SaveAsMsg objItem, strDestination
objItem.Delete
Set objItem = Nothing
Next

'Unload frmProcessing

If intUserAbort = 0 Then
MsgBox "Export Complete!"
Else
MsgBox "Processing cancelled."
End If
Else
MsgBox "Destination folder selection cancelled!"
End If
Else
MsgBox "MAPI folder selection cancelled!"
End If

Set objNS = Nothing
Set objFolder = Nothing
End Sub

2 réponses

Avatar
Geo

Bonjour,

Comment, par programmation en vb, travailler sur un dossier perso spécifique ou sont
rangés des messages?.


Set objFolder = objNS.Folders("Dossiers personnels").Folders("Messages
mis de côté")

--
A+

Avatar
Geo
Bonjour à Fabrice qui nous a écrit :

Bonjour,

Comment, par programmation en vb, travailler sur un dossier perso spécifique ou sont
rangés des messages?.



Set objFolder = objNS.Folders("Dossiers personnels").Folders("Messages
mis de côté")

--
A+