Accéder à un répertoire perso

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Geo
Le #6730641

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+

Geo
Le #15357431
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+
Publicité
Poster une réponse
Anonyme