Discussion :

[dropzone]

Bonjour à tous
Je cherche à afficher (et non ouvrir) un fichier outlook.msg sauvegardé sur disque.
Le code suivant (trouvé sur le site, merci) :

Code :

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

1
2
3
Set OutlookApp = CreateObject("Outlook.Application")
        Set Message = OutlookApp.CreateItemFromTemplate(w_FichierMsg)
        Message.Display

Fonctionne très bien, mais affiche le message en écriture.
Je veux simplement l'afficher en lecture (exactement comme le fait un double clic sur le fichier dans l'explorateur).

Rien trouvé sur le net depuis deux jours, si ma question n'est pas trop débile et que qq1 à la réponse....
Merci d'avance
Bonne journée
Drop

[AlainTech]

Bonjour,

Un peu tard mais mieux vaut tard que jamais:

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
Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As _
String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWMINIMIZED As Long = 2
 
Sub OpenMsg(strFilePath As String)
  Dim iPos As Integer
  Dim strPath As String
  Dim strFile As String
  iPos = InStrRev(strFilePath, "\")
  strPath = Left(strFilePath, iPos)
  strFile = Mid(strFilePath, iPos + 1)
  ShellExecute 0, "Open", strFile, "", strPath, SW_SHOWNORMAL
End Sub
 
Sub test()
  OpenMsg "C:\Documents and Settings\Alain\Mes documents\Excel\Forum\OpenMsg\Un mail.msg"
End Sub

[Marc-L]

Bonjour,

similaire en utilisant ma procédure DocOpen …



_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …