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