 |
Publicité 
|
La première étape consiste à demander à l’utilisateur ce qu’il veut enregistrer et où.
En fait, nous commencerons par où, et avant tout, sur quel disque :
rep = InputBox("Sur quel disque ?", "Question", "C:")
On Error Resume Next
ChDrive rep
test = Err
On Error GoTo 0
If test Then
MsgBox "Disque " & rep & " inaccessible"
Exit Sub
End If
REP_TOP = rep & ""
C’est bien de vérifier si le disque est accessible...
Ensuite le répertoire :
rep =
InputBox("Dans quel répertoire ?", "Question", "\temp\test\")
test = waaps_creedir(rep)
If Not test Then
MsgBox "Répertoire " & rep & " inaccessible"
Exit Sub
End If
REP_TOP = REP_TOP & "\" & rep
REP_TOP = Replace(REP_TOP, "/", "\")
REP_TOP = Replace(REP_TOP, "\\", "\")
Notez que la fonction waaps_creedir est chargée du contrôle / de la création « récursive » de répertoires. Bien que cette fonction soit présentée ici, elle demeure la propriété exclusive de Caxton. Elle ne peut être commercialisée. Elle peut être utilisée dans la mesure où le copyright est respecté. Merci.
Vous l’avez compris, REP_TOP est une variable publique qui contient le chemin complet de sauvegarde.
Ensuite, on interroge l’utilisateur sur le dossier à traiter.
Set myNameSpace
= CreateObject("Outlook.Application").GetNamespace("MAPI")
Set pfld = myNameSpace.PickFolder
'-- Si l'utilisateur renonce on s'en va
If pfld Is Nothing Then Exit Sub
La méthode PickFolder qui s’applique à l’object NameSpace permet d’afficher un sélecteur de dossier qui ressemble à :
Si l’objet Folder est « RIEN » c’est que l’utilisateur a cliqué « Annuler ».
Il ne reste plus qu’à initialiser le traitement en exécutant la fonction sauvefolder :
sauvefolder pfld, ""
Quand le traitement est terminé, il faut prévenir l’utilisateur...
MsgBox "Sauvegarde des pièces jointes terminée"
|
