[VBA/Outlook] Browser de fichier

**ArbreQuiPense** · 23/10/2014, 17h15

Merci Oliv pour cette inspection de code ...

Et oui, je suis sur de l'ordre de parcours de PJ.
Pour une raison fort simple ... quand je ne sélectionne que quelques PJ à supprimer, çà marche !
Cela permet entre autres de présenter les PJ dans l'ordre du mail.

Tu notera également la gestion subtile de la variable 'position' qui n'est incrémentée que si la PJ est maintenue.

Merci pour les exemples.
Je vais en particulier m'en servir pour ignorer les "fausses PJs" (images incluses dans le corps du mail).
Je note également la gestion plus subtile que la mienne de la balise "<Body ...>" ...

Question :
J'insère mes infos de traitement des PJs avant la balise <Body>.
Dans l'exemple que tu me propose, l'insertion se fait après.

Quelle différence ?
Visuellement, je n'en vois pas ...

Au fait, je n'aurai pas hésité longtemps ... J'ai opté pour la solution 'Excel.FileDialog'.
De ce fait, je vais aussi utiliser le 'Excel.DefaultFilePath' pour y placer un classeur contenant le paramètrage de mes macros, en particulier le 'RootDir'.

Merci.

Cordialement

**Oliv-** · 23/10/2014, 22h31

c'est juste pour respecter le standart HTML.

Si outlook corrige de lui même, dans la plupart des cas, cela pourrait être différent avec un autre client de messagerie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
<HTML>
 <HEAD>
  <TITLE>Titre de la page</TITLE>
 </HEAD>
 
 <BODY>
  Contenu de la page
    </BODY>
</HTML>

**VBADN** · 11/04/2018, 03h10

Bonjour,

Est-ce que les deux solutions VBA proposées ci-dessus pour l'utilisation des FileDialog sous Microsoft Outlook ont évolué depuis 2014? Selon les essais que j'ai réalisé, le même problème existerait avec les références "Microsoft Office 14.0 Object Library" (avec Outlook 2010).

Dany

**Oliv-** · 11/04/2018, 14h24

Bonjour,
Tu peux utiliser la solution dans ce post
https://www.developpez.net/forums/d1...-premier-plan/

Après cela dépend de ce que tu souhaites récupérer "dossier" ou "fichiers"

**VBADN** · 11/04/2018, 16h52

Merci Oliv-

À titre de référence, j'ai aussi trouvé ce code qui fonctionne bien sous Outlook 2010...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Explicit
' For Outlook 2010.
#If VBA7 Then
    ' The window handle of Outlook.
    Private lHwnd As LongPtr
 
    ' /* API declarations. */
    Private Declare PtrSafe Function FindWindow Lib "user32" _
            Alias "FindWindowA" (ByVal lpClassName As String, _
                                 ByVal lpWindowName As String) As LongPtr
 
' For the previous version of Outlook 2010.
#Else
    ' The window handle of Outlook.
    Private lHwnd As Long
 
    ' /* API declarations. */
    Private Declare Function FindWindow Lib "user32" _
            Alias "FindWindowA" (ByVal lpClassName As String, _
                                 ByVal lpWindowName As String) As Long
#End If
'
' Windows desktop -
' the virtual folder that is the root of the namespace.
Private Const CSIDL_DESKTOP = &H0
 
' Only return file system directories.
' If user selects folders that are not part of the file system,
' then OK button is grayed.
Private Const BIF_RETURNONLYFSDIRS = &H1
 
' Do not include network folders below
' the domain level in the dialog box's tree view control.
Private Const BIF_DONTGOBELOWDOMAIN = &H2
 
Public Sub SelectFolder()
    Dim objFSO As Object
    Dim objShell As Object
    Dim objFolder As Object
    Dim strFolderPath As String
    Dim blnIsEnd As Boolean
 
    blnIsEnd = False
 
    Set objShell = CreateObject("Shell.Application")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objShell.BrowseForFolder( _
                lHwnd, "Please Select Folder to:", _
                BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN, CSIDL_DESKTOP)
 
 
    If objFolder Is Nothing Then
        strFolderPath = ""
        blnIsEnd = True
        GoTo PROC_EXIT
    Else
        strFolderPath = CGPath(objFolder.Self.Path)
    End If
 
PROC_EXIT:
    Set objFSO = Nothing
    If blnIsEnd Then End
End Sub
 
Public Function CGPath(ByVal Path As String) As String
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    CGPath = Path
End Function

Salutations!

Dany

[VBA/Outlook] Browser de fichier

VBA Outlook

Discussions similaires

Partager

Partager