Discussion :

[Phifou]

Bonjour à tous,

j'aurais besoin de votre aide pour trouver comment ouvrir un fichier mail outlook .msg : j'ai besoin de l'ouvrir et non de le créer : en fait j'ai besoin d'envoyer certains fichiers excels à l'aide d'un message qui est quasi-toujours le même : l'idée est d'aller le chercher dans le disque dur de l'ouvrir de mettre le fichier excel en pièce-jointe l'envoi se faisant manuellement.

Google est mon ami, mais vraisemblablement peu de personnes ouvre de .msg depuis un excel, d'où ma question.

D'avance, un grand merci,


Philippe

[parmi]

Bonjour,

Je pense que tu doives passer par RDO
Voici un lien qui pourra t'informer un peu (en anglais...)

Tu peux faire des recherches sur Redemption

[Oliv-]

Salut,

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
Sub Ouverture_msg(LeFichier As String)
'ouvrir un .msg d'un dossier de l'explorateur
    Set myolapp = Outlook.Application
    OutlookExe = pathOutlook(Val(Application.version)) + "outlook.exe"
    shellcommande = """" & OutlookExe & """ /f """ & LeFichier & """"
    RetVal = Shell(shellcommande, 1)
    DoEvents
    Set myItem = myolapp.ActiveInspector.CurrentItem
'ici on fait quelque chose avec l'email
    MsgBox "Sujet: " & myItem.subject & vbCr & "reçu le : " & myItem.ReceivedTime & vbCr & "A: " & myItem.To & vbCr & "Email Exp: " & myItem.SenderEmailAddress & vbCr & "PJ: " & myItem.Attachments.Count
 
    On Error Resume Next
'fermeture de l'email .msg
    myItem.Close 0
    On Error GoTo 0
End Sub
 
Function pathOutlook(version As Integer)
    Dim objWSH As Object
    Set objWSH = CreateObject("WScript.Shell")
    pathOutlook = objWSH.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\" + CStr(version) + ".0\Common\InstallRoot\Path")
End Function

ou comme cela s'il sert de modèle

Code :

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

1
2
3
4
5
6
 
 
    Dim MyItem As Outlook.MailItem
 Set myolapp = Outlook.Application    
    Set MyItem = myolapp.CreateItemFromTemplate("D:\TEMP1\monMessage.msg")
    MyItem.Display

[Phifou]

Merci à tous les deux de votre aide, j'essaierai ça quand j'aurais un peu plus de temps et je vous fait un retour.
(Un autre plus gros projet sur le dos)

Encore merci, bonne soirée,


Philippe

Bonjour,

Alors j'ai pu essayé les deux possibilités proposées, mais cela ne fonctionne pas. En fait, c'est comme s'il ne reconnaissait pas l'objet outlook... VB me renvoit des erreurs de compilations...

Est-ce qu'il y aurait une bibliothèque à ajouter préalablement ? Si oui, laquelle ? et comment l'ajoute-t-on ? Sinon comment fait-on ?

Je vous remercie de votre aide,


Philippe

[Oliv-]

Salut,
oui soit tu ajoutes une référence à OUTLOOK (ce que j'avais présupposé)
soit tu modifies ainsi

Code :

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

1
2
3
4
Dim MyItem As object
 Set myolapp = createobject("Outlook.Application")   
    Set MyItem = myolapp.CreateItemFromTemplate("D:\TEMP1\monMessage.msg")
    MyItem.Display

[Phifou]

Chouette ça marche, merci beaucoup !

Du coup, dans le suite de ce que je fais il faudrait que j'arrive à mettre en pièce jointe le fichier sur lequel je suis sous excel, comment faire ?

Est-ce qu'il faut que je le sauvegarde et que j'aille le chercher comme un fichier autre ? Ou est-ce que je peux l'insérer directement ?
En fait, la première option ne me plaît pas, puisqu'il faudrait que cette macro puisse être utilisée par d'autres personnes et le temps d'accès, pour un chemin commun à tous, sur le serveur est parfois très long...

Donc si la solution permettant de mettre le fichier en PJ sans l'enregistrer est faisable, je suis preneur !

Merci beaucoup,


Philippe